Kann keine QueryTable anlegen
29.05.2009 08:41:14
André
nachdem ich ja bereits Probleme hatte, eine in einer Tabelle angelegte QueryTable per VBA zu manipulieren (siehe https://www.herber.de/forum/messages/1077693.html ), habe ich nun versucht, die QueryTable direkt in VBA zu erstellen.
Dabei habe ich den Beispielcode aus der Excelhilfe kopiert und lediglich den SQL-String sowie den Connect-String angepasst:
Dim qt As QueryTable
sqlstring = "SELECT DatenTabelle.Rohertrag FROM DatenTabelle DatenTabelle"
connstring = "DSN=Excel Files;DBQ=C:\Eigene Dateien\MusterDaten.xlsx;DefaultDir=C:\Eigene _
Dateien;DriverId=1046;MaxBufferSize=2048;PageTimeout=5;"
With ActiveSheet.QueryTables.Add(Connection:=connstring, Destination:=Range("A34"), Sql:= _
sqlstring)
.Refresh
End With
Tja, beim Versuch das laufen zu lassen, bekomme ich jedes Mal einen Fehler 1004, und zwar in der Anweisung With Active.Sheet.QueryTables.Add ...
Kann mir jemand einen Tip geben, was ich falsch mache? Danke.
Gruß, André