Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Zellinhalt als Unicode-Zeichen in HTML-Tabelle schreiben

Gruppe

HTML

Problem

Der Text aus Zelle A1 wird in einer HTMLDatei gespeichert, wobei die slowakischen Sonderzeichen in Unicode-Nummern umgewandelt werden.

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

StandardModule: Modul1

Sub Start()
   Dim wks As Worksheet
   Dim iRow As Integer
   Dim sTxt As String, sFile As String
   Application.ScreenUpdating = False
   sFile = Application.DefaultFilePath & "\unicode.html"
   ActiveSheet.Copy
   iRow = 2
   Set wks = ThisWorkbook.Worksheets("Data")
   Do Until IsEmpty(wks.Cells(iRow, 1))
      Cells.Replace _
         what:=wks.Cells(iRow, 1).Value, _
         replacement:=wks.Cells(iRow, 2).Value, _
         lookat:=xlPart, _
         MatchCase:=True
      iRow = iRow + 1
   Loop
   Open sFile For Output As #1
   Print #1, "<html><head>"
   Print #1, "<meta HTTP-EQUIV=""Content-Type"" CONTENT=""text/html; charset=UTF-8"">"
   Print #1, "</head>"
   Print #1, "<body>"
   Print #1, Cells(1, 1).Value
   Print #1, "</body></html>"
   Close
   ActiveWorkbook.Close savechanges:=False
   Shell "explorer " & sFile, vbNormalFocus
   Application.ScreenUpdating = True
End Sub