待，求vba 创建指定字符集的csv文件的例子，比如shift_jis

在线等待，急求vba 创建指定字符集的csv文件的例子，比如shift_jis
在线等待，急求vba 创建指定字符集的csv文件的例子，比如shift_jis
小弟新手，看资料 createtextfile方法并没有可以指定字符集的地方啊。只能是unicode或阿斯科码。
如果要创建指定字符集的csv文件怎么办呢？比如日文的shift_jis字符集。
麻烦各位前辈可以指点指点，谢谢

------解决方案--------------------
既然CreateTextFile 没提供这个方法,那你就只有想别的办法输出CSV了,比如说用哪些字符集相关的函数,比如先用strconv转出shift_jis编码的字节数组,再用binary方式打开文件保存:)
------解决方案--------------------
用stream方式可以的
------解决方案--------------------

VB code

txt = "日本語をちゃんと表示できるか、テストします。"
    Set ADO_Stream = CreateObject("ADODB.Stream")
    With ADO_Stream
        .Type = 2
        .Mode = 3
        .Charset = "Shift-JIS" '
        .Open
        .WriteText txt
        .SaveToFile "d:\jp.txt", 2
        .Close
    End With
    Set ADO_Stream = Nothing