Какие библиотеки необходимо подключить.

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Какие библиотеки необходимо подключить. (Макросы/Sub)

Vertep7

Дата: Воскресенье, 24.12.2023, 15:00 | Сообщение № 1

Группа: Пользователи

Ранг: Участник

Сообщений: 52

Репутация: 0 ±

Замечаний: 20% ±

Excel 2007

Здравствуйте. Мне необходимо исправить кракозябры на кириллицу. И по этой причине я нашел какой-то вроде как полностью рабочий код, скопировал без изменения к себе в модуль, но проверить его не смог он не работает. Прерывается на s = Selection
В связи с этим прошу подсказать какой джентльменский набор библиотек следует подключить в Экселе, что бы подавляющее количество скриптов выполнялось без проблем. Если дело в этом конечно.

[vba]

Код

Sub Corr1252_1251()
Dim s$, i&, j&
  s = Selection
  For i = 1 To Len(s)
    j = AscW(Mid$(s, i, 1))
    If j < 256 Then
        Mid$(s, i, 1) = Chr(j)
'       Debug.Print i & vbTab & Mid$(s, i, 1) & vbTab & j & vbTab & Chr(j)
    End If
  Next
  Selection.Text = s
End Sub

[/vba]
Сейчас у меня подключены по всей видимости стандартные библиотеки из пакета:

Visual Basic For Applications
Microsoft Excel 12.0 Object Library
OLE Automation
Microsoft Office 12.0 Object Library