Aktualisieren Sie eine Excel-Tabelle mit VBA / ADO
Wenn ich diese Funktion ausführe, wird der Fehler "Vorgang muss eine aktualisierbare Abfrage verwenden" angezeigt. Was ist der Grund dafür?
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