HERBERS Excel-Forum - die Beispiele

Thema: VBA-generierte HTML-Sequenz HTML-formatiert in Tabelle

Home

Gruppe

Extern

Problem

Wenn Sie aus einem HTML-Dokument Text kopiert haben, können Sie diesen über die Zwischenablage in ein ExcelArbeitsblatt einfügen. Die gleiche Funktionalität wird hier für über VBA generierten HTML-Code zur Verfügung gestellt.

Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.
StandardModule: Modul1

Private Declare Function RegisterClipboardFormat Lib "user32" _
   Alias "RegisterClipboardFormatA" (ByVal lpString As String) _
   As Long

Sub GetHTML()
   HTMLToClipboard "<html><body><table><tr width=""240"">" & _
      "<td bgcolor=""blue""><font color=""yellow""><b>" & _
      "Dies ist ein Beispieltext</b></font></td></tr></table></body></html>"
End Sub

Public Sub HTMLToClipboard(HTMLText As String)
   Dim nCFHTML As Long
   Dim nClipboardText As String
   
   nCFHTML = RegisterClipboardFormat("HTML Format")
   
   nClipboardText = "Version:0.9" & vbCrLf
   nClipboardText = nClipboardText & "StartHTML:-1" & vbCrLf
   nClipboardText = nClipboardText & "EndHTML:-1" & vbCrLf
   nClipboardText = nClipboardText & "StartFragment:000081" & vbCrLf
   nClipboardText = nClipboardText & "EndFragment:°°°°°°" & vbCrLf
   
   nClipboardText = nClipboardText & HTMLText & vbCrLf
   
   nClipboardText = Replace(nClipboardText, "°°°°°°", _
      Format$(Len(nClipboardText), "000000"))
   
   With New DataObject
      .Clear
      .SetText StrConv(nClipboardText, vbFromUnicode), nCFHTML
      .PutInClipboard
   End With
   Range("A1").Select
   ActiveSheet.Paste
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