Ich möchte Webseiten als MHT-Datei in einen FestplattenOrdner speichern. Diese sollen aus Spalte B2:B6 abgearbeitet werden. D.h. wenn der Link aus B2 beabeitet wird, soll die Datei den Namen aus Zelle A2 bekommen plus die Endung .mht. Dazu habe ich im Web nachfolgenden Code gefunden.
Sub SaveAsMHT(ByVal url As String, Optional ByVal path As String = ".")
Dim file As String
path = Sheets("Tabelle1").Range("C2").Value
With CreateObject("CDO.Message")
.CreateMHTMLBody url, 31
file = path & "/" & Sheets("Tabelle1").Range("A2").Value & ".mht"
With CreateObject("Scripting.FileSystemObject")
If .FileExists(file) Then .DeleteFile file, True
End With
.CreateMHTMLBody url
.GetStream.SaveToFile file
End With
End Sub
Sheets("Tabelle1").Range("A2").Value
Bei diesem Codeteil komme ich nicht weiter, dieser soll analog der Zeile in Spalte B sein. D.h. wird Datei aus Zeile 2 Spalte B bearbeitet, so nehme aus der selben Zeile den Dateinamen aus Spalte A.MusterDatei: https://www.herber.de/bbs/user/123119.xlsm
Vielen Dank schon mal im Voraus!
Office Version 2016 Pro 32bit - Windows10 Pro 64 bit
"Wenn du jemanden ohne Lächeln triffst, schenke ihm dein's!"