VBA中操作Excel常用方法总结
更新时间：2014年07月24日 11:07:54 投稿：junjie
这篇文章主要介绍了VBA中操作Excel常用方法总结,包含关闭工作簿、打开工作簿、切换工作表等,需要的朋友可以参考下
（福利推荐：【腾讯云】服务器最新限时优惠活动，云服务器1核2G仅99元/年、2核4G仅768元/3年，立即抢购>>>：9i0i.cn/qcloud）
（福利推荐：你还在原价购买阿里云服务器？现在阿里云0.8折限时抢购活动来啦！4核8G企业云服务器仅2998元/3年，立即抢购>>>：9i0i.cn/aliyun）
要用VBA来关闭工作簿，用Workbook.Close 方法即可，而要退出Excel，则用Application.Quit 方法。
下面是一些代码示例： 关闭活动工作簿，如果工作簿有更改，提示是否保存：
复制代码 代码如下:
Sub CloseWorkbook()
ActiveWorkbook.Close
End Sub
如果要避免出现提示，可添加“SaveChanges”参数，如直接保存并关闭工作簿：
复制代码 代码如下:
Sub ClostAndSaveWorkbook()
ActiveWorkbook.Close Savechanges:=True
End Sub
将上述代码中的“True”改为“False”，则直接关闭工作簿而不保存。
关闭所有打开的工作簿，并提示是否保存：
复制代码 代码如下:
Sub CloseAllWorkbooks()
On Error Resume Next
Workbooks.Close
End Sub
退出Excel，并提示对有更改的工作簿进行保存：
复制代码 代码如下:
Sub QuitExcel()
Application.Quit
End Sub
保存活动工作簿并退出Excel：
复制代码 代码如下:
Sub SaveActiveWorkAndQuit()
ActiveWorkbook.Save
Application.Quit
End Sub
下面的代码在退出Excel时都不会提示是否保存工作簿。
保存所有打开的工作簿并退出Excel：
复制代码 代码如下:
Sub SaveAllAndQuit()
For Each wbk In Workbooks
wbk.Save
Next
Application.Quit
End Sub
退出Excel，所有的改动都不保存：
复制代码 代码如下:
Sub QutiAndNoAlerts()
Application.DisplayAlerts = False
Application.Quit
End Sub
下面列举了一些VBA的常用操作：
打开一个新工作簿
复制代码 代码如下:
Workbooks.Add
获得第一个工作簿的名称
复制代码 代码如下:
Workbooks(1).Name
获得打开的工作簿数目
复制代码 代码如下:
Workbooks.Count
激活第二个打开的工作簿
复制代码 代码如下:
Workbooks(2).Activate
激活工作簿Chap02.xls
复制代码 代码如下:
Workbooks("Chap02.xls").Activate
当前活动的工作簿存盘为NewChap.xls
复制代码 代码如下:
ActiveWorkbook.SaveAs Filename:="NewChap.xls"
关闭第一个工作簿
复制代码 代码如下:
Workbooks(1).Close
关闭当前活动的工作簿，不保存变化
复制代码 代码如下:
ActiveWorkbook.Close SaveChanges:=False
关闭所有打开的工作簿
复制代码 代码如下:
Workbooks.Close
如果你运行了最后一个例子，那么现在你所有的工作簿都已经关闭了。
在你要在工作表上使用前，请确保先打开一个新工作簿。
当你除了单个工作表时，你必须知道如何在工作簿里添加新的工作表，知道如何选择一个或一组工作表，知道如何命名、复制、移动和删除工作表。
在VB里，每个任务都需要一个专门的方法或属性。
添加一个新工作表
复制代码 代码如下:
Worksheets.Add
获得第一个工作表的名称
复制代码 代码如下:
Worksheets(1).Name
选择名为“Sheet3”的工作表
复制代码 代码如下:
Worksheets(3).Select
选择第一，第三和第四个工作表
复制代码 代码如下:
Worksheets(Array(1,3,4)).Select
激活名为“Sheet1”的工作表
复制代码 代码如下:
Worksheets(“Sheet1”).Activate
将工作表“Sheet2”移动到工作表“Sheet1”之前
复制代码 代码如下:
Worksheets("Sheet2").Move Before:=Worksheets("Sheet1")
重命名工作表“Sheet2”为“Expenses”
复制代码 代码如下:
Worksheets("Sheet2").Name = "Expenses"
获得当前工作簿里的工作表数目
复制代码 代码如下:
Worksheets.Count
删除当前工作簿里的工作表“Expenses”
复制代码 代码如下:
Worksheets("Expenses").Delete
您可能感兴趣的文章:
相关文章
一个数的所有真因数加起来正好等于这个自然数本身，在数学上，具有这种性质的自然数叫做完全数。关键是求出该自然数k的所有因子。如果k%i为0，则i为k的因子，用循环语句求出k 的所有真因子（1<=i<=k/2)，把它们求和，看是否等于k来判断。2015-05-05
这篇文章主要介绍了VB使用ADO操作Access数据库的相关资料,需要的朋友可以参考下2015-06-06
VB判断地址是否存在的XMLHTTP方法2008-07-07
这篇文章主要介绍了VB获取文件大小的方法,可实现准确获取文件大小的功能,需要的朋友可以参考下2015-06-06
一般来说，VB和VC共同编程有3种方式：一种是VC生成DLL，在VB中调用DLL；一种是VC生成ActiveX控件(.ocx)，在VB中插入；还有一种是在VC中生成ActiveX Automation服务器，在VB中调用2013-04-04
这篇文章主要介绍了VB简单实现防止文件被改写的方法，十分的简单实用，有需要的小伙伴可以参考下。2015-06-06
这篇文章主要介绍了VB6实现连接Access数据库的ADODB代码实现方法,对于初学者掌握VB链接access数据库有着很好的借鉴价值,需要的朋友可以参考下2014-07-07
这篇文章主要介绍了VBA中连接SQLSERVER数据库例子,VBA是指Visual Basic for Applications,是Visual Basic的一种宏语言,需要的朋友可以参考下2014-07-07
这篇文章主要介绍了浅谈如何使用vb.net从数据库中提取数据，使用VB提取数据，是先查找，做成数组，再显示到数据里，如果感兴趣可以了解一下2020-07-07
这篇文章主要介绍了VB的TextBox文本框实现垂直居中显示的方法,比较实用的功能,需要的朋友可以参考下2014-07-07
最新评论