Здравствуйте, подскажите, пожалуйста, никак не получается решить самой. Допустим, есть файл в кодировке utf-8, в котором текст на русском языке. Мне нужно считать этот файл построчно и вывести его на лист.
Я сумела нагуглить вот этот код:
Код |
---|
With Application.FileDialog(msoFileDialogOpen)
.AllowMultiSelect = False
.Show
Dim Row As Integer: Row = 1
path = .SelectedItems(1)
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.OpenTextFile(path, 1)
Do Until objFile.AtEndOfStream
strLine = objFile.ReadLine
Cells(Row, 1).Value = strLine
Row = Row + 1
Loop
objFile.Close
End With
|
Он делает то, что мне нужно, за исключением того, что кириллица переносится на лист вот в таком виде:
Каким образом это можно исправить?