问题好多啊!首先,Excel工作簿中必须有一个工作表存在,不能全部删除的。其次,代码是否应该改为:Workbooks("excelname").Sheets("Sheet" & r).Delete少了2个引号吧!至于你说的在新建的过程中直接新建为3个SHEET页,可以通过如下语句进行设置。Application.SheetsInNewWorkbook = 3
EXCEL选项-新建工作薄时-包含的工作表数-3
雷克萨决定了科技