Update ein excel-Blatt mit VBA/ADO
Wenn ich diese Funktion ausführen bekomme ich einen Laufzeitfehler, "Operation muss eine aktualisierbare Abfrage verwenden". Was verursacht es?
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
- Was bedeutet constConfigFile Aussehen? Könnte es sein, fehlende Datei-Schreibrechte auf die Datei?
Du musst angemeldet sein, um einen Kommentar abzugeben.
Loszuwerden IMEX=1 aus der Verbindungszeichenfolge. Das funktioniert für mich.