ich bin schon gefühlt den ganzen Tag an einer eigentlich simplen Sache dran.
Undzwar hab ich eine Tabelle in
A1 steht der Speicherpfad (Dateiname ist Variabel)
A2 steht der Link (Link ist Variabel)
In unserem Firmennetzwerk kann ich auf unsere Lieferscheine zugreifen (webbasiert) nun möchte ich diese Inhalte als Webseite (htm) abspeichern um später damit weiter zu arbeiten.
Ich habe mir aus dem Internet mehrere Makro-Schnipsel gesucht aber komme einfach nicht weiter. Das Makro muss eigentlich nur folgendes können:
Im Hintergrund den Link aus A2 unter dem Namen aus D1 als .htm abspeichern
Das alles soll im Hintergrund passieren.
Meine Datei hab ich hier hochgeladen
https://www.herber.de/bbs/user/149193.xlsm
Mein Makro sieht bisher so aus
Call URL_Load
End Sub
Private Sub URL_Load()
Dim sUrl As String
Dim appIE As Object
Dim sTxt As String
Set appIE = CreateObject("InternetExplorer.Application")
sUrl = Tabelle1.Range("A2").Value
appIE.navigate sUrl
Do: Loop Until appIE.Busy = False
Do: Loop Until appIE.Busy = False
sTxt = appIE.document.DocumentElement.outerHTML
Set appIE = Nothing
Close
Open ThisWorkbook.Path & Worksheets("Tabelle1").Range("D1").Value For Output As #1
Print #1, sTxt
Close
End Sub
Public Sub Import_HTML()
Dim objWorkbook As Workbook
Application.ScreenUpdating = False
Set objWorkbook = Workbooks.Open(Filename:="C:\Users\mkoer\AppData\Local\Temp\test.htm")
Call objWorkbook.Worksheets(1).Move(Before:=ThisWorkbook.Worksheets(1))
Application.ScreenUpdating = True
Set objWorkbook = Nothing
End Sub