Получить данные из Excel и импортировать в доступе

Question

Я пытаюсь импортировать некоторые строки Excel в наборе записей, используя VBA. Я использую следующую строку подключения

"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