ClickDimappXLAsExcel.ApplicationDimwbXlAsExcel.WorkbookDimshXLAsExcel.WorksheetDimraXLAsExcel.Range'StartExcelandgetApplicationobject.appXL=CreateObject("Excel.Application