How to write data into a excel file using vbscript

' This sentence is not work.
'Option Explicit
Dim objExcel, strExcelPath, objSheet

' You need to create the Example.xls file first.
strExcelPath = "c:\Scripts\Example.xls"

' Open specified spreadsheet and select the first worksheet.
Set objExcel = CreateObject("Excel.Application")
objExcel.WorkBooks.Open strExcelPath
Set objSheet = objExcel.ActiveWorkbook.Worksheets(1)

' Modify a cell. row 3, col 2
objSheet.Cells(3, 2).Value = "Test"

' Add a row before row 5.
objSheet.Range("B5").EntireRow.Insert

' Label the new rows. Row 4 is unchanged,
' but what was row 5 is now row 6.
objSheet.Cells(4, 2).Value = "Row 4"
objSheet.Cells(5, 2).Value = "Row 5"
objSheet.Cells(6, 2).Value = "Row 6"

' Save and quit.
objExcel.ActiveWorkbook.Save
objExcel.ActiveWorkbook.Close
objExcel.Application.Quit

Check the file exist. If you want to do this.

strFile = "c:\Scripts\Report.txt

' Check if file exists.
Set objFSO = CreateObject("Scripting.FileSystemObject")
If (objFSO.FileExists(strFile) = True) Then
  objFSO.DeleteFile(strFile)
End If