Импорт документов MS Excel с макросами, использующими объекты электронной таблицы

Рассмотрим импорт в OpenOffice Calc электронных таблиц MS Excel с макросами, использующими объекты электронной таблицы. Импорт будем осуществлять для готовых документов, которые были сформированы в примерах 8.4 и 8.6.

Пример 11.2.

Использование диалогового листа Смысл примера 8.4 заключался в создании процедуры, которая возводит в квадрат значения всех ячеек заданного столбца. Вызов процедуры осуществляется по нажатию расположенной на листе кнопки.

Последовательность выполнения импорта в примере 11.2.

• 1. Откройте в активном приложении OpenOffice Calc файл с именем Table_Square. xlsm, используя команды меню Файл —> Открыть, и сохраните (Файл —> Сохранить как) его в формате ОО. о Calc, т. е. с именем Table JSquare.ods.
• 2. Войдите в среду IDE, например посредством комбинации клавиш Alt + F11. В активном окне Макросы OpenOffice Basic (рис. 11.8) выберите модуль с именем Module 1 и нажмите кнопку Редактировать.
• 3. В открывшемся окне редактора кода набор реализованных в примере 8.4 процедур закомментирован. Поэтому нужно вручную преобразовать VBA код в ОО. о Basic. Для этого необходимо сделать следующее.

Рис. 11.8. Окно Макросы OpenOffice Basic

• 3.1. Модуль с именем Module 1 (рис. 11.9):
  • • в начало модуля добавить строку Option VBASupport 1;
  • • убрать две парные строки Sub Modulel End Sub;
  • • раскомментировать (убрать Rem) все исполняемые конструкции-строки.

Puc. 11.9. Исправленный код VBA модуля Modulel

3.2. В модуле с именем ЛистЗ (рис. 11.10), который содержит обработчик события по нажатию кнопки CommandButton 1 _Click, проделайте те же операции, что и в и. 3.1. У вас может быть модуль с другим именем.

Puc. 11.10. Исправленный код VBA модуля ЛистЗ.

• 3.3. Во всех остальных модулях (например, ЭтаКнига) убрать или закомментировать все строки.
• 4. Откомпилируйте процедуры.
• 5. Свяжите кнопку «Квадрат» на листе с обработчиком события CommandButton 1 _ Click. Для этого выйдите в окно электронной таблицы и активизируйте панель

Элементы управления (рис. 11.11) по команде меню Вид —> Панель инструментов —> Элементы управления.

Рис. 11.11. Панель Элементы управления.

• 6. Войдите в режим редактирования по соответствующей кнопке панели Элементы управления. В контекстном меню кнопки выберите команду Элемент управления. Последовательно выполните следующее (рис. 11.12):
  • • на вкладке События окна Свойства: Кнопка выберите событие Выполнить действие и нажмите кнопку ,-J;
  • • в окне Назначить действие из списка выберите Назначенное действие

и нажмите кнопку Макрос,

