Question

你好， 我之前在这里提的一个关于EXCEL的问题你帮忙解决了，现在又出了些问题，可否帮我看一下，谢谢了。

这是原来的问题：http://zhidao.baidu.com/question/282676336.html
之前做的一直好用，但是在其他公司的EXCEL2003用时，在这个循环会出错：
For r = 1 To 3
Workbooks(excelname).Sheets("Sheet" & r).Delete
Next r
我觉得可能是在他们公司新建的过程中只新建了一个Sheet1页，而我这里和后续的处理都是默认新建文件是Sheet1,Sheet2,Sheet3的情况编写的。

问一下可否将新建文件的代码设置一个属性，让其在新建的过程中直接新建为3个SHEET页？多谢。

Answer 1

问题好多啊！
首先，Excel工作簿中必须有一个工作表存在，不能全部删除的。
其次，代码是否应该改为：Workbooks("excelname").Sheets("Sheet" & r).Delete
少了2个引号吧！
至于你说的在新建的过程中直接新建为3个SHEET页，可以通过如下语句进行设置。
Application.SheetsInNewWorkbook = 3

追问

我新建文件的代码是这样excelname = optArray(optValue) & ".xls"
Dim excelApp, excelWB As Object
Dim savePath As String
Set excelApp = CreateObject("Excel.Application")
Set excelWB = excelApp.Workbooks.Add
excelApp.DisplayAlerts = False
savePath = ActiveWorkbook.Path & "\" & excelname
excelWB.SaveAs savePath
请问Application.SheetsInNewWorkbook = 3 语句哪里加呢？

追答

Sub aa()
Dim aa As Integer
aa = Application.SheetsInNewWorkbook
Application.SheetsInNewWorkbook = 3 '在新建工作簿时插入3张工作表
……
Application.SheetsInNewWorkbook = aa '恢复工作簿的默认设置
End Sub
放在Set excelWB = excelApp.Workbooks.Add这句代码前面，然后最后加一句恢复工作簿的默认设置

追问

可能是我的EXCEL问题 执行Application.SheetsInNewWorkbook = 3 （或其他数）后确实更改了选项里的值，但是在新建的EXCEL中，不论是VBA创建的还是后来我手动创建的，都还只是有3个SHEET页 这是怎么回事啊？

追答

Application.SheetsInNewWorkbook = aa '恢复工作簿的默认设置
这一条语句是否执行过？
另外你希望有几个工作表？

Answer 2

EXCEL选项－新建工作薄时－包含的工作表数－3

Answer 3

雷克萨决定了科技