Set exlapp = CreateObject("Excel.Application")然后再定义其它对象，比如： Set exlBook = exlApp.Workbooks.Add Set exlSheet = exlBook.Worksheets(1)
