如何在access2007 中批量导入excel表格?

D:\A文件夹中有500个统一格式的excel表格,如何将其批量导入到ACCESS中?... D:\A 文件夹中有500个统一格式的excel表格,如何将其批量导入到ACCESS中? 展开
 我来答
mzw_ok
2015-09-27 · 知道合伙人数码行家
mzw_ok
知道合伙人数码行家
采纳数:13308 获赞数:33043
本人在陕西金山建设工程有限公司,对数码比较喜欢,希望在这方面有所作为!

向TA提问 私信TA
展开全部

第一步,桌面上新建Access数据库

第二步,新建完毕后,默认名称如图

第三步,将名称进行修改,并点击打开

第四步,主界面如图

第五步,点击“外部数据”

第六步,继续点击“Excel”按钮

第七步,弹出“导入”界面,点击浏览按钮

第八步,选中student的Excel文件,点击打开

第九步,导入窗口中,继续点击“确定”

第十步,没有问题,点击下一步

第十一步,没有问题,点击下一步

第十二步,选择“我自己选择主键”,点击下一步

第十三步,确定表名称,点击完成


第十四步,继续点击“关闭”按钮

第十五步,导入的表成功,出现在左侧,点开它,验证一下

第十六步,数据无误,成功导入。

云裳广场舞
2013-05-23 · 我爱广场舞,我运动、我快乐、我健康!
云裳广场舞
采纳数:834 获赞数:1065

向TA提问 私信TA
展开全部

打开access数据库,然后选择“文件”--“获取外部数据”--“导入”,在选择要导入的目标文件时按下图选择。

然后一步步按access提示一步步操作即可。


PS:我要的是access 2000测试的,其他版本应该也可以。

追问
重复500次么?
追答
可以试试选择文件时批量选择。
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
linlq986
2013-05-23 · 超过45用户采纳过TA的回答
知道小有建树答主
回答量:234
采纳率:0%
帮助的人:87.4万
展开全部
用程序吧,写个vba导一下
追问
求代码!
追答
如果
excel数据表的第一行与access中对应的表的字段名是一样的.
excel中的格式已设定,同时access中的字段也设定好了.
要先把要导的文件打开,其它文件关闭

我在公司,公司没装access,没测试,本人e2003版

sub 循环文件()
for each w in workbooks
把Excel数据插入数据库中
w.close false
next
end sbu

以下是bengdeng写的,拿来现用一下

Sub 把Excel数据插入数据库中()
'*******************************************
'时间:2010-06-28
'作者:bengdeng
'功能:把当前工作表的数据增加到在程序文件同一目录下进销存表数据库中
'注意:要在工具/引用中引用microsoft activex date objects x.x
' 其中x.x为版本号,可能会因为你安装的office的版本不同而不同,本例引用了2.5版
'发布:http://www.excelba.com
'*******************************************
Dim conn As ADODB.Connection
Dim WN As String
Dim TableName As String
Dim sSql As String
Dim tStr As String
'数据库名,请自行修改,路径与当前工作簿在同一目录
WN = "进销存表.mdb"
'数据库的表名与当前工作表名一致
TableName = ActiveSheet.Name

Set conn = New ADODB.Connection
conn.ConnectionString = "Provider=Microsoft.Jet.Oledb.4.0;" & _
"Extended Properties=Excel 8.0;" & _
"Data Source=" & ThisWorkbook.Path & "\" & ActiveWorkbook.Name
conn.Open
If conn.State = adStateOpen Then
sSql = "Insert Into [;DataBase=" & ActiveWorkbook.Path & "\" & WN & "]." & TableName & " Select * From [" & ActiveSheet.Name & "$]"
conn.Execute sSql
MsgBox "成功把数据插入到“" & TableName & "”中!", , "http://excelba.com"
conn.Close
End If
Set conn = Nothing
End Sub
本回答被提问者采纳
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
收起 1条折叠回答
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式