执行此功能时,出现运行时错误,“操作必须使用可更新的查询”。是什么原因造成的?
Function updateConfigFile(strQuery As String)
Dim cnn As ADODB.Connection
Dim objMyCmd As ADODB.Command
Set cnn = New ADODB.Connection
Set objMyCmd = New ADODB.Command
constConfigFile = "MyWorkbookName"
With cnn
.Provider = "Microsoft.Jet.OLEDB.4.0"
.ConnectionString = "Data Source=" & ActiveWorkbook.Path & constConfigFile & ";" & _
"Extended Properties=""Excel 8.0;HDR=Yes;IMEX=1"";"
.Open
End With
strQuery = "update [test$] Set [test]='Hello' WHERE [Test]='h'"
objMyCmd.CommandType = adCmdText
objMyCmd.CommandText = strQuery
objMyCmd.ActiveConnection = cnn
objMyCmd.Execute
Set objMyCmd = Nothing
Set cnn = Nothing
End Function
最佳答案
从您的连接字符串中摆脱IMEX = 1。这对我行得通。
.ConnectionString = "Data Source=" & ActiveWorkbook.Path & constConfigFile & ";" & _
"Extended Properties=""Excel 8.0;HDR=Yes;"";"