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

　暱稱: 彰化一整天

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2017-3-14 08:19 | 只看該作者

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

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

Sub main()
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim strSQL As String
strFile = Excel.ActiveWorkbook.FullName
strCon = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & strFile & ";Extended Properties=""Excel 8.0;HDR=Yes;IMEX=1"";"
Set cn = CreateObject("ADODB.Connection")
Set rs = CreateObject("ADODB.Recordset")
cn.Open strCon
sqlcmd = "insert into [工作表1$] VALUES ('0145', '李四')"
cn.Execute sqlcmd
cn.Close
Set rs = Nothing
' UserForm1.Show
End Sub