Question

我已经用Google搜索了很多但是我无法接受它......

我有一个大约13K行的excel文件（.xls）..我希望能够从Access 2010 VBA连接到它，然后能够从我的工作中复制数据。< / p>

任何人都建议我如何做到这一点。

Answer 1

您可以在MS Access中创建查询：

INSERT INTO Table1 
SELECT FROM [Excel 8.0;HDR=YES;DATABASE=Z:\Docs\Test.xlsm].[Sheet1$] s
WHERE s.SomeField=2

或者

SELECT * INTO Table1 
FROM [Excel 8.0;HDR=YES;DATABASE=Z:\Docs\Test.xlsm].[Sheet1$] s
WHERE s.SomeField=2

您还可以参考命名范围和范围。您还可以简单地设置查询并允许用户创建自己的make表查询。

在VBA中

 Dim db As Database
 Set db = CurrentDB

 ssql="SELECT * INTO Table1 " _
  & "FROM [Excel 8.0;HDR=YES;DATABASE=Z:\Docs\Test.xlsm].[Sheet1$] s " _
  & "WHERE s.SomeField=2"
 db.Execute ssql, dbFailOnError

如何从Access 2010 VBA连接到Excel xls文件

1 个答案: