VB串連Excel檔案

菜單 [工程]-[引用] Microsoft ActiveX Data Objects 2.x (找一個高版本的)

Private Sub Command2_Click()
Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset

conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:a.xls;Extended Properties='Excel 8.0;HDR=YES;IMEX=1'"
rs.Open "select * from [sheet1$]", conn, adOpenForwardOnly, adLockOptimistic

Do While Not rs.EOF
    Print rs(0)
    rs.MoveNext
Loop
rs.Close

End Sub

HDR和IMEX一定要配合使用，HDR表示要把第一行作為資料還是作為列名，作為資料用hdr=no,作為列名用hdr=yes；通過Imex=1來把混合型作為文本型讀取，避免null值。