VBA新建一个excel文件，并且这个excel里面含有5个sheet，如何操作？
2个回答
展开全部
在Excel选项中，“常用”→“新建工作簿时”→包含的工作表数→改为5。
以后新建工作簿时，会默认打开5个工作表sheet。
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
展开全部
Option Explicit
Sub test1()
Dim wb As Workbook
Set wb = Workbooks.Add
With wb.Worksheets
.Add After:=wb.Worksheets(.Count), Count:=5 - .Count
End With
'以下是可选代码
'将新建的工作簿激活为当前窗口
wb.Activate
'将工作簿保存到D盘根目录，名字为newWorkbook.xlsx, 格式为.xlsx格式（excel2007及以上版本默认格式）
wb.SaveAs "D:\newWorkbook.xlsx", 56
End Sub
Sub test2()
'如果是从外部程序创建，如在word中执行操作，则需要先创建个excel对象。
Dim appExcel As Excel.Application
Dim wb As Workbook
Set appExcel = CreateObject("Excel.Application")
Set wb = appExcel.Workbooks.Add
With wb.Worksheets
.Add After:=wb.Worksheets(.Count), Count:=5 - .Count
End With
End Sub
本回答被提问者和网友采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
