Mein Beispiel:
Dim qt As QueryTable
Set qt = ActiveSheet.QueryTables.Add(Connection:="ODBC;DSN=tnsname;UID=username;PWD=passwort", Destination:=Range("A1"))
With qt
.CommandType = xlCmdSql
.CommandText = "langer String"
Kann mir jemand helfen?
Danke!