从Excel中获取数据并导入访问

我正在使用vba导入一些logging集中的一些excel行。 我使用下面的连接string

"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$] 

现在我应该在我的logging集中看到1500行，但它只包含88行

我如何获得所有logging？

Answer 1

而不是ADODB.Command，而是使用ADODB.Connection来testing，如下所示：

 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