作者：乔山办公网日期：
返回目录：excel表格制作
参考 唐宛如彻底地受到了惊吓。然后转身愤怒地离开了。
疑点很多：
1.
Dim XLWorkBookTemp As New Excel.Workbook
Dim XLsheetTemp As New Excel.Worksheet
会新抄建工作薄和工作表，如果你百只是想打开工作薄和工作表，最度好把new去掉
2.
确定有sheet1这个表名，不确定就用数问字索引吧。
3.
XLWorkBookTemp.Close
XlAppTemp.Quit
应该会释放Application吧，下次调用就会答出错了
我的理解
Sheets.Add.Name = Combo1.List(l)
是在Excel打开的工作复簿里添加数据制表百,当第2次再度添加同样名字的数据表,应该添加不进去的吧?
你确定第2次Combo1里的问内容与第答1次的时候全都不一样?
Cells(1, 1) 所有用到cells的地方都要改为 objSheet.cells
objExcel.Range 改为 objSheet.Range
cells是代表单元格，一百个excel应用程序（Application）有多个工作簿(workbook)，每度个工作簿有多个表格(worksheet)，每个表格有各自的单元格(cells)，在用到表格时必内须指定是哪个工作簿的，在用到单元格时必须指定是哪个表格的。一级一级的关系容不能搞错。