vba 读取文件乱码问题
读取 Java文件(utf-8)格式保存的,
怎么读取得时候总是乱码呢。
通过以下2种方式都不可以
第一种:
Open sActionSampleFile For Input As #1
Open sActionFile For Append As #2
While Not EOF(1)
Line Input #1, sLine
'处理
Write #2, sLine
Wend
Close #1
Close #2
第二种
Set fso = CreateObject("Scripting.FileSystemObject")
Set oSample = fso.OpenTextFile(sActionSampleFile, 1, False)
sAllData = oSample.Readall
'处理
'写文件
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.OpenTextFile(sActionFile, 2, False, 0)
f.Write sAllData
f.Close