Dim ExcelObj As Object
    Dim ExcelBook As Object
    Dim ExcelSheet As Object

    Set ExcelObj = CreateObject("Excel.Application")
    Set ExcelSheet = CreateObject("Excel.Sheet")