Wie kann ich text-Dateien mit speziellen Zeichen im Dateinamen

Demonstration meines Problems

  • Öffnen Sie eine neue Excel-Arbeitsmappe und speichern Sie diese Symbole 設計師協會 zu Zelle [A1]
  • fügen Sie den folgenden VBA-code irgendwo in den editor (Alt+F11)
  • ausführen Zeile pro Zeile (F8)
Sub test() 

strCRLF = StrConv(vbCrLf, vbUnicode) 
strSpecialchars = StrConv(Cells(1, 1), vbUnicode) 
strFilename = "c:\test.txt" 

Open strFilename For Output As #1 
Print #1, strSpecialchars & strCRLF; 
Close #1 

End Sub

Erhalten Sie eine Textdatei, die enthält die chinesischen Zeichen aus [A1]. Dies Beweise, dass die VBA in der Lage ist, um auch unicode-Zeichen verarbeiten, wenn Sie wissen, der trick mit dem hinzufügen StrConv(vbCrLf, vbUnicode)

Versuchen Sie nun das gleiche für strFilename = "C:\" & strSpecialchars & ".txt". Erhalten Sie eine Fehlermeldung, die kann man nicht erstellen Sie eine Datei mit diesem Dateinamen. Natürlich können Sie nicht den selben trick benutzen, hinzufügen einer neuen Zeile, da es ein mit dem Namen.

Wie kann ich text-Dateien mit Sonderzeichen in Ihrem Dateinamen mit VBA?
Gibt es ein work-around, oder mache ich etwas falsch?

Hinweis

Sie müssen nicht unbedingt einen Verweis (obwohl ich nicht weiß, warum das so ein problem). Sie können die späte Bindung verwenden, ohne eine Referenz :- Dim FSO as Object {newline} Set FSO = CreateObject("Scripting.FileSystemObject") - aber Sie verlieren alle Intellisense und vordefinierte Konstanten. Sind Sie sicher, dass diese Methode helfen würde, obwohl ? Ich bekomme immer noch einen schlechten Fehler mit dem Namen.

InformationsquelleAutor nixda | 2013-01-10

  1. 5

    Abgerufene Wert aus der Zelle ist bereits in Unicode.

    StrConv(vbUnicode) gibt Sie "double unicode", die ist gebrochen, weil es ging durch eine Konvertierung mit der aktuellen sustem codepage.

    Dann die Print Befehl wandelt es wieder auf "unicode", wieder mit der aktuellen system-codepage. Tun Sie das nicht. Sie sind sich nicht speichern unicode -, Sie sparen ungültige etwas, das kann nur stichhaltig erscheinen auf Ihrem jeweiligen computer unter Ihre aktuellen Einstellungen.

    Wenn Sie möchten, um die Ausgabe von Unicode-Daten (das heißt, vermeiden Sie die Standard-VB-Mechanismus der auto-converting-Ausgabe-text von Unicode in ANSI), haben Sie mehrere Möglichkeiten.

    Die einfachste ist die Verwendung FileSystemObject ohne zu versuchen, zu erfinden, etwas über unicode-Konvertierungen:

    With CreateObject("Scripting.FileSystemObject")
  With .CreateTextFile("C:\" & Cells(1).Value & ".txt", , True)
    .Write Cells(1).Value
    .Close
  End With
End With

    Hinweis: der Letzte parameter, der steuert, Unicode.

    Wenn Sie das nicht wollen, können Sie erklären CreateFileW und WriteFile Funktionen:

    Private Declare Function CreateFileW Lib "kernel32.dll" (ByVal lpFileName As Long, ByVal dwDesiredAccess As Long, ByVal dwShareMode As Long, ByRef lpSecurityAttributes As Any, ByVal dwCreationDisposition As Long, ByVal dwFlagsAndAttributes As Long, ByVal hTemplateFile As Long) As Long
Private Declare Function CloseHandle Lib "kernel32.dll" (ByVal hObject As Long) As Long
Private Declare Function WriteFile Lib "kernel32.dll" (ByVal hFile As Long, ByRef lpBuffer As Any, ByVal nNumberOfBytesToWrite As Long, ByRef lpNumberOfBytesWritten As Long, ByRef lpOverlapped As Any) As Long

Private Const CREATE_ALWAYS As Long = 2
Private Const GENERIC_WRITE As Long = &H40000000
    Dim hFile As Long
hFile = CreateFileW(StrPtr("C:\" & Cells(1).Value & ".txt"), GENERIC_WRITE, 0, ByVal 0&, CREATE_ALWAYS, 0, 0)

Dim val As String
val = Cells(1).Value

WriteFile hFile, &HFEFF, 2, 0, ByVal 0&  'Unicode byte order mark (not required, but to please Notepad)
WriteFile hFile, ByVal StrPtr(val), Len(val) * 2, 0, ByVal 0&

CloseHandle hFile
    +1 - Beide Methoden arbeitete für mich. Ich möchte nur erwähnen, dass es ein Dritte gültige Methode mit CreateObject("ADODB.Stream"), die für mich gearbeitet hat.

    InformationsquelleAutor GSerg

  2. 3

    Sind Sie auf der richtigen Spur mit dem "FileSystemObject". Wie Morbo bereits erwähnt können Sie sich spät binden diese, so dass kein Verweis gesetzt ist. Das BFS hat eine CreateTextFile-Funktion, die eingestellt werden können, in unicode, so dass die Zeichen erscheinen als '??????' in VBA wird aber korrekt schreiben an den Dateinamen an. Hinweis: der zweite parameter der CreateTextFile-Funktion gibt eine unicode-Zeichenfolge für den Dateinamen. Das folgende wird der trick für Sie:

    Sub test()
    Dim strCRLF As String, strSpecialchars As String, strFilename As String
    Dim oFSO As Object, oFile As Object

    strCRLF = StrConv(vbCrLf, vbUnicode)
    strSpecialchars = StrConv(Cells(1, 1), vbUnicode)
    strFilename = "C:\" & Cells(1, 1).Value & ".txt"

    Set oFSO = CreateObject("Scripting.FileSystemObject")
    Set oFile = oFSO.CreateTextFile(strFilename, , True)

    oFile.Write strSpecialchars & strCRLF

    oFile.Close

    Set oFile = Nothing
    Set oFSO = Nothing
End Sub
    +1 - Du hast Recht und dass die Methode funktioniert. (Sind Sie nicht, fehlt die zweite parameter in oFSO.CreateTextFile(strFilename, True). Oder zumindest ein zweites Komma?
    Ja, du hast Recht, es sollte einen zweiten Komma. Eine interessante qn also +1

    InformationsquelleAutor CuberChase

Schreibe einen Kommentar