如何從Access 2010連接到Excel xls文件VBA

Question

我有很多用Google搜索這一點，但我無法得到它..

我有一個Excel文件（.xls的）是13K左右..行我希望能夠從Access 2010 VBA連接到它，然後能夠從我的工作中複製需要的數據。

任何人都建議我如何做到這一點。

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 

您也可以參考命名的區域和範圍。您也可以簡單地設置一個查詢並允許用戶創建他們自己的製表查詢。

在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