Напишите китайские иероглифы и алфавит в ячейках в .CSV

Question

Я пытаюсь записать данные в файл CSV.Данные содержат как китайские иероглифы, так и общий текст.Мои результаты выглядят так после экспорта в файл CSV:

Но это должно выглядеть так:

Все китайские иероглифы, такие как «物料 申请 系统», «ADC 培训» и т. Д., Все превращены в «?».

Вот мой код:

Open Location For Output As #1
    For i = 2 To lastrow
        For j = 1 To LastCol
            If j = LastCol Then 'keep writing to same line
                TextLine = TextLine & Cells(i, j).Text  'read line into variable
            Else 'end the line
                TextLine = TextLine & Cells(i, j).Text & Deliminator
            End If
        Next j
            Print #1, TextLine
            TextLine = ""
    Next i
Close #1

Answer 1

Спасибо @Ron Rosenfeld за предложение FileSystemObject . Мне удалось сгенерировать файл CSV с китайскими иероглифами и общим текстом без каких-либо проблем с помощью следующего кода, который я исправил:

With CreateObject("Scripting.FileSystemObject")
  With .CreateTextFile(Location, , True)
    For i = 2 To lastrow
        For j = 1 To LastCol
            If j = LastCol Then
                TextLine = TextLine & Cells(i, j).Text
            Else
                TextLine = TextLine & Cells(i, j).Text & Deliminator
            End If
        Next j
            .WriteLine TextLine
            TextLine = ""
    Next i
        .Close
  End With
End With

Answer 2

Попробуйте что-то вроде:

 your_worksheet.SaveAs "your file path and name", xlUnicodeText

Вы также можете использовать FileSystemObject

Я не верю, что VBA Open for Output : Print (or Write) поддерживает Unicode.