返回列表 上一主題 發帖

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

imingho
　暱稱: 彰化一整天

中學生Rank: 2

帖子
56 
主題
11 
精華
0 
積分
115 
點名
0  
作業系統
windows 
軟體版本
windows 7 
閱讀權限
20 
性別
男 
註冊時間
2013-3-13 
最後登錄
2023-7-13 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2017-3-14 08:19 | 只看該作者

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

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



請問是否有那裡沒有設定到嗎?  謝謝..
  1. Sub main()


  4.     Dim cn As ADODB.Connection
  5.     Dim rs As ADODB.Recordset
  6.     Dim strSQL As String

  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"";"

  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', '李四')"

  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
　暱稱: 彰化一整天

中學生Rank: 2

帖子
56 
主題
11 
精華
0 
積分
115 
點名
0  
作業系統
windows 
軟體版本
windows 7 
閱讀權限
20 
性別
男 
註冊時間
2013-3-13 
最後登錄
2023-7-13 
2#
發表於 2017-3-14 10:05 | 只看該作者
insert.zip (22 Bytes) 回復 1# imingho


附上測試檔案.

TOP

        靜思自在 : 【行善要及時】行善要及時，功德要持續。如燒開水一般，未燒開之前千萬不要停熄火候，否則重來就太費事了。
返回列表 上一主題