• • в окне Выбор макроса последовательно выберите нужные библиотеки, модуль и имя макроса CommandButtonljClick (рис. 11.12);
• • последовательно закройте все открытые окна, нажимая на кнопки ОК;
• • выйдите из режима редактирования по соответствующей кнопке |{*/ панели Элементы управления.^[1]

Рис. 11.12. Окна связывания макроса.

Замечание: проблема импорта в OpenOffice Calc электронных таблиц Excel с макросами, использующими объекты электронной таблицы и диалоговый лист, для простых случаев решается. Для этого необходимо:

• • в начале каждого модуля, в котором необходимо использовать код УВД, добавить строку Option VBASupport 1;
• • раскомментировать необходимый исходный код VBA;
• • связать элементы управления (кнопку) с необходимым обработчиком.

Стоит отметить, что ОО. о Basic даже поддерживает обращение к ячейкам по относительной позиции в формате УВД.

Пример 11.3.

Смысл примера 8.6 заключался в создании макросов, позволяющих форматировать элементы таблицы. Первый макрос определяет характеристики заголовка таблицы, а второй задает цвет фона выделенного диапазона. Вызов макросов осуществляется по нажатию клавишей клавиатуры.

Последовательность выполнения импорта в примере 11.3.

• 1. Откройте в активном приложении OpenOffice Calc файл с именем Ведомость_ Макросы. xlsm, используя команды меню Файл —> Открыть, и сохраните (Файл -" -" Сохранить как) его в формате ОО. о Calc, т. е. с именем Ведомость Макросы.ods.
• 2. Войдите в среду IDE, например посредством сочетания клавиш Alt + FI 1. В активном окне Макросы OpenOffice Basic (рис. 11.13) выберите модуль с именем Module 1 и нажмите кнопку Редактировать.

Рис. 11.13. Окно Макросы OpenOffice Basic

• 3. В открывшемся окне редактора кода набор реализованных в примере 8.6 процедур закомментирован, поэтому нужно вручную преобразовать УВД код в ОО. о Basic. Для этого необходимо сделать следующее.
• 3.1. Модуль с именем Module 1 (рис. 11.14):
  • • в начало модуля добавить строку Option VBASupport 1;
  • • убрать две парные строки Sub Modulel End Sub;
  • • раскомментировать (убрать Rem) все исполняемые конструкции-строки.
• 3.2. Во всех остальных модулях (например, ЭтаКнига) убрать или закомментировать все строки.
• 4. Откомпилируйте процедуры. Последовательно запустите макросы на выполнение. Если при этом будут ошибки времени выполнения, то закомментируйте указанные средой IDE ошибочные строки (рис. 11.15). В итоге должны получиться макросы, исходный код которых приведен в листинге 11.1. Здесь видно, что в обоих макросах пришлось закомментировать ряд языковых конструкций, которые не поддерживаются ОО. о Basic.

Рис. 11.14. Исправленный код VBA модуля Modulel

Puc. 11.15. Окно ошибки времени выполнения Листинг 11.1.

Rem Attribute VBA_ModuleType = VBAModule Option VBASupport 1 Option Explicit.

Sub Макрос_Цвет ().

' Цвет фона

' Сочетание клавиш: Ctrl+H With Selection. Interior .Pattern = xlSolid. PatternColorlndex = xlAutomatic. Color = 65 535 ' .TintAndShade = 0 '.PatternTintAndShade = 0 End With End Sub.

Sub Макрос_Заголовок ().

' Форматирование заголовка ' Сочетание клавиш: Ctrl+G 'Range («Al»).Select With Selection.

.HorizontalAlignment = xlLeft. VerticalAlignment = xlCenter. WrapText = False. Orientation = 0. Addlndent = False. IndentLevel = 0. ShrinkToFit = False ' .ReadingOrder = xIContext .MergeCells = False End With.

With Selection. Font .Name = «Times New Roman» .

.FontStyle = «полужирный курсив» .

.Size = 13.

.Strikethrough = False. Superscript = False. Subscript = False. OutlineFont = False. Shadow = False.

.Underline = xlUnderlineStyleNone ' .Theme Color = xlThemeColorLightl Tint And Shade — 0 '.ThemeFont = xlThemeFontNone End With End Sub.

• 5. Свяжите макросы с клавишами: МакросЦвет с клавишами Ctrl + Н, Макрос_ Заголовок с клавишами Ctrl + G. Чтобы сделать это, выйдите в окно электронной таблицы и откройте окно Настройка по команде меню Сервис —> Настройка.
• 6. Перейдите на вкладку Клавиатура (рис. 11.17). В поле Категория выделите модуль Module 1, в котором расположены макросы, в поле Функция выделите макрос Макрос_Цвет, после чего в поле Комбинация клавиш выберите комбинацию клавиш Ctrl + Н и нажмите кнопку Изменить. Подобным образом назначьте комбинацию клавиш Ctrl + G макросу Макрос Заголовок. По окончании нажмите кнопку ОК (рис. 11.16).

Рис. 11.16. Вкладка Клавиатура окна Настройка.

7. Запустите макросы на выполнение по нажатию соответствующих клавиш. Результат выполнения будет аналогичен результату, приведенному на рис. 8.29. Сохраните и закройте файл.

Замечание: проблема импорта в OpenOffice Calc электронных таблиц Excel с макросами, использующими объекты электронной таблицы, для простых случаев решается. Для этого необходимо:

• • в начале каждого модуля, в котором необходимо использовать код VBA, нужно добавить строку Option VBASupport 1;
• • раскомментировать необходимый исходный код VBA;
• • закомментировать не поддерживаемые ОО. о Basic языковые конструкции;
• • связать запуск макроса либо с пунктом меню, либо с событием, либо с нажатием кнопки-пиктограммы на панели инструментов, либо с клавишами.

• [1] Выделите диапазон ячеек А5: А9 и нажмите на кнопку «Квадрат». Результатвыполнения процедуры будет аналогичен результату, приведенному на рис. 8.17и 8.20. Сохраните и закройте файл.