ActiveWorkbook.Queries.Add mit Parameter
19.06.2020 14:35:11
Michael
ich möchte gerne eine Queryabfrage mit Parameter automatisieren. Aktuell habe ich folgenden Code:
ActiveWorkbook.Queries.Add Name:="Page001", Formula:= _
"let" & Chr(13) & "" & Chr(10) & " Quelle = Pdf.Tables(File.Contents(""c:\DateinameX.pdf""), [Implementation=""1.1""])," & Chr(13) & "" & Chr(10) & " Page1 = Quelle{[Id=""Page001""]}[Data]," & Chr(13) & "" & Chr(10) & " #""Höher gestufte Header"" = Table.PromoteHeaders(Page1, [PromoteAllScalars=true])," & Chr(13) & "" & Chr(10) & " #""Geänderter T" & _
"yp"" = Table.TransformColumnTypes(#""Höher gestufte Header"",{{""Column1"", type text}, {""Column2"", type text}, {""Column3"", type text}, {""Column4"", type text}, {""Column5"", type text}, {""Report-ID 2540"", type text}, {""Column7"", Int64.Type}, {""Column8"", type text}, {""Column9"", type text}})" & Chr(13) & "" & Chr(10) & "in" & Chr(13) & "" & Chr(10) & " #""Geänderter Typ"""
Statt die komplette URL anzugeben, möchte ich eine Variable nutzen für den Dateinamen, um weitere PDFs einlesen zu können. Das geht aber einfach nicht. Weiß jemand eine Lösung?
Besten Dank.
Michael H