[已解决]用VBA

xiaoni · 发表于 2012-2-1 22:07

怎样用VBA使新建工作薄的工作表个数为1?

最佳答案

sunjing-zxl

2012-2-2 08:11

sub aa()
Application.SheetsInNewWorkbook = 1'新建工作薄工作表个数为1的设置
workbooks.add'新建工作薄
Application.SheetsInNewWorkbook = 3'恢复默认工作薄3个工作表的设置
end sub

hrpotter · 发表于 2012-2-1 22:52

Application.SheetsInNewWorkbook = 1

gdsgzhrsh · 发表于 2012-2-2 00:03

Sub AA()
Application.Workbooks.Add
Worksheets(1).Delete
Worksheets(1).Delete
End Sub

gdsgzhrsh · 发表于 2012-2-2 00:05

新建一个工作簿，删除2个工作表就可以了

sunjing-zxl · 发表于 2012-2-2 08:11

sub aa()
Application.SheetsInNewWorkbook = 1'新建工作薄工作表个数为1的设置
workbooks.add'新建工作薄
Application.SheetsInNewWorkbook = 3'恢复默认工作薄3个工作表的设置
end sub

		自动登录	找回密码
密码			注册