'前期绑定dim exlApp as Excel.Applicationset exlApp=new Excel.Applicationdim wsBook as WorkBook'定义工作薄dim wsSheet as WorkSheet'定义工作表with exlApp.SheetInNewWorkBook=1'创建工作薄,只需要一个工作表end with未完待续。