VBA简单入门23：操作（新建、保存、复制、删除、拆分）工作簿

一、新建工作簿

1、新建临时工作簿

Workbooks.Add

ActiveWorkbook.SaveAs 'c:\123.xlsx'

2、使用变量新建工作簿

Dim Wb As Workbook

Set Wb = Workbooks.Add

Wb.SaveAs Filename:='c:\123.xlsx'

两个代码都可以新建一个名称为123.xlsx的工作簿，并保存在C盘。

代码2使用变量，将工作簿赋值给Wb变量，更加灵活。

新建工作簿后，该工作簿就成为了当前活动工作簿，然后保存工作簿的时候，

需要选择路径保存在那里，但工作簿并没有关闭，需要手工关闭。

Filename:='c:\123.xlsx' 中的Filename:=可以省略。

---

二、SaveAs方法

新建工作簿的时候，需要保存工作簿，一般使用SaveAs方法。

该方法的官方文档为下列链接：

https://msdn.microsoft.com/zh-cn/VBA/Excel-VBA/articles/workbook-saveas-method-excel

SaveAs方法相当于我们保存工作簿的操作，在官方说明中可以看到，其后面的参数都可以省略，省略参数的一些示例如下：（建议写全路径）

ActiveWorkbook.SaveAs ‘默认路径下保存工作簿，自动重命名

ActiveWorkbook.SaveAs '新建' ‘默认路径下保存工作簿，并命名为“新建”

ActiveWorkbook.SaveAs 'D:\新建.xlsx' ‘在D盘下保存工作簿，并命名为“新建”

SaveAs保存对工作簿所做的更改。

所以在关闭工作簿的时候，并没有弹出提示常见的保存更改提示（类似下图）。

保存工作簿更改的另一个方法是：Workbook.Save，也就是常见的保存操作。

当然在新建工作簿的时候也可以使用，但不指定路径，需另外指定。

下面Gif：在C盘新建一个名称为“456.xlsx”工作簿，并在该工作簿的sheet1工作簿的单元格A1输入“套路Excel”。

注意，SaveAs方法保存了工作簿更改，但该程序并没有关闭工作簿。在最后手工关闭工作簿的时候，

并没有是否保存工作簿更改，可以看出SaveAs是保存了工作簿的更改的。

---

三、什么是路径？

如图：路径就是类似 C:\Users\Public的地址, 注意是 \ 不是 / 。

在新建工作簿的时候，指定路径保存工作簿，必须确保路径存在，否则出错。

如保存路径为： 'c:\123\456.xlsx' ，C盘肯定是存在的，但名称为“123的文件名如果不存在，就会出错。

---

四、工作簿的复制和删除

复制工作簿：从一个路径复制到另外一个路径(路径必须存在）

'复制C盘456.xlsx文件到C盘789文件夹里面，并重命名为123.xlsx。

FileCopy 'c:\456.xlsx', 'c:\789\123.xlsx'

Kill 'c:\123.xlsx' '删除文件

---

五、练习：拆分表格为工作簿

在文章 ：VBA简单入门20：删除工作表

我们练习过拆分表格为工作表的练习，现在改为按产品拆分表格为新的工作簿。

参考代码：（大部分代码相同，将保存为工作表的代码修改为保存为工作簿的代码即可）

涉及到工作簿的操作为：

新建工作簿--导入拆分的表格数据--保存工作簿到指定路径--关闭工作簿。

红色方框内的代码完成了上述的操作。

sname = .Range('g' & i) & '.xlsx' '工作簿名称为产品名称

Set wb = Workbooks.Add '新建工作簿

Rng1.Copy wb.Sheets('sheet1').[a1] '导入拆分的数据

wb.SaveAs 'c:\123\' & sname '保存工作簿在C盘的123文件夹里

wb.Close '关闭工作簿（SaveAs已保存工作簿更改）

Excel文件下载请移步到VBA简单入门20：删除工作表 下载。

---