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

从excel获取数据并导入访问权限

1 个答案: