..2 Формуляр

Откройте предыдущий формуляр

Откройте в XLSX Workbench формуляр SHIPPING_LABELS из предыдущего примера и выделите корневой узел структуры формуляра

Нажмите на кнопку

расположенную Вкладке свойств корневого компонента, в пункте "Заключительная пост-обработка".

Откроется окно редактора кода :

Вставьте следующий код:

Sub Entry()

' add new worksheet

Set MySheet = XLWB_ActiveWorkbook.Sheets.Add

MySheet.Name = "TestVBScript"

' get table, which we have chosen from context and named T_LABELS

Set MyTable = XLWB_ActiveWorkbook.Container.Tables("T_LABELS").Table

' loop at table

For i = 1 To MyTable.Rows.Count

Set MyTableRow = MyTable.Rows(i)

MySheet.Cells(i, 1).Value = MyTableRow.Cell(1) 'Name

MySheet.Cells(i, 2).Value = MyTableRow.Cell(2) 'Street

MySheet.Cells(i, 3).Value = MyTableRow.Cell(3) 'Town

MySheet.Cells(i, 4).Value = MyTableRow.Cell(4) 'State

MySheet.Cells(i, 5).Value = MyTableRow.Cell(5) 'Zip

End Sub

Нажмите на кнопку

находящуюся справа от предыдущей кнопки. Откроется экран выбора таблиц контекста, передаваемых в VBScript - процедуру Заключительной пост-обработки .

Примечание 1: Доступны для выбора только таблицы, находящиеся на верхнем уровне вложенности контекста.

Примечание 2: Выбирайте только таблицы, состоящие из простых полей (т.е. без вложенных таблиц и структур).

Выберем единственно доступную таблицу и назовем её T_LABELS (под этим именем она будет доступна в VBScript-процедуре) :

Формуляр готов.