GBKEE

回復 10# c_c_lai
9#程式的前提是已執行8#附檔的 ipchange()
如會溢位應資料量大時是  C As Integer

c_c_lai

回復 11# GBKEE
順帶請教您：
以下測試於2003 Excel中， 於 Set cnn 後發現 cnn 值為 ""，
所以在 .Open 時便出錯了。在工具->設定引用項目中要注意那些項次？
但是此語法在 2010 環境下執行都 OK，正確應如何處裡？
P.S. 這是我在 Excel工作表單與Access資料庫的VBA互動問題 中的提問，
     此部分是為了要同時以 ADODB 語法來處理工作表單內之資料錄而設定的。

1. Sub Test()
   
2.     Dim cnn As Object       '  New ADODB.Connection
   
3.     Dim cmd As Object       '  New ADODB.Command
   
4.     Dim rs As Object        '  New ADODB.Recordset
   
5. 
   
6.     Set cnn = CreateObject("ADODB.Connection")
   
7.     Set rs = CreateObject("ADODB.Recordset")
   
8.     Set cmd = CreateObject("ADODB.Command")
   
9. 
   
10.     With cnn
    
11.         If .State = 1 Then .Close    '  adStateOpen
    
12.         
    
13.         .ConnectionString = "Driver={Microsoft Excel Driver (*.xls, *.xlsx, *.xlsm, *.xlsb)};DBQ=" & _
    
14.                             ActiveWorkbook.Path & Application.PathSeparator & ActiveWorkbook.Name
    
15.         .Open     
    
16.     End With
    
17. End Sub

複製代碼

GBKEE

回復 12# c_c_lai
http://neural.cs.nthu.edu.tw/jan ... asp?SessionCount=11
http://support.microsoft.com/kb/257819/zh-tw#RetrieveMetadata
http://www.blueshop.com.tw/board ... 10110153028R5I.html

1. Sub Test()
   
2.     Dim cnn As Object       '  New ADODB.Connection
   
3.     Dim cmd As Object       '  New ADODB.Command
   
4.     Dim rs As Object        '  New ADODB.Recordset
   
5. 
   
6.     Set cnn = CreateObject("ADODB.Connection")
   
7.     Set rs = CreateObject("ADODB.Recordset")
   
8.     Set cmd = CreateObject("ADODB.Command")
   
9. 
   
10.     With cnn
    
11.         If .State = 1 Then .Close    '  adStateOpen
    
12.         .Provider = "Microsoft.Jet.OLEDB.4.0"
    
13.        ' .ConnectionString = "Driver={Microsoft Excel Driver (*.xls, *.xlsx, *.xlsm, *.xlsb)};DBQ=" & _
    
14.                             ActiveWorkbook.Path & Application.PathSeparator & ActiveWorkbook.Name
    
15.         .Open ActiveWorkbook.Path & "\機票記錄明細表.mdb"
    
16.     End With
    
17. End Sub

複製代碼

c_c_lai

回復 13# GBKEE
謝謝您！

1. .Open ActiveWorkbook.Path & "\機票記錄明細表.mdb"

複製代碼

事實上我並不是要開啟 "機票記錄明細表.mdb"，而是要指向已開啟的 Excel 本身，
因為接下來要查詢、刪除、新增、或更新的標的均為  Excel 本身指定的工作表單
資料錄而非 Access 資料庫的資料錄。
謝謝您！

loveinput

感謝大家的回覆與幫忙!!