Добавить новый лист в Excel (vbscript)

Question

Set objExcel = CreateObject("Excel.Application") 
objExcel.Visible = True 
Set objWorkBook = objExcel.Workbooks.Add() 
i=4 
objExcel.cells(1,1) = "Test1" 
objExcel.cells(1,1).Font.Bold = True 
objExcel.cells(2,1) = "Steps No" 
objExcel.cells(2,1).Font.Bold = True 
objExcel.cells(2,2) = "Test Steps" 
objExcel.cells(2,2).Font.Bold = True 
objExcel.cells(2,3) = "Expected Result" 
objExcel.cells(2,3).Font.Bold = True 
objExcel.cells(2,4) = "Remarks" 
objExcel.cells(2,4).Font.Bold = True 

'Need to add a new sheet in the excel and add content to it 

objWorkBook.SaveAs(strFile) 
objExcel.Quit 

Я пытаюсь создать электронную таблицу Excel и добавить к ней данные. По умолчанию контент обновляется в первом листе. Необходимо добавить контент ко второму листу. Не знаете, как добавить данные во второй лист.

Answer 1

Нечто подобное

Set objWorkbook = objExcel.Workbooks.Add(1)
добавляет один лист Рабочему

Set objWorkSheet = objWorkbook.Sheets.Add
второй лист для работы с

короче версии

Dim objExcel, objWorkbook, objWorkSheet 
Set objExcel = CreateObject("Excel.Application") 
objExcel.Visible = True 
Set objWorkbook = objExcel.Workbooks.Add(1) 
Set objWorkSheet = objWorkbook.Sheets.Add 

i = 4 
With objWorkSheet 
     .Cells(1, 1) = "Test1" 
     .Cells(1, 1).Font.Bold = True 
     .Range("A2:D2") = Array("Steps No", "Test Steps", "Expected Result", "Remarks") 
     .Range("A2:D2").Font.Bold = True 
End With 

полный код

Dim objExcel, objWorkbook, objWorkSheet 
Set objExcel = CreateObject("Excel.Application") 
objExcel.Visible = True 
Set objWorkbook = objExcel.Workbooks.Add(1) 
Set objWorkSheet = objWorkbook.Sheets.Add 

i = 4 
With objWorkSheet 
    .Cells(1, 1) = "Test1" 
    .Cells(1, 1).Font.Bold = True 
    .Cells(2, 1) = "Steps No" 
    .Cells(2, 1).Font.Bold = True 
    .Cells(2, 2) = "Test Steps" 
    .Cells(2, 2).Font.Bold = True 
    .Cells(2, 3) = "Expected Result" 
    .Cells(2, 3).Font.Bold = True 
    .Cells(2, 4) = "Remarks" 
    .Cells(2, 4).Font.Bold = True 
End With