在VB中建立到excel表的連線，就可以開啟檔案了。。

然後讀取excel檔案的程式碼和VBA差不多，具體的自己除錯下！

下面程式碼要求執行程式碼的電腦上必須安裝了excel程式（這樣可以不新增對excel的引用）。。

Dim xlsApp As Object, xlsWb As Object, xlsWs As Object "定義Excel物件

Set xlsApp = CreateObject("Excel.Application") "建立excel物件

Set xlsWb = xlsApp.Workbooks.Open(fPath) "要開啟的文件路徑

Set xlsWs = xlsWb.Worksheets(1) "選工作表。多張表時透過序號指定不同的表

xlsWs.Activate "選定工作表，下面就可以開始讀取表內容了。

最後資料處理完成後記得執行下面操作：

xlsWb.Close "關閉excel檔案

xlsApp.Quit "退出excel

Set xlsWs = Nothing

Set xlsWb = Nothing

Set xlsApp = Nothing