用宏生成UTF-8编码的TXT文件的问题

豳嘫

    大家好！我用宏将表格内的数据导出为TXT文本，但是导出来的文本是ANSI编码的，我现在需要的文本是UTF-8编码的，谁能教教我如何能使导出来的文本为UTF-8编码；
    我的宏代码如下：
Sub write_txt()
Open ThisWorkbook.Path & "\" & Split(ThisWorkbook.Name, ".")(0) & ".txt" For Output As #1 '打开文本文件,存放位置改为你需要的
Row = 3 '开始行数控制
While Cells(Row, 2).Value > 0
    col = 2
    For col = 2 To 8  '8为结束列数
    Print #1, Cells(Row, col).Value;
    Print #1, ""; '后跟分号，数据紧随
    Next col
    Print #1, '数据换行
    Row = Row + 1
    Wend
    Close #1
    MsgBox "数据导出完毕"
End Sub
    这个代码己经能正确导出我需要的东西了，只是导出来的文本不是UTF-8编码，谁能帮我改一下代码，使得导出来的文件是UTF-8编码的？？另外附上我的表格，请高手帮看看，我试了好久了，弄不出来
    如果不是很容易讲清楚的话还请麻烦你联系我Q：295954203

guojianlin1985

直接另存为unicode不就行了？

豳嘫

另存是一种方法，但是因为我要频繁的使用，所以想要一步到位，每都去另存的话降低效率了

baomaboy

豳嘫 发表于 2011-10-19 22:24
另存是一种方法，但是因为我要频繁的使用，所以想要一步到位，每都去另存的话降低效率了

好像没看到Open可以设置保存格式，非要用open的话要“中转”，那就不如直接用FileSystemObject 对象或者数据流处理方便了。

豳嘫

好像没看到Open可以设置保存格式，用FileSystemObject 对象倒是可以。

楼上，那能帮我改过代码么？我不会啊！~

baomaboy

豳嘫 发表于 2011-10-19 22:51
楼上，那能帮我改过代码么？我不会啊！~

代码:

Sub CreateAfile()     Dim fso, MyFile     Set fso = CreateObject("Scripting.FileSystemObject")     Set MyFile = fso.CreateTextFile(ThisWorkbook.Path & "\" & Split(ThisWorkbook.Name, ".")(0) & ".txt", True, True)     Row = 3 '开始行数控制     While Cells(Row, 2).Value > 0         strtem = ""         col = 2         For col = 2 To 8  '8为结束列数             '不明白你的“后跟分号，数据紧随”是什么意思？下面提供了两句，根据需要选用吧，都不对可以根据自己需要修改。             'strtem = strtem & Cells(Row, col).Value             strtem = strtem & Cells(Row, col).Value & ";"         Next col         MyFile.WriteLine (strtem)         Row = Row + 1     Wend     MyFile.Close     Set fso = Nothing     MsgBox "数据导出完毕" End Sub

豳嘫

baomaboy     真是太感谢啦！~困扰我好几天的问题终于得到解决啦！~在此表示万分感谢！~

kelland120

为什么  我照着这个导出来是 unicode  格式的 .

baomaboy

kelland120 发表于 2011-11-16 14:26
为什么  我照着这个导出来是 unicode  格式的 .

因为我猜到楼主要的其实就是unicode格式，想要utf-8可以这样：

代码:

Public Declare Function Text2File Lib "LLKJ" (ByVal InPutStr As Variant, ByVal filepath As Variant, Optional op = 0) Sub CreateAfile()     Row = 3 '开始行数控制     strtem = ""     While Cells(Row, 2).Value > 0         col = 2         For col = 2 To 8  '8为结束列数             strtem = strtem & Cells(Row, col).Value & " "         Next col         strtem = strtem & vbCrLf         Row = Row + 1     Wend     Text2File strtem, ThisWorkbook.Path & "\" & Split(ThisWorkbook.Name, ".")(0) & ".txt", 2     MsgBox "数据导出完毕" End Sub

香川群子

导出文本为UTF-8码是什么效果？

有附件么？