提供一個VB 用OLEDB 連結 EXECL 2007 的函式

剛學VB沒多久，提供給跟我一同尋找這個方法的朋友們
自己寫的，有任何缺點請不吝指教
也請各位前輩，有任何更有效或其他的方法請盡情提供

1. Public Function ReadFromExcel_OLEDB(ByVal ExcelPath As String, ByVal ExcelName As String, ByVal SQL_Cmd As String, Optional ByVal NickName As String = "A") As DataSet
   
2. Dim ConnectionS As String = ("Provider=Microsoft.ACE.OleDb.12.0;Data Source=" & ExcelPath + ExcelName & ";Extended Properties=Excel 12.0")
   
3. Dim Cn As New OleDb.OleDbConnection(ConnectionS)
   
4. Cn.Open()
   
5. 
   
6. Dim Cmd As New OleDb.OleDbCommand(SQL_Cmd, Cn)
   
7. Dim Da As New OleDb.OleDbDataAdapter(Cmd)
   
8. Dim Ds As New DataSet
   
9. Da.Fill(Ds, NickName)
   
10. 
    
11. ReadFromExcel_OLEDB = Ds
    
12. 
    
13. Da.Dispose()
    
14. Da = Nothing
    
15. Ds.Dispose()
    
16. Ds = Nothing
    
17. Cn.Dispose()
    
18. Cn = Nothing
    
19. Cmd.Dispose()
    
20. Cmd = Nothing
    
21. End Function

複製代碼

到微軟下載中心 搜尋 " 2007 Office system 驅動程式：資料連線元件"
也可以找到其他ODBC 連結的方法喔 ^^
權限不夠 無法連結 請多包涵...

瀏覽完整內容，請先 註冊 或 登入會員

其中  SQL_Cmd  可以用下列範例代入 即可

1. Dim SQL_Cmd As String = "select * from [sheet1$]"
   
2.         Dim Ds As DataSet = ReadFromExcel_OLEDB(FilePath, FileName, SQL_Cmd)
   
3.         With Ds.Tables("A")
   
4.             Dim B(.Rows.Count - 1) As String
   
5.             For i As Integer = 0 To .Rows.Count - 1
   
6.                 B(i) = .Rows(i).Item(0)
   
7.             Next
   
8.         End With

複製代碼

...

瀏覽完整內容，請先 註冊 或 登入會員

rickyweng

對於有需要的人真的很實用~~
謝謝大師分享^^

leonchang

感謝大師分享
讓新手的我有了方向

flylikeann9

剛剛測試了一下一直出問題



我在設定ODBC的那裏一直顯示我的驅動錯誤
我也有下載 "2007 Office system 驅動程式：資料連線元件"
安裝完問題也是一樣

辜狗一下好像是我系統是 W7 X64的關係
目前還找不到解決