從Excel中獲取數據並在訪問中導入

Question

我正在使用vba導入一些記錄集中的某些excel行。 我用下面的連接字符串

"Provider=Microsoft.ACE.OLEDB.12.0;Data Source=\\vmware-host\Shared Folders\Luca\Desktop\barcode ean.xlsx;" & _ 
"Extended Properties=""Excel 12.0 Xml;HDR=YES;""" 

與ADODB.Command和我用這個查詢得到的數據

Select * from [Foglio1$] 

現在我看到在我的記錄1500行，但它僅包含88行

我如何獲取所有記錄？

Answer 1

相反ADODB.Command的，而使用ADODB.Connection測試是否爲此：

Sub sofMain20141472Access() 

    Dim cnn, rst 

    On Error GoTo ErrHandler 

    Set cnn = CreateObject("ADODB.Connection") 
    cnn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0" _ 
    & ";Data Source=\\vmware-host\Shared Folders\Luca\Desktop\barcode ean.xlsx" _ 
    & ";Extended Properties=""Excel 12.0 Xml;HDR=YES""" 
    cnn.Open 

' 
    Set rst = cnn.Execute("SELECT * FROM [Foglio1$];") 

' 
' do stuffs on Recordset rst... 
' 
' ... 
' 
' close ADO objects: 
' 
    rst.Close 
    Set rst = Nothing 

    cnn.Close 
    Set cnn = Nothing 

    Exit Sub 
ErrHandler: 
    MsgBox Err.Description 
    Set cnn = Nothing 

End Sub