從Excel工作表中讀取中文字符？ （總是返回「????」）

Question

如何從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格式