Рисунок 4. Таблица Excel с результатами

Далее приводится фрагмент сценария, реализующего все эти действия.

Листинг 7. Создание документа Excel c результатами

…………….

Set s = oE.Sheets(1)     ' Лист 1

s.Name = "Список"      

Set s1 = oE.Sheets(2)    ' Лист 2

s1.Name = "Сумма"      

s.Rows(1).RowHeight = 2 * s.StandardHeight

s.Cells(1,1) = "Список установленных приложений"

s.Cells(2,1) = "Имя компьютера"    

s.Cells(2,2) = "Приложения"        

s.Columns("A:B").Columns.AutoFit

With s.Range("A1:B1") 

  .MergeCells = True

  .VerticalAlignment = xlCenter

  .HorizontalAlignment = xlCenter

  .Font.Size=14

End With

s1.Rows(1).RowHeight = 2 * s1.StandardHeight

s1.Cells(1,1) = "Количество установленных приложений"

s1.Cells(2,1) = "Приложение"    

s1.Cells(2,2) = "Всего установок"      

s1.Columns("A:B").Columns.AutoFit

With s1.Range("A1:B1")

  .MergeCells = True

  .VerticalAlignment = xlCenter

  .HorizontalAlignment = xlCenter

  .Font.Size=14

End With

Set objFSO = CreateObject("Scripting.FileSystemObject")