VBA入门30：新建工作簿

 方法1：  新建一个工作簿，该工作簿成为活动工作簿，然后保存在C盘的 Data 文件夹中，工作簿名称为：SalesData1.xlsx

Workbooks.Add

 ActiveWorkbook.SaveAs FileName:='C:\Data\SalesData1.xlsx'

---

       

方法2：使用变量新建工作簿，新建工作簿，并赋值到变量wkb，保存到C盘，工作簿名称为123.xls。用变量的好处是方便引用，需要引用该工作簿的时候，只需要引用wkb就可以了。

dim wkb as workbook

set wkb=workbooks.add

wkb.saveas 'c:\123.xls'

以上两个代码，路径是合法的才有结果。

---

栗子：将工作表另存为工作簿。工作表中的数据如下

代码：

这里工作表的copy方法可以新建一个空工作簿，无须ADD。并将工作簿保存在同样的路径下，名称为【三毛.xls】。

On Error GoTo 100是错误处理，当文件【三毛.xls】已经存在的时候，跳过中间的代码，直接运行100：后面的 ActiveWorkbook.Close False代码，将工作簿关闭并且不保存更新，否则会出现下面提示。

---