vba oledb 读取excel的数据

Sub test_oledb()

Dim objconn As ADODB.Connection Dim objrs As ADODB.Recordset Set objconn = New ADODB.Connection objconn.Open "provider=Microsoft.ACE.OLEDB.12.0;extended properties='excel 12.0;hdr=no';data source=C:\temp1\123.xlsb"

stName = "Reconciliation" Dim sql As String sql = "SELECT f4,f5,f6,f7,f8 FROM [" & stName & "$]"      Dim rs As Object   Set rs = CreateObject("ADODB.Recordset")

 Set rs = objconn.Execute(sql)   While Not rs.EOF       Debug.Print rs(1) & "|" & rs(2)       rs.MoveNext   Wend  'wend  while the complete

'copy top 10 rows   shtest.Range("a1").CopyFromRecordset objconn.Execute(sql), 10      objconn.Close      Set objconn = Nothing      Application.ScreenUpdating = True

End Sub

转载于:https://www.cnblogs.com/cancelbug/p/7680525.html