待，求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