vba组合单元格内容输出的txt如何强制为utf-8？

tifaff

想把
a2：d2的内容按每一个单元格为一行存到一个txt
a3：d3的内容按每一个单元格为一行存到一个txt
....如此类推到
a999：d999





我的代码能输出txt，但是为gb2312，因为内容含中英日韩等多国语言文字会乱码，怎样才能让输出的txt为utf-8？
搜了论坛，看见好几个方法，但把对方代码搬来自己的就出错了，希望能在这个代码基础上修改，因为目前我的代码可以灵活在单元格内容前后添加自己的文字和换行数，谢谢！

1. Sub comeout2()
   
2. 
   
3. Application.ScreenUpdating = True
   
4. n = Range("a65536").End(xlUp).Row '检测A列总行数
   
5. arr = Range("a2:i" & n) '存到数组，提升速度
   
6. For i = 1 To n - 1 '循环输出
   
7. outstr = ""
   
8. 
   
9.     sname = arr(i, 1)
   
10.         
    
11.     outstr = "文章标题：" & arr(i, 1)  
    
12.    
    
13.     If Len(arr(i, 2)) > 0 Then     '如果内容不是为空的话，就组合内容
    
14.     outstr = outstr & vbCrLf & vbCrLf & arr(i, 2)   'vbCrLf 是换行的意思
    
15.     End If
    
16.   
    
17.     If Len(arr(i, 3)) > 0 Then
    
18.     outstr = outstr & vbCrLf & vbCrLf & arr(i, 3)
    
19.     End If
    
20. 
    
21.      If Len(arr(i, 4)) > 0 Then
    
22.     outstr = outstr & vbCrLf & vbCrLf & arr(i, 4)
    
23.     End If
    
24. 
    
25.     FullName = ThisWorkbook.Path & "" & sname & ".txt"
    
26.     Open FullName For Output As #1
    
27.     Print #1, outstr;
    
28.     Close #1
    
29. 
    
30. Next
    
31. 
    
32. Application.ScreenUpdating = True
    
33. MsgBox "导出完毕"
    
34. End Sub

复制代码

fxl447098457

用fso的方式写入文本。createtextfile的第三参数设置为true即可。

tifaff

fxl447098457 发表于 2020-2-15 10:16
用fso的方式写入文本。createtextfile的第三参数设置为true即可。

找到版主类似的解答，但套用他的代码出来的txt是 ucs-2le 编码的（查了一下是ms的习惯），虽然能正确显示他国语言字符，但因后续我还需要批量处理txt，而很多程序都不支持ucs-2，所以能不能强制为utf-8输出呢？谢谢回复

版主 huang1314wei的代码：

Sub CreateAfile()
        Dim fso, MyFile, arr, i%
        arr = Range("A1").CurrentRegion
        Set fso = CreateObject("Scripting.FileSystemObject")
        For i = 1 To UBound(arr)
            Set MyFile = fso.CreateTextFile(ThisWorkbook.Path & "" & arr(i, 1) & ".txt", True, True)
            MyFile.WriteLine arr(i, 1)
            MyFile.Close
        Next
End Sub

fxl447098457

tifaff 发表于 2020-2-15 14:24
找到版主类似的解答，但套用他的代码出来的txt是 ucs-2le 编码的（查了一下是ms的习惯），虽然能正确显示 ...

参考下这个。
Sub mm()
Dim s As String
s = [a1].Value
With CreateObject("adodb.stream")
.Mode = 3
.Type = 2
.Charset = "utf-8"
.Open
.WriteText s
.SaveToFile ThisWorkbook.Path & "\1.txt", 2
.Close
End With
End Sub

tifaff

fxl447098457 发表于 2020-2-15 15:57
参考下这个。
Sub mm()
Dim s As String

这个我很早就试过了，因为小白，不会套用（套上去各种出错），版主那个我摸索了半小时才试出来的。
不会语法，这个通过adodb.stream处理（很多人都提到这个方法），但是原代码只处理a1 一个单元格，我不懂怎么样转换为自己的数组，像上面自己代码那样通过 & (i, 1) & (i, 2)
把一行n个单元格组合在一起再送给 s 这个参数处理，烦请帮忙写一下，谢谢了。

fxl447098457

你自己代码里面的outstr就是我发的代码里面的s.

tifaff

fxl447098457 发表于 2020-2-15 16:18
你自己代码里面的outstr就是我发的代码里面的s.

十分感谢指导 各种组合尝试s与outstr之间相互代入 终于试出来了

changhong8

代码如下，输出无BOM头UTF-8编码文件