VB連接Excel文件

　　  Private Sub Command_Click()
    Dim conn As New ADODBConnection
    Dim rs As New ADODBRecordset

　　connOpen Provider=MicrosoftJetOLEDB;Data Source=c:axls;Extended Properties=Excel ;HDR=YES;IMEX=
    rsOpen select * from [sheet$] conn adOpenForwardOnly adLockOptimistic

　　Do While Not rsEOF
        Print rs()
        rsMoveNext
    Loop
    rsClose
    End Sub

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

From:http://tw.wingwit.com/Article/program/net/201311/11943.html