Экспорт вьетнамских данных из Excel в Блокнот: проблема с Unicode

Question

Я экспортирую вьетнамские данные из Excel в Блокнот с каждым столбцом строки 1 в качестве имени файла и каждым столбцом строки 2 в качестве содержимого.Однако, когда я открываю файл «Блокнот», шрифт был поврежден из-за проблемы Unicode.(Блокнот делает Ascii кодировкой по умолчанию).Помогите мне отредактировать приведенный ниже код (взятый из интернет-источника) с помощью кодировки Юникод для экспорта данных.Спасибо!

Sub ExportToNotepad()
Dim wsData As Variant
Dim myFileName As String
Dim FN As Integer
Dim p As Integer, q As Integer
Dim path As String
Dim myString As String
Dim lastrow As Long, lastcolumn As Long

lastrow = Sheets("sheet1").Range("A" & Rows.Count).End(xlUp).Row
lastcolumn = ActiveSheet.Cells(1, Columns.Count).End(xlToLeft).Column
path = "D:\Jobs\"

For p = 1 To lastcolumn
wsData = ActiveSheet.Cells(1, p).Value
If wsData = "" Then Exit Sub
myFileName = wsData
myFileName = myFileName & ".txt"
myFileName = path & myFileName
MsgBox myFileName
For q = 2 To lastrow
myString = myString & " " & Cells(q, p)

FN = FreeFile
Open myFileName For Output As #FN
Print #FN, myString
Close #FN
Next q
myString = ""
Next p

End Sub