Macro oder VBA für webimport
27.06.2022 11:05:04
Johannes
mein Makro hat auf den ersten Blick funktioniert, aber jetzt stellte ich fest, dass immer dieselben daten eingefügt werden und nicht die aus dem Zwischenspeicher
So mache ich es bis jetzt manuell.
1.)ich kopiere einen HTML File im Chrome Browser mit ctrA und ctrC.
2.) in neuem Arbeitsblatt füge ich in A1 mit ctrV ein.
3.) klicke ich in der kleine Box einfüge Optionen die erscheint auf "aktualisierbare Webabfrage"
4.) im nun erscheinenden Fenster"neue Webabfrage" klicke ich auf importieren.
5.) jetzt erscheint der Seiteninhalt wunderbar formatiert in spalte A:N.
Alles gut.
Jetzt möchte ich das Gleiche mit einem Makro machen, was auch funktioniert,
aber leider immer mit den gleichen daten die beim Makro aufnehmen verwendet wurden.
Kann ich das Makro ändern, dass immer die daten aus der Zwischenablage verwendet werden
oder gibts eine andere Lösung?
Anbei der code den ich gerade verwende, der zweite teil mit dem Einfügen der Maske funktioniert prima
Lg
Johannes
Sub Imp_and_Mask()
' Imp_and_Mask Makro
' Tastenkombination: Strg+q
Range("A1").Select
ActiveWorkbook.Worksheets.Add
With ActiveSheet.QueryTables.Add(Connection:= _
"URL;file:///file:///G:/FTP_Main_Folder/ANT/KW26_Demo_Stars/PSS_FX_OPTI/statement.htm", _
Destination:=Range("$A$1"))
.Name = "statement"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = False
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.WebSelectionType = xlEntirePage
.WebFormatting = xlWebFormattingAll
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = False
.WebDisableRedirections = False
.Refresh BackgroundQuery:=False
End With
' betimmen des Blattes von dem kopiert wird
Dim mask As Worksheet
Set mask = Sheets("Maske")
' abspeichern des aktiven ArbeitsBlattes
Dim ws1 As Worksheet
Set ws1 = ActiveSheet
Columns("O:O").Select
Sheets("Maske").Select
ActiveWindow.Zoom = 85
ActiveWindow.Zoom = 55
ActiveWindow.Zoom = 40
ActiveWindow.Zoom = 25
Columns("O:DL").Select
Selection.Copy
ws1.Select
Columns("O:O").Select
ActiveSheet.Paste
End Sub