待，求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以前我是个爱仰望天空的人，苍蓝的天空总是给我求生的勇气，