Excel Change Command Text of Connection OCDB

[Zanz19]

Hi,


Ich habe ein Excel file, wo eine Connection mit einer Abrage hinterlegt ist. Diese Abfrage ist ziemlich komplex und nimmt 3 DateParameter. Das Resulat ist in einer PivotTabelle. Nun würde ich gerne den Command Text austauchen, im Grunde ist es der gleiche nur mit anderen Parametern. Ich weiß könnte den Parameter anlegen, das ist aber sehr mühsam da es ein ziemlich langer Query string ist mit vielen tabllen joins und das nachzubauen im Querymode ist etwas mühsam.

In VBA geht das folgendermaßen:

With ActiveWorkbook.Connections("Abfrage von AKK_DATA").ODBCConnection
.BackgroundQuery = False
.CommandText = Array( queryText)
.CommandType = xlCmdSql
.Connection = Array(Array( _
"ODBC;DRIVER=SQL Server;SERVER=servername;UID=Username;Trusted_Connection=Yes;APP=Microsoft Office 2010;WSID=wsidnumn;DATABASE=AKK" _
), Array("_DATA"))
.RefreshOnFileOpen = False
.SavePassword = False
.SourceConnectionFile = ""
.ServerCredentialsMethod = xlCredentialsMethodIntegrated
.AlwaysUseConnectionFile = False
End With

Thanks for help

Continue reading...