Импортируйте файл и измените кодировку на UTF-8 - PullRequest
Новая
       7

Импортируйте файл и измените кодировку на UTF-8

0 голосов
/ 06 февраля 2019

Мне нужна помощь с импортом файла.Я экспортировал файл .dpl, который содержит русский текст, который не отображается по умолчанию.Он показывает случайные символы, как в примере ниже. 

lt:3 LANG:10001 "PST requested" LANG:10027 "PST requested" LANG:10007 "ТеŃŃ‚ запроŃено"

Я запускаю скрипт ниже, чтобы выбрать и импортировать файл на новый лист, но я не знаю, куда вставить код для изменения Charset = "utf-8"

Sub OpenAFile() 'import file

Dim fd As FileDialog
Dim homeWorkbook As Workbook
Set homeWorkbook = ActiveWorkbook
Dim targetBook As Workbook
Dim targetSheet As Worksheet

Application.DisplayAlerts = False

Set fd = Application.FileDialog(msoFileDialogOpen)

FileWasChosen = fd.Show

fd.Execute

Set targetBook = ActiveWorkbook
Set targetSheet = targetBook.Worksheets(1)

targetSheet.Copy After:=homeWorkbook.Sheets(homeWorkbook.Sheets.Count)

Application.DisplayAlerts = True

With homeWorkbook.Sheets(homeWorkbook.Sheets.Count)
    .Name = "Import"
End With

End Sub

Это должно отображаться так: 

lt:3 LANG:10001 "Limit alarm HH suppressed" LANG:10027 "Limit alarm HH suppressed" LANG:10007 "Предел - трев. оповещ-е авар. выс. ур-ня устр-но"

Спасибо за помощь!

...