Question

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

D:\A 文件夹中有500个统一格式的excel表格，如何将其批量导入到ACCESS中？

Answer 1

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

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

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

第四步，主界面如图

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

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

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

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

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

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

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

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

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

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

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

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

Answer 2

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

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

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

追问

重复500次么？

追答

可以试试选择文件时批量选择。

Answer 3

用程序吧,写个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