蝶想

參考資源：

http://www.dotblogs.com.tw/yc421206/archive/2009/01/11/6741.aspx

http://www.dotblogs.com.tw/yc421206/archive/2009/01/07/6668.aspx

方法一：參考excel元件

快速筆記：

1. 打開EXCEL物件模型說明的方法：

打開EXCEL-->Alt+F11-->F1

2. 專案引用方法：

Project-->Add Reference-->COM-->找到Microsoft Excel 12.0 Object Library (2007版本)-->OK

在程式碼上方加入引用字串Imports Microsoft.Office.Interop.Excel

3. 讀取

宣告所需物件

    Public xlsApp As Application
    Public xlsBook As Workbook
    Public xlSheet As Worksheet

建立物件&設定要讀取的檔案

        xlsApp = CreateObject("Excel.Application")
        xlsApp.Visible = True              (讀取才要宣告)
        xlsBook = xlsApp.Workbooks.Open("c:\Train_Source\" & openName & ".xls")
        xlSheet = xlsBook.Worksheets(1)
        xlSheet.Activate()

指定要讀取的儲存格

        xlSheet.Cells(數字, 數字).Value (要有.Value才能讀取的到值！)

4. 寫入

方法二：使用oledb操作

Provider=Microsoft.Jet.OLEDB.4.0; Data Source=A.xls; Extended Properties='Excel 8.0;HDR=YES;IMEX=1'

HDR=YES : 表示第一列當欄位名稱
IMEX=1 : 表示不管啥麼型態, 一律用String讀出