请教ACCESS如何写VBA批量导入excel

civl · 发表于 2015-10-25 18:08

想要的数据在excel中，求教如何写VBA一次性批量导入第十行开始的数据？
另外，access数据库中有张“基础数据”的表，需要把文件名和sheet的名字也加到表中去。
谢谢。

导入测试.rar (44.61 KB, 下载次数: 16)

roych · 发表于 2015-10-29 11:25

1、把这里改改：
= "SELECT * FROM [Excel 12.0;Database=" & 路径 & "\" & 行进目录 & ";HDR=No].[数据$A10:D1000] "，不过我可能会考虑使用Insert语句而不是使用ADO
2、需要导入表名称，应使用ADOX或者Excel组件。
3、如果需要批量的话，可能还需要使用FileDialog或者FileSystemObject，分别引用Office库或者Scripting Runtime库。前者会弹出选择文件的路径，后者则会遍历文件夹内的文件。
大体代码如下：
dim fd as FileDialog
dim exl as new excel.application
dim wb as workbook
dim ws as worksheet
set fd=application.FileDialog(msoFileDialogFilePicker)
with fd
      .msoFileDialogFilePicker=ture
   if .show=-1 then
         set wb=exl.open(.SelectedItems(i))
         set ws=exl.activesheet
         '以下开始获取文件名并导入，代码从略。
end if
end with
exl.quit

civl · 发表于 2015-10-31 14:42

roych 发表于 2015-10-29 11:25
1、把这里改改：
= "SELECT * FROM [Excel 12.0;Database=" & 路径 & "\" & 行进目录 & ";HDR=No].[数据$A ...

谢谢，我自己也改了。

导入excel数据.rar (43.99 KB, 下载次数: 97)

		自动登录	找回密码
密码			免费注册