作者raptor (最近 脑力激荡中~)
看板Visual_Basic
标题[VB6 ]关於中文编码问题
时间Fri Aug 31 11:12:03 2007
不好意思 想请问一下
在excel的巨集中
我希望能够将excel里面的资料
转出成Unicode的文字档
但是在转出後 会发现部分中文字 会变成乱码
部分中文字 可以转成功
还烦请各位大大是否可指点迷津
附录我的程式码
Open szOutFilename For Binary As
#inOutFileNumber
'写 Header
'Write Unicode Head : &HFFFE
Dim head(0 To 1) As Byte
head(0) = &HFF
head(1) = &HFE
Put
#inOutFileNumber, , head
'抓资料写入档案的地方
tempStr = """" & .Value & """"
unicodeStr = StrConv(tempStr, vbUnicode)
Put
#inOutFileNumber, , unicodeStr
谢谢罗~~~~~
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 59.124.99.126