摘要:透過ADO存取xls檔案的方法
Dim cn As Object Set cn = CreateObject("ADODB.Connection") With cn .Provider = "Microsoft.Jet.OLEDB.4.0" .ConnectionString = "Data Source=D:\BACKUP\28F95.xls;Extended Properties=Excel 8.0;" .Open End With Dim SQLTXT As String 'AAA代表工作表名稱 SQLTXT = "SELECT * FROM [AAA$] WHERE ([廠商代碼]=B0006)" Dim rs As Object Set rs = CreateObject("ADODB.RecordSet") With rs .CursorLocation = adUseClientBatch .CursorType = adOpenDynamic .LockType = adLockOptimistic .ActiveConnection = cn End With
以下是簽名:
- 歡迎轉貼本站的文章,不過請在貼文主旨上加上【轉貼】,並在文章中附上本篇的超連結與站名【topcat姍舞之間的極度凝聚】,感恩大家的配合。
- 小喵大部分的文章會以小喵熟悉的語言VB.NET撰寫,如果您需要C#的Code,也許您可以試著用線上的工具進行轉換,這裡提供幾個參考
Microsoft MVP Visual Studio and Development Technologies (2005~2019/6) | topcat Blog:http://www.dotblogs.com.tw/topcat |