excel vba 可否用 insert插入資料到工作表

imingho

我試著以下列vba想要新增一筆資料到 excel 2007 工作表, 但卻在紅字處指令(rs.Open sqlcmd, cn)出現下列錯誤訊息
執行階段錯誤'-2147467259 *80004005)'
運作必須使用更新查詢

下載 (145.04 KB)

2017-3-14 08:17

下載 (22.96 KB)

2017-3-14 08:17

請問是否有那裡沒有設定到嗎?  謝謝..

1. Sub main()
   
2. 
   
3. 
   
4.     Dim cn As ADODB.Connection
   
5.     Dim rs As ADODB.Recordset
   
6.     Dim strSQL As String
   
7. 
   
8.     strFile = Excel.ActiveWorkbook.FullName
   
9.    
   
10.    
    
11.     strCon = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & strFile & ";Extended Properties=""Excel 8.0;HDR=Yes;IMEX=1"";"
    
12. 
    
13.     Set cn = CreateObject("ADODB.Connection")
    
14.     Set rs = CreateObject("ADODB.Recordset")
    
15.    
    
16.     cn.Open strCon
    
17.    
    
18.    
    
19.     sqlcmd = "insert into [工作表1$] VALUES ('0145', '李四')"
    
20. 
    
21.     cn.Execute sqlcmd
    
22.    
    
23.    
    
24.    
    
25.    
    
26.   cn.Close
    
27.   Set rs = Nothing
    
28.   
    
29.    
    
30. '     UserForm1.Show
    
31.    
    
32. End Sub

複製代碼

imingho

insert.zip (22 Bytes)

測試檔案
下載次數: 3

2017-3-14 10:04

回復 1# imingho


附上測試檔案.