HTML Dateien per Makro erstellen
13.01.2023 16:30:41
Chrissi
ich habe eine Excel Datei in der in Spalten Umsatzzahlen je Quartal stehen, in den Zeilen steht der Kunde. Ich möchte je Zeile eine Datei im HTML Format erstellen. Die Umsatzzahlen werden dann in ein HTML Code eingebettet, so daß es später schön aussieht.
Ich schaffe es bereits mit einem zusammenkopierten Code die Dateien massenhaft zu erzeugen, allerdings ohne UFT-8 Format. Hat jemand eine Idee, wie ich die Formatierung hineinbekomme? Ich habe bereits einiges versucht, jedoch hat nichts davon mit meinem bestehenden Code zusammengearbeitet.
Vielen Dank im Voraus.
VG
Chrissi
Sub ErstelleDateien()
Ziel = Environ("USERPROFILE") & "\Downloads\347\"
Stellen = 3
Typ = ".htm"
AbZeile = 2
Spalte = "A"
Zeile = AbZeile
Nr = 1000001
Set fso = CreateObject("Scripting.FileSystemObject")
Do While Cells(Zeile, Spalte).Value ""
fso.CreateTextFile(Ziel & Cells(Zeile, 31).Value).Write Cells(Zeile, 32).Value & " " & _
Cells(Zeile, 33).Value & " " & Cells(Zeile, 34).Value & " " & Cells(Zeile, 35).Value & " " & Cells(Zeile, 36).Value & " " & _
Cells(Zeile, 37).Value & " " & Cells(Zeile, 38).Value & " " & Cells(Zeile, 39).Value & " " & Cells(Zeile, 40).Value
Zeile = Zeile + 1
Nr = Nr + 1
Loop
End Sub