Question

我在单元格A1中有以下加密文本：

ԓԗՃխՓ՛Րե՘Ր՞՚ըՖՑ՟խՑՙՔը՟՗՝ՇխՑ

我试图在文本文件中写这个，但文本在文本文件中显示为问号字符?????????????????。

这是我的代码：

textFilePath = ThisWorkbook.Path & "\customfile.txt"
FF = VBA.FreeFile
Open textFilePath For Output As #FF
Print #FF, CStr(Sheet1.Cells(1,1).Value)
Close #FF

仅供参考：如果我在记事本中手动复制并粘贴单元格A1的值，则文本显示正常。

Answer 1

你不能像普通文本一样写...你需要像UTF-8一样写：

Dim fsT As Object
Set fsT = CreateObject("ADODB.Stream")
fsT.Type = 2 'Specify stream type - we want To save text/string data.
fsT.Charset = "utf-8" 'Specify charset For the source text data.
fsT.Open 'Open the stream And write binary data To the object
fsT.WriteText Sheet1.Cells(1, 1).Value
fsT.SaveToFile "e:\0\customfile.txt", 2 'Save binary data To disk

取自：

Save text file UTF-8 encoded with VBA

打印到文本文件 - 加密文本显示为问号

1 个答案: