用VBA打开、关闭、新建、保存和删除Excel工作簿

今天来讲一下工作簿的基本操作，包括如何打开一个Excel工作簿，如果新建及保存一个Excel工作簿。工作簿的打开用的是Open方法，关闭用close方法，新建用的是Add方法，保存用的是Save方法，另存为用的是SaveAs方法，删除用的是Kill方法。具体看实例。

首先看怎么利用VBA来新建一个Excel工作簿。在桌面上新建一个工作簿，命名为原文件，现在我们就要在原文件中通过VBA代码在桌面上新建一个叫做"新文件.xlsx“的工作簿。看代码

1. Sub test()
   
2. Dim wb As Workbook        '定义wb为workbook对象
   
3. On Error Resume Next      '如有错误则跳过
   
4. Kill ThisWorkbook.Path & "\新文件.xlsx"   '删除相同路径下同名文件
   
5. Set wb = Workbooks.Add    '新建一个工作簿
   
6. wb.Password = "123456"    '设置查看密码为123456
   
7. wb.SaveAs ThisWorkbook.Path & "\新文件.xlsx"  '保存，需完整路径
   
8. wb.Close False      '关闭
   
9. End Sub

复制代码

上面的代码中先利用Kill方法将相同路径下的同名文件删除，防止保存时报告存在同名文件的错误，但是如果本来没有同名文件的话程序又会报告找不到该文件，所以这里又用到了On Error Resume Next，这条语句是处理错误时常用的，它告诉程序忽略下一个错误，继续往后执行。然后程序中用Add方法新建了一个工作簿，并且将该工作簿的PassWord属性设为了”123456“，即打开工作簿的密码。之后用SaveAs方法将文件保存，SaveAs需要完整的路径名做参数。这里之所以用SaveAs而不是Save，我们前面说过SaveAs相当于另存为，用过Excel的都知道新建的工作簿保存时都会弹出另存为对话框让你填名称，没什么不能理解的。保存完之后就可以用Close方法关闭了。

下面再简单介绍下Open方法和Save方法，现在我们有了一个新文件.xlsx工作簿，现在要打开这个工作簿并且另Sheet1的A1单元格值为”Hello"，看下在的代码

1. Sub test2()
   
2. Dim wb As Workbook
   
3. Set wb = Workbooks.Open(Filename:=ThisWorkbook.Path & "/新文件.xlsx", Password:="123456")
   
4. wb.Sheets(1).Range("A1") = "Hello"
   
5. wb.Save
   
6. wb.Close
   
7. End Sub

复制代码

上面的代码中Workbooks.Open命令用来打开Excel工作簿，它有很多参数，具体可以百度，必须的参数是文件路径，即Filename参数，因为我们建的工作簿有密码所以我这里又加了一个Password参数，新手朋友可以观察下参数是怎么写的，用的是“:=”这种形式。修改Sheet1中A1的内容为"Hello"然后保存，这里用的就是Save而不是SaveAs了，因为我们这里不需要重命名文件，之后关闭即可。
上面即是工作簿的基本操作，是我们解决很多问题的基础，在以后的实例分析中会应用很广。