HERBERS Excel-Forum - die Beispiele

Thema: Von allen Arbeitsblättern der Mappe HTML-Dateien anlegen

Home

Gruppe

Extern

Problem

Von allen Arbeitsblättern der Arbeitsmappe sollen HTML-Dateien angelegt werden.

Lösung
Den nachstehenden Code in ein Standardmodul eingeben, einer Schaltfläche zuweisen und starten.
StandardModule: Modul1

Sub XL2HTML()
   Dim wks As Worksheet
   Dim iRow As Integer, iCol As Integer
   Dim sFile As String, sPath As String
   sPath = Application.Path
   Close
   For Each wks In ActiveWorkbook.Worksheets
      wks.Select
      sFile = sPath & "\" & wks.Name & ".htm"
      iRow = 1
      Open sFile For Output As #1
      Print #1, "<html><body><table border=1>"
      Do Until IsEmpty(Cells(iRow, 1))
         iCol = 1
         Print #1, "<tr>"
         Do Until IsEmpty(Cells(1, iCol))
            If Not IsEmpty(Cells(iRow, iCol)) Then
               If iRow = 1 Then
                  Print #1, "<th>" & Cells(iRow, iCol) & "</th>"
               Else
                  Print #1, "<td>" & Cells(iRow, iCol) & "</td>"
               End If
            Else
               Print #1, "<td>&nbsp;</td>"
            End If
            iCol = iCol + 1
         Loop
         Print #1, "</tr>"
         iRow = iRow + 1
      Loop
      Print #1, "</table></body></html>"
      Close
   Next wks
   Worksheets(2).Select
   MsgBox "Die Dateien wurden im Verzeichnis " & sPath & " gespeichert!"
End Sub

Beiträge aus dem Excel-Forum zu den Themen Extern und HTML

Unterobj. von html getElements..() weiter parsen HTML in VBA bei Outlook EINLADUNG
Regex für Filterung von Daten in html-seiten Dateiname externer Datei ändern
Tabellenblatt aus externer Exceldatei kopieren ConboBox mit externe Daten füllen
HTML Code von Suchabfrage mit VBA abfragen Excel zu HTML formatieren
Wert in externer Datei suchen Aufruf externer Programme
HTML Farben darstellen Externe Bezüge auslesen mit VBA
Externe Verküpfung anpassen Zelle kopieren - einfügen in HTML Dokument
Pivot mit Externer DB am Limit? Als HTML speichern - variabler Name
HTML-eMailversand Externe Verknüpfungen
Blätter in Externer Arbeitsmappe einblenden externes Verzeichnis ansprechen
Externe Datenquelle via VBA Pivot mit Externer DB UNION funzt nich
Nur externe Bezüge rausnehmen Import von HTML-Datei - Ungewünschte Formatierung
*xlt-Dateien als externe Datenquelle nutzen Externes Programm öffnen
Makro: Bezug auf externes xls-File? Wert an externes Programm übergeben
Externe Excel-Verknüpfungen automatisiert ändern Hyperlinks aus Tabelle in Bookmark.html
Verlinkung externer Arbeitsmappen Tabelle in externer Datei löschen
externe Bezüge suchen/ersetzen neue Zeile und externe Bezüge....
Externe Verknüpfung finden html auto refresh
externe Bezüge Summenprodukt + Externe Bezüge
Datenbank in externer Datei Problem mit HTML-Kopie
Fehler beim Kopieren von externer Tabelle Problem mit HTML-Kopie
anzahl Blätter externer Excel-Datei Externe Daten aus Access
Externe Daten importieren aus Access Zellwert als Parameter f. externes Script/Programm
Übertragung in "Formel" für HTML-Upload Worksheetzugriff auf externe Datei
Dropdown - externe Daten Externe Bezüge