Excel vba 怎么创建以"c:尀1.txt"创建一个编码为UTF-8的文本文档?

Sub ExportToTXT()
Dim arr
Dim i As Long, fileNo As Integer
Dim strPath As String, strFile As String, strMsg As String
On Error GoTo ErrorHandler
arr = Worksheets("sheet1").Range("a1").CurrentRegion
If Not IsArray(arr) Then MsgBox "SHEET1的A1单元格无数据可导出": Exit Sub
If Len(ThisWorkbook.Path) = 0 Then
MsgBox "工作簿尚未保存，请先保存"
Exit Sub
End If
strPath = ThisWorkbook.Path & Application.PathSeparator
For i = LBound(arr) + 1 To UBound(arr)
If Len(arr(i, 1)) Then
strFile = strPath & arr(i, 1) & ".txt"
fileNo = FreeFile
Open strFile For Output Access Write As #fileNo
Print #fileNo, arr(i, 3)
Close #fileNo
strMsg = strMsg & strFile & vbCr
End If
Next
If Len(strMsg) Then
MsgBox strMsg
End If
Exit Sub
ErrorHandler:
MsgBox Err.Number & vbCrLf & _
Err.Description
End Sub
你可以做适当修改