Импорт документов MS Excel с формами и диалоговыми листами

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

Пример 11.4.

Использование форм Смысл примера в подпараграфе 6.4.1 заключался в создании формы для вычисления значения функции y = (yjx +1) в заданной точке с проверкой допустимых значений аргумента.

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

• 1. Откройте в активном приложении OpenOffice Calc файл с именем МуЕхСа1с_ Fun. xlsm, используя команды меню Файл —> Открыть, и сохраните (Файл —> —> Сохранить как) его в формате ОО. о Calc, т. е. с именем MyExCalc Fun.ods.
• 2. Войдите в среду IDE, например, посредством сочетания клавиш Alt + F11. В активном окне Макросы OpenOffice Basic выберите модуль с именем МуЕхСа1с_ Fun. ods/Standart/UserForm_/, макрос UserForm _f и нажмите кнопку Редактировать.
• 3. В открывшемся окне редактора кода набор реализованных в примере пункта 6.4.1 процедур закомментирован, поэтому нужно вручную преобразовать VBA код в ОО. о Basic. Для этого необходимо сделать следующее.
• 3.1. Модуль с именем UserForm_J (рис. 11.17):
  • • в начало модуля добавить строку Option VBASupport 1;
  • • убрать две парные строки Sub UserFonn_J End Sub;
  • • раскомментировать (убрать Rem) все исполняемые конструкции-строки.
• 3.2. Во всех остальных модулях (например, Лист1, Лист2, ЛистЗ, ЭтаКнига) убрать или закомментировать все строки.
• 4. Откомпилируйте процедуры по кнопке ф и запустите их на выполнение, но кнопке?. В итоге явно получите диагностическое сообщение времени выполнения (рис. 11.18).
• 5. Исправьте исходный код модуля UserForm_J в соответствии с листингом 11.2. При этом процедура StartDialog должна быть расположена первой среди всех процедур. Это связано с тем, что кнопка Выполнить среды разработки IDE запускает всегда первую подпрограмму в текущем модуле (см. параграф 10.4). Из листинга очевидно, что из-за разности объектных моделей ОО. о Basic и VBA пришлось добавить для запуска формы процедуру StartDialog, подправить процедуры CmdCalc CIick и CmdExit_Click, а вместо процедуры Text_Х_КеуPress написать процедуру KeyPressed.

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

Puc. 11.18. Диагностическое окно времени выполнения Листинг 11.2.

Option VBASupport 1.

Dim oDlg As Object 'объект формы

Dim x As Single, у As Single 'переменные аргумента и функции dim bs as boolean, bm as boolean 'признаки ввода символов (,. и -) Dim Тех as string 'содержимое текстового поля

Function StartDialog ().

DialogLibraries.LoadLibrary («Standard») oDlg =.

CreateUnoDialog (DialogLibraries.Standard.UserForm_F) oDlg. execute () bs=false: bm=false tex = «» .

End Function.

Private Sub CmdExit_Click () 'кнопка выход oDlg. endExecute ().

End Sub.

Private Sub CmdCalc_Click () 'кнопка вычислить

oDlg.getControl («Text_Y»).Text = «» .

If IsNumeric (oDlg.getControl («Text_X»).Text) = False Then MsgBox «Аргумент не число!», vbCritical oDlg. getControl («Text_X»).SetFocus Exit Sub End If.

x = CSng (oDlg.getControl («Text_X») .Text).

If x < -1 Then.

MsgBox «Значение аргумента не может быть меньше -1!», vbCritical.

oDlg.getControl («Text_X»).SetFocus Exit Sub End If.

у = Sqr (x + 1).

oDlg.getControl («Text_Y»).Text = CStr ((Round (y, 5)).

End Sub.

Sub KeyPressed (Event As Object).

Dim Msg As String.

Dim Sel As New com.sun.star.awt.Selection Select Case Event.KeyCode.

Case Is = 1025 'клавиши навигации

Case 1283, 1286 'клавиши BACKSPACE, DELETE If (InStr (l, oDlg. getControl («Text_X»).Text, «.») 0.

Or InStr (1, oDlg. getControl («Text_X»).Text, «,») 0) then bs=true: else bs=false.

If (InStr (l, oDlg. getControl («Text_X»).Text, «-») 0) then bm=true: else bm=false Case 1291, 12 92 '.или.

If (InStr (l, oDlg. getControl («Text_X»).Text, «.») 0.

Or InStr (l, oDlg. getControl («Text_X»).Text, «,») 0) and bs Then.

oDlg.getControl («Text_X»).Text=tex.

Sel.Min = Len (oDlg.getControl («Text_X»).text).

Sel.Max = Len (oDlg.getControl («Text_X»).text) oDlg. getControl («Text_X»).setSelection (Sel) end if.

If (InStr (1, oDlg. getControl («Text_X») .Text, «.») 0.

Or InStr (1, oDlg. getControl («Text_X»).Text, «,») 0) then bs=true: else bs=false Case 1288 ' If InStr (l, oDlg. getControl («Text_X»).Text, «-») and bm Then.

oDlg.getControl («Text_X»).Text=tex.

Sel.Min = Len (oDlg.getControl («Text_X»).text).

Sel.Max = Len (oDlg.getControl («Text_X»).text) oDlg. getControl («Text_X») .setSelection (Sel) end if.

If InStr (1, oDlg. getControl («Text_X»).Text, 0.

then bm=true: else bm=false.

Case Is 2 65 'не цифры

oDlg.getControl («Text_X»).Text=tex.

Sel.Min = Len (oDlg. getControl (^,Text_X"). text).

Sel.Max = Len (oDlg. getControl (^,Text_X"). text) oDlg. getControl (^,Text_X"). setSelection (Sel).

End Select.

Tex=oDlg.getControl («Text_X»).Text End Sub.

• 6. Свяжите текстовое иоле Text_X с обработчиком события KeyPressed. Для этого выйдите в окно редактора диалога (вкладка UserFormJF), выделите ноле Text X и в его контекстном меню выберите команду Свойства. Последовательно сделайте следующее (рис. 11.19):
  • • на вкладке События окна Свойства: TextField выберите событие Нажатие клавиши и нажмите кнопкуJ;
  • • в окне Назначить действие из списка выберите Нажатие клавиши нажмите кнопку Макрос;
  • • в окне Выбор макроса последовательно выберите нужные библиотеки, модуль и имя макроса KeyPressed (см. рис. 11.19);
  • • последовательно закройте все открытые окна, нажимая на кнопки ОК;
  • • перейдите в исходный код модуля UserForm_J(вкладка UserFoim_f). Не путайте: есть две вкладки почти с одинаковыми именами. Одна из них — модуль кода с именем UserForm_J, а другая — диалог (форма) с именем UserForm_F.

Рис. 11.19. Окна связывания элемента с обработчиком события.

7. Откомпилируйте процедуры по кнопке ф и запустите их на выполнение по кнопке Выполнить t среды разработки IDE.

В активной форме введите значение аргумента и нажмите па кнопку «Вычислить». Если введены корректные данные, то приложение выведет найденный результат (рис. 11.20).

Рис. 11.20. Окно с результатом вычисления функции Если введены некорректные данные, то приложение выведет диагностическое.

Рис. 11.21. Окно с диагностическим сообщением юобщение (рис. 11.21).

8. Сохраните и закройте файл.

Замечание: проблема импорта в ОрспОШсе Calc электронных таблиц Excel с формами и диалоговыми листами для простых случаев частично решается, для этого необходимо:

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