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

goldowl2011

对我很有用，感谢楼主！下载学习

kenny2095

baomaboy 发表于 2011-11-16 15:00
因为我猜到楼主要的其实就是unicode格式，想要utf-8可以这样：

为什么无法运行？

寒江隐居客

baomaboy 发表于 2011-11-16 15:00
因为我猜到楼主要的其实就是unicode格式，想要utf-8可以这样：

老师，这里执行时会报错，“LLKJ”那里。另外，这个语句可以生成“utf-8”格式文本文件的奥秘在哪里呢？还请赐教！

lujialin

baomaboy 发表于 2011-10-19 22:47
好像没看到Open可以设置保存格式，非要用open的话要“中转”，那就不如直接用FileSystemObject 对象或 ...

你好 能帮我改一下代码吗 需要导出uTF-8格式 其他代码没问题

Sub mainLogic()

ThisWorkbook.Activate

Dim i As Integer

For i = 1 To 1 Step 1

Sheets("" & i).Activate

Sheets("" & i).Select

ChDir "C:\Users\eci00542\Desktop"
    ActiveWorkbook.SaveAs Filename:="C:\Users\eci00542\Desktop\" & i & ".txt", FileFormat _
        :=xlUnicodeText, CreateBackup:=False
   
Next i

ActiveWorkbook.SaveAs Filename:="C:\AAAAAAAAAAAAAAAA工作目录\bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb核算\01 凭证打印清单及付款" & "\劳务费退款导入.xls", FileFormat _
        :=xlOpenXMLWorkbook, CreateBackup:=False
End Sub

木无边

Sub ConvFile(InputFile As String, OutputFile As String) '将文件转换成utf-8格式
    Dim ReadStream As Object
    Set ReadStream = CreateObject("ADODB.Stream")
    Dim FileContent As String
    With ReadStream
        .Type = 2               'adTypeText
        '.Charset = "UNICODE"
        .Charset = "GB2312"     ' ANSI
        '.Charset = "UTF-8"
        .Open
        .LoadFromFile InputFile
        FileContent = .ReadText
        .Close
    End With
    Set ReadStream = Nothing
    Dim WriteStream As Object
    Set WriteStream = CreateObject("ADODB.Stream")
    With WriteStream
        .Type = 2               'adTypeText
        .Charset = "UTF-8"
        .Open
        .WriteText FileContent
        .SaveToFile OutputFile, 2  'adSaveCreateOverWrite
        .Flush
        .Close
    End With
    Set WriteStream = Nothing
End Sub
调用直接 Call ConvFile(pathfile, pathfile)  两个参数用一样的路径文件即可。
亲测完美。