..2 Формуляр


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

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


 

Вставьте VBScript - процедуру Заключительной пост-обработки 


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



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


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
  Next

End Sub

 

Выберите таблицу контекста, передаваемую в VBScript-процедуру

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

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

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

 


Активируйте формуляр, нажав на кнопку 

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