VBA-скрипт на системе с англоязычной локализацией заполняет строки с кириллицей некорректно

Есть VBA-скрипт, который успешно заполнял заголовки таблицы и свойства в Excel на Windows с русской локализацией. При переносе его на англоязычную, пошли проблемы с краказябрами.

введите сюда описание изображения

Public Function FillTable(in_fileName As String)
    Dim wkb As Workbook ' Рабочая книга
    Dim wks As Worksheet ' рабочий лист
    
    Set wkb = Workbooks(in_fileName)
    wkb.Activate
    Set wks = wkb.ActiveSheet
    wks.Activate

    wks.Cells(1, 1).Value = "Номер СЗ"
    wkb.BuiltinDocumentProperties("Title") = "Ежедневный отчет"
End Function

Были попытки с конвертацией строки:

wks.Cells(1, 1).Value = StrConv("Номер СЗ", vbUnicode)
wkb.BuiltinDocumentProperties("Title") = StrConv("Ежедневный отчет", vbUnicode)

Но это все равно не помогло.

Работа происходит с Excel2016.


Ответы (1 шт):

Автор решения: JoseFoTTen

Задайте переменную из ячейки листа, предварительно введя туда необходимый текст на кириллице. прим. на Лист1 в ячейке А1 содержится текст "Номер СЗ"

wks.Cells(1, 1).Value = ThisWorkbook.Worksheets("Лист1").Cells(1, 1)
→ Ссылка