[VB6 ]關於中文編碼問題

[raptor (最近 腦力激盪中~)]

不好意思 想請問一下
在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