|
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用 · 内置多项VBA编程加强工具 ★ 免费下载 ★ ★ 使用手册★
高手们好!我想用宏将附件表格内的数据按一定格式另存为TXT文本,导出来的文本是默认是ANSI编码,但我需要的文本是UTF-8编码的,哪位高手能教我一下,如何在已有的代码的基础上添加什么代码,使导出来的文本为UTF-8编码的。谢谢了
宏代码如下:
Sub txt()
Dim arr, myPath$, s$, s2$, x, cpcode
arr = Range("a3").CurrentRegion
myPath = "D:\add seg TXT\"
x = Sheets("C-Segment-Value").Range("c3")
If x = 501172 Or x = 501177 Then
cpcode = "01501_"
ElseIf x = 301172 Or x = 301177 Or x = 301173 Or x = 301178 Or x = 301374 Then
cpcode = "01301_"
End If
For j = 3 To UBound(arr)
s2 = arr(j, 3) & vbTab & arr(j, 5) & vbTab
For i = 6 To 25
s2 = s2 & arr(j, i) & vbTab
Next
s2 = s2 & arr(j, 26)
s = s & vbCrLf & s2
Next
Open myPath & "Segment_" & cpcode & Format(Now, "YYYYMMDDhhmmss") & ".txt" For Output As #1
Print #1, Mid(s, 3)
Close #1
MsgBox "文本文件已保存对应文件夹,文件名为:Segment_cpcode_YYYYMMDDhhmmss.txt,需手工另存为UTF-8"
End Sub
|
|