分享

用VBA打开、关闭、新建、保存和删除Excel工作簿 | VBA实例教程

 gblhp 2015-02-16

除非注明,文章均为 战战如疯 原创,转载请保留链接: /cat1/94.html,VBA交流群273624828。

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

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

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

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

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

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

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

    本站是提供个人知识管理的网络存储空间,所有内容均由用户发布,不代表本站观点。请注意甄别内容中的联系方式、诱导购买等信息,谨防诈骗。如发现有害或侵权内容,请点击一键举报。
    转藏 分享 献花(0

    0条评论

    发表

    请遵守用户 评论公约

    类似文章 更多