透過ODBC載入XLS資料庫

透過ODBC載入XLS資料庫 - 小瓜瓜 首頁

---

●有一個名為c:\classmate.xls的Excel檔案，用ADO透過ODBC把他讀出來。

Private Sub Command1_Click() Dim Con As Object, Res As Object Set Con = CreateObject("ADODB.Connection") Set Res = CreateObject("ADODB.Recordset") Con.Open ("DRIVER=Microsoft Excel Driver (*.xls);DBQ=c:\classmate.xls") Res.Open "[sheet1$]", Con 'Excel工作表名稱 + $ 才是Table的名稱喔   For i = 0 To Res.Fields.Count - 1 Print Res.Fields(i).Name, Next Print Do Until Res.EOF For i = 0 To Res.Fields.Count - 1 Print Res.Fields(i).Value, Next Print Res.MoveNext Loop End Sub

●資料出來了，但欄位名稱有點奇怪..欄位名稱在Excel裡要打在第一列才行。