|
Hallo zusammen,
für eine Abfrage zur Erstellung von Kunden-Kaufhistorien nutze ich die Funktion "Daten aus dem Web". Der erforderliche Link hierfür unterscheidet sich immer durch die Kundennummer. Zur Automatisierung wollte ich ein Makro erstellen.
Bei der Aufzeichnung des Makros habe ich den Web-Link zuerst in die Zwischenablage kopiert und dann bei der Auffordrung "aus dem Web" eingefügt. Leider hat das aufgezeichnete Makro als Datenquelle nun den Inhalt der Zwischenablage fest hinterlegt (fett markiert).
Die Quelle soll sich aber jedes mal - je nach Inhalt der Zwischenablage- ändern.
Kann mir hier bitte jemand behilflich sein, wie ich den fett markierten Teil abändern muß, so daß zukünftig bei der Quelle immer der Inhalt aus der Zwischenablage eingefügt wird?
Range("A6").Select
Selection.Copy
ActiveWorkbook.Queries.Add Name:="Table 0", Formula:= _
"let" & Chr(13) & "" & Chr(10) & " Quelle = Web.Page(Web.Contents(""http://report.lan/reportsrv/de81/kunde/dhist/1736358801.htm""))," & Chr(13) & "" & Chr(10) & " Data0 = Quelle{0}[Data]," & Chr(13) & "" & Chr(10) & " #""Höher gestufte Header"" = Table.PromoteHeaders(Data0, [PromoteAllScalars=true])," & Chr(13) & "" & Chr(10) & " #""Geänderter Typ"" = Table.TransformColumnTypes(#""Höher gestufte Header"",{{""Auftr.Dat."", type text}, {""Auftr.Num."", type tex" & _
"t}, {""War.gr."", type text}, {""Mat.Nr."", type text}, {""Materialbez."", type text}, {""Materialbez._1"", type text}, {""Menge"", type text}, {""Brutto"", type text}, {""Rab %"", type text}, {""Nettopr. PE"", type text}, {""PE"", type text}, {""Kond.art"", type text}, {""Pr.li."", type text}, {""Pos."", type text}, {""V.weg"", type text}, {""A.ADM"", type text}, {" & _
"""Fakt.dat."", type date}, {""Faktura"", Int64.Type}})" & Chr(13) & "" & Chr(10) & "in" & Chr(13) & "" & Chr(10) & " #""Geänderter Typ"""
ActiveWorkbook.Worksheets.Add
Vielen Dank vorab schon mal!
|