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. これは、このことができますかどうかを確認しUTF8またはUNICODE形式で