Hallo an alle,

ich habe folgendes Problem. Ich bin gerade dabei einen Export in .txt (.properties.) Dateien per Excel-Makro zu erstellen. Das funktioniert auch soweit. Allerdings spuckt der Export im Falle einer chinesischen Übersetzung nur Fragezeichen aus. Ich habe mir sagen lassen, dass ich den Export eventuell in Unicode formatieren muss, dass die chinesischen Schriftzeichen korrekt angezeigt werden.

Leider weiß ich nicht, wie ich das in VBA integrieren soll. Könnt ihr mir hierbei helfen?

Vielen Dank für eure Hilfe :) Der Code ist folgender:

Public Sub Export()

Dim Folder As String
Dim Answer As Integer

Folder = "C:\Export_Translation"

  If Dir(Folder, vbDirectory) <> "" Then
      MsgBox "Export to " & Folder & "."
  Else
  Answer = MsgBox("The Folder " & Folder & " doesn't exist." _
          & vbNewLine _
          & "create the Folder?", vbYesNo)
      If Answer = vbYes Then
      MkDir Folder
      MsgBox "Folder " & Folder & " created."
      End If
  End If

Dim Area As Range
Dim Pfad As String


If ActiveSheet.Name = "DE" Then
    Pfad = "C:/Export_Translation/nls_de.properties"
ElseIf ActiveSheet.Name = "EN" Then
    Pfad = "C:/Export_Translation/nls_en.properties"
ElseIf ActiveSheet.Name = "CN" Then
    Pfad = "C:/Export_Translation/nls_cn.properties"
ElseIf ActiveSheet.Name = "ES" Then
    Pfad = "C:/Export_Translation/nls_es.properties"
ElseIf ActiveSheet.Name = "FR" Then
    Pfad = "C:/Export_Translation/nls_fr.properties"
ElseIf ActiveSheet.Name = "IT" Then
    Pfad = "C:/Export_Translation/nls_it.properties"
ElseIf ActiveSheet.Name = "RU" Then
    Pfad = "C:/Export_Translation/nls_ru.properties"
ElseIf ActiveSheet.Name = "CZ" Then
    Pfad = "C:/Export_Translation/nls_cz.properties"
ElseIf ActiveSheet.Name = "BG" Then
    Pfad = "C:/Export_Translation/nls_bg.properties"
ElseIf ActiveSheet.Name = "HU" Then
    Pfad = "C:/Export_Translation/nls_hu.properties"
ElseIf ActiveSheet.Name = "PT" Then
    Pfad = "C:/Export_Translation/nls_pt.properties"
End If

Set Area = Range("A2:B1639" & Range("H65536").End(xlUp).Row)
Area.Copy
Open Pfad For Output As #1
    Print #1, Replace(ClpLesen, vbTab, "=")
Close #1
MsgBox "Successfully exported to " & Folder & "."
End Sub

Public Function ClpLesen() As String
Dim IE As Object
On Error Resume Next
Set IE = CreateObject("HTMLfile")
ClpLesen = IE.ParentWindow.ClipboardData.GetData("text")
Set IE = Nothing
End Function