如何创建文件名中包含特殊字符的文本文件

演示我的问题

• 打开一个新的 Excel 工作簿并将这些符号 设计师协会 保存到单元格 [A1]
• insert the following VBA code somewhere in the editor (Alt+F11)
• execute it line per line (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  

您将得到一个文本文件，其中包含[A1]中的汉字。这证明，如果您知道添加的技巧，VBA 能够处理 unicode 字符StrConv(vbCrLf, vbUnicode)

现在尝试同样的方法strFilename = "C:\" & strSpecialchars & ".txt"。您将收到一条错误消息，指出无法使用此文件名创建文件。当然，您不能使用相同的技巧添加新行，因为它是文件名。

如何使用 VBA 创建文件名中包含特殊字符的文本文件？
有解决方法还是我做错了什么？

Note

• 我使用的是 Windows 7 x64。我可以手动创建带有特殊字符的文本文件
• 我找到了一个。但我希望我可以避免设置参考到VB脚本运行时库 https://stackoverflow.com/questions/3233203/how-do-i-use-filesystemobject-in-vba

从单元格检索的值已采用 Unicode 格式。

StrConv(vbUnicode)给你“双unicode”，它被破坏了，因为它使用当前系统代码页进行了转换。
然后Print命令将其转换回“单一 unicode”，再次使用当前系统代码页。不要这样做。您没有保存 unicode，而是保存了无效的内容，这些内容可能仅在当前设置下的特定计算机上显示为有效。

如果您想要输出 Unicode 数据（即，避免将输出文本从 Unicode 自动转换为 ANSI 的默认 VB 机制），您有多种选择。

最简单的是使用FileSystemObject无需尝试发明任何有关 unicode 转换的内容：

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

请注意控制 Unicode 的最后一个参数。

如果你不想这样，你可以声明CreateFileW and WriteFile功能：

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