从Excel工作表中读取中文字符？ （总是返回“????”）

如何从Excel单元格中读取中文字符并将其写入文件？ 当我通过价值

Worksheets(ActiveCell.Worksheet.Name).Cells(3, columnNumbers(0)).value 

它总是返回“????????”

Answer 1

  Dim fileStream, FilePath As String 'Full properties file path propFilePath = "C:\file.properties" 'Create Stream object Set fileStream = CreateObject("ADODB.Stream") 'Specify stream type – we want To save text/string data. fileStream.Type = 2 'Specify charset For the source text data. fileStream.Charset = "utf-8" 'Open the stream And write binary data To the object fileStream.Open fileStream.writetext "write something here" 'Save binary data To disk fileStream.SaveToFile FilePath, 2 fileStream.Close 

Answer 2

1. 这可能是csv文件
2. 用文本编辑器打开，保存为UTF8或UNICODE格式