Microsoft Excel

Herbers Excel/VBA-Archiv

Html Speichern mit Namen aus Zelle

Betrifft: Html Speichern mit Namen aus Zelle von: Chris
Geschrieben am: 13.11.2014 09:36:54

Hallo zusammen,
ich habe einen code, der eine html Datei mit dem Namen EASA.html erzeugt. Ich möchte nun aber nicht, dass die Datei EASA.html heißt, sondern der Name aus eine bestimmten Zelle in der Arbeitsmappe gelesen wird, also "Inhalt aus Zelle A1".html. Ich freue mich auf eure Hilfe.

Sheets("Gesamt").Select

Dim fsDatei As Object
Dim fsinhalt As Object

Set fsDatei = CreateObject("Scripting.FileSystemObject")
fsDatei.CreateTextFile "C:\EASA.html"

Set fsDatei = fsDatei.getfile("C:\EASA.html")

Set fsinhalt = fsDatei.OpenAsTextStream(2, -2)

fsinhalt.write "" & vbLf
fsinhalt.write "" & vbLf & vbLf

Sheets("Filterergebnis").Select

For Each xZ In Range("a1:a1000")
a = xZ.Value
fsinhalt.write a
Next xZ

fsinhalt.write "" & vbLf
fsinhalt.write ""
fsinhalt.Close

Sheets("Gesamt").Select

Dim destination As String
Pfad = ThisWorkbook.Path & "\EASA.html"
Set wshshell = CreateObject("WScript.Shell")
wshshell.Run Pfad

  

Betrifft: AW: Html Speichern mit Namen aus Zelle von: {Boris}
Geschrieben am: 13.11.2014 09:46:47

Hi Chris,

Sheets("Gesamt").Select

Dim fsDatei As Object
Dim fsinhalt As Object
Dim myName as String

myName = Worksheets("Tabelle1").Range("A1").Text 'Das muss Du anpassen!

Set fsDatei = CreateObject("Scripting.FileSystemObject")
fsDatei.CreateTextFile "C:\" & myName & ".html"

Set fsDatei = fsDatei.getfile("C:\" & myName & ".html")

Set fsinhalt = fsDatei.OpenAsTextStream(2, -2)

fsinhalt.write "" & vbLf
fsinhalt.write "" & vbLf & vbLf

Sheets("Filterergebnis").Select

For Each xZ In Range("a1:a1000")
a = xZ.Value
fsinhalt.write a
Next xZ

fsinhalt.write "" & vbLf
fsinhalt.write ""
fsinhalt.Close

Sheets("Gesamt").Select

Dim destination As String
Pfad = ThisWorkbook.Path & "\" & myName & ".html"
Set wshshell = CreateObject("WScript.Shell")
wshshell.Run Pfad
VG, Boris


  

Betrifft: AW: Html Speichern mit Namen aus Zelle von: Chris
Geschrieben am: 13.11.2014 13:53:29

Hallo Boris,
vielen Dank für Deine Hilfe. Das klappt soweit schon, dass er die html Datei unter dem gewünschten Namen speichern. Er bleibt dann aber bei der letzten Zeile (wshshell.Run Pfad) stehen und meldet: Die Methode 'Run' für das Object 'IWshsehll3' ist fehlgeschlagen. Vielleicht weißt Du ja noch Rat hierfür. Aber allein das korrekte Speichern ist schon viel Wert. Danke!


  

Betrifft: AW: Html Speichern mit Namen aus Zelle von: Chris
Geschrieben am: 14.11.2014 11:38:46

Hat sich erledigt, ich hatte ein Leerzeichen im zu erstellendem Dateinamen. Das war der Fehler, Danke nochmal


 

Beiträge aus den Excel-Beispielen zum Thema "Html Speichern mit Namen aus Zelle"