dim MyExcel as object dim MyBook as object dim Mysheet as object Set MyExcel = CreateObject("Excel.Application") Set MyBook = MyExcel.Workbooks.Add Set Mysheet = MyBook.Worksheets(1) MyExcel.Range(Chr(Asc("A") + I1) & CStr(currow)).Select 'x选中行MyExcel.Range(Chr(Asc("A") + I1) & CStr(currow)).Value = Trim(object2.Item(I1).Text & "") '给单元格赋值MyExcel.Columns.AutoFit'最合适列宽 MyExcel.quite'退出ExcelSet MyExcel = nothingSet MyBook = nothingSet Mysheet = nothing