Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Textdatei in Unicode-Text konvertieren

Gruppe

TextExport

Problem

Die in Zeile B1 genannte Datei soll in eine Unicode-Datei konvertiert werden.

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

StandardModule: Modul1

Sub SaveAsUniCode()
   Dim arr() As String
   Dim iCounter As Integer
   Dim sText As String, sPath As String
   sPath = Range("B1").Value
   Close
   Open sPath For Input As #1
   Do Until EOF(1)
      Line Input #1, sText
      iCounter = iCounter + 1
      ReDim Preserve arr(1 To iCounter)
      arr(iCounter) = StrConv(sText, vbUnicode)
   Loop
   Close
   Open sPath For Output As #1
      For iCounter = 1 To UBound(arr)
         Print #1, arr(iCounter)
      Next iCounter
   Close
End Sub