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)
