Excel VBA - импорт текстового файла с кодировкой UTF 8

Question

Я использую приведенный ниже код для импорта TXT-файлов в мою книгу Excel, но у меня возникают ошибки при конвертации, когда данные содержат китайские / японские / корейские символы.

Как импортировать текстовый файл с кодировкой UTF-8, чтобы символы отображались правильно?

' Set default path to pick files
    IntPath = ""
    Set pickf = Application.FileDialog(msoFileDialogFilePicker)

' Set detail options for selection window
    With pickf
        .InitialView = msoFileDialogViewDetails:
        .InitialFileName = IntPath:
        .Filters.Clear:
        .Filters.Add "Textfile", "*.txt", 1:
        .ButtonName = "Import":
        .Title = "Select textfile for import"

' if nothing selected, close
        If .Show = -1 Then
            project = .SelectedItems(1)
            Else: Exit Sub
        End If
    End With

' speed up, unhide all report sheets and clear content
    With ActiveWorkbook
        .Application.CutCopyMode = False
        .Application.DisplayAlerts = False
        .Application.ScreenUpdating = False
        .Application.EnableEvents = False
        .Application.Calculation = xlCalculationManual
    End With

' import textfile into temp sheet
    With ActiveSheet.QueryTables.Add(Connection:="TEXT;" & project, Destination:=Sheets("Opera Data").Range("A2"))
        .PreserveFormatting = True
        .TextFileColumnDataTypes = Array(1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1)
        .RefreshStyle = xlOverwriteCells
        .Refresh BackgroundQuery:=False
    End With