"let" & Chr(13) & "" & Chr(10) & " Quelle = Sql.Databases(""de-sql-01"")," & Chr(13) & "" & Chr(10) & " LTrace = Quelle{[Name=""LTrace""]}[Data]," & Chr(13) & "" & Chr(10) & " dbo_LPQ_Material = LTrace{[Schema=""dbo"",Item=""LPQ_Material""]}[Data]" & Chr(13) & "" & Chr(10) & "in" & Chr(13) & "" & Chr(10) & " dbo_LPQ_Material"
ActiveWorkbook.Worksheets.Add
With ActiveSheet.ListObjects.Add(SourceType:=0, Source:= _
"OLEDB;Provider=Microsoft.Mashup.OleDb.1;Password=!Rd2017;Data Source=$Workbook$;Location=LPQ_Material;Extended Properties=""""" _
, Destination:=Range("$A$1")).QueryTable
.CommandType = xlCmdSql
.CommandText = Array("SELECT * FROM [LPQ_Material]")
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.PreserveColumnInfo = True
.ListObject.DisplayName = "LPQ_Material"
.Refresh BackgroundQuery:=False
End With
Ich möchte den Begriff "LPQ_Material" in eine Variable stecken und die o.g. Prozedur mit Variablen ausführen.
Hier wird eine SQL Datenbank abgerufen und in ein Excel übergeben, was auch soweit funktioniert.
Die o.g. Prozedur ist eine von mehreren, wobei sich immer nur der Begriff(dann die Variable) ändert.
Kann mir hier jemand helfen? Habe die Prozedur mit dem Makro Recorder aufgezeichnet, jedoch komme ich so nicht weiter.
Außerdem wird manchmal Passwort... immer wieder abgefragt, obwohl dies ja hier im Code vorhanden ist, wie kann ich auch diese Parameter in Variablen verwenden und sauber übergeben?