Jesaja
2013-01-10 01:18:39 UTC
Hallo,
ich habe eine UTF-8 Datei, die ich mit dem GNU Tool iconv auf den deutschen Zeichensatz konvertieren möchte. Dies möchte ich aus VBA heraus machen, aber es gelingt nicht, weil wahrscheinlich immer wieder unnötigerweise ein Anführungszeichen zu Beginn des Kommandos eingefügt wird.
*** BEGIN CODE ***
Public Function DateiOeffnen()
Dim dlgDatei As Dialog
Dim Datei
Dim Kommando1 As String
Dim Kommando2 As String
Dim Kommando3 As String
Dim DateiNeu As String
Set sh = CreateObject("WScript.Shell")
'Dim RetVal
Set dlgDatei = Dialogs(wdDialogFileOpen)
With dlgDatei
If .Display() Then
' MsgBox "Die Datei '" & CurDir() & "\" & .Name & "' soll geöffnet werden."
Datei = CurDir() & "\" & .Name
Else
MsgBox "Der Benutzer hat abgebrochen.", vbCritical
End If
End With
DateiNeu = Left(Datei, Len(Datei) - 4) & "-UTF-8.csv"
Kommando1 = "C:\Progra~2\GnuWin32\bin\iconv.exe -f utf-8 -t windows-1252 "
Kommando2 = Chr(34) & Datei & Chr(34) & " > " & Chr(34) & DateiNeu & Chr(34)
Kommando3 = Kommando1 & Kommando2
sh.Run Kommando3, , True
DateiOeffnen = DateiNeu
End Function
*** END CODE ***
Überwachungsausdruck von Kommando3:
"C:\Progra~2\GnuWin32\bin\iconv.exe -f utf-8 -t windows-1252 "C:\temp\Anmeldungen_2012-12-03_19-33-52_MITSEMI.csv" > "C:\temp\Anmeldungen_2012-12-03_19-33-52_MITSEMI-UTF-8.csv""
Was mache ich hier falsch?
Viele Grüße,
Jesaja
ich habe eine UTF-8 Datei, die ich mit dem GNU Tool iconv auf den deutschen Zeichensatz konvertieren möchte. Dies möchte ich aus VBA heraus machen, aber es gelingt nicht, weil wahrscheinlich immer wieder unnötigerweise ein Anführungszeichen zu Beginn des Kommandos eingefügt wird.
*** BEGIN CODE ***
Public Function DateiOeffnen()
Dim dlgDatei As Dialog
Dim Datei
Dim Kommando1 As String
Dim Kommando2 As String
Dim Kommando3 As String
Dim DateiNeu As String
Set sh = CreateObject("WScript.Shell")
'Dim RetVal
Set dlgDatei = Dialogs(wdDialogFileOpen)
With dlgDatei
If .Display() Then
' MsgBox "Die Datei '" & CurDir() & "\" & .Name & "' soll geöffnet werden."
Datei = CurDir() & "\" & .Name
Else
MsgBox "Der Benutzer hat abgebrochen.", vbCritical
End If
End With
DateiNeu = Left(Datei, Len(Datei) - 4) & "-UTF-8.csv"
Kommando1 = "C:\Progra~2\GnuWin32\bin\iconv.exe -f utf-8 -t windows-1252 "
Kommando2 = Chr(34) & Datei & Chr(34) & " > " & Chr(34) & DateiNeu & Chr(34)
Kommando3 = Kommando1 & Kommando2
sh.Run Kommando3, , True
DateiOeffnen = DateiNeu
End Function
*** END CODE ***
Überwachungsausdruck von Kommando3:
"C:\Progra~2\GnuWin32\bin\iconv.exe -f utf-8 -t windows-1252 "C:\temp\Anmeldungen_2012-12-03_19-33-52_MITSEMI.csv" > "C:\temp\Anmeldungen_2012-12-03_19-33-52_MITSEMI-UTF-8.csv""
Was mache ich hier falsch?
Viele Grüße,
Jesaja