VBA中操作Excel常用方法总结

 更新时间:2014年07月24日 11:07:54   投稿:junjie  
这篇文章主要介绍了VBA中操作Excel常用方法总结,包含关闭工作簿、打开工作簿、切换工作表等,需要的朋友可以参考下

要用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

相关文章

  • VB键盘鼠标无动作调用程序的尝试

    VB键盘鼠标无动作调用程序的尝试

    这篇文章主要介绍了VB键盘鼠标无动作调用程序的尝试,记录下整个思路和过程,有需要的小伙伴可以参考下。
    2015-06-06
  • Basic求10000以内的完美数

    Basic求10000以内的完美数

    一个数的所有真因数加起来正好等于这个自然数本身,在数学上,具有这种性质的自然数叫做完全数。关键是求出该自然数k的所有因子。如果k%i为0,则i为k的因子,用循环语句求出k 的所有真因子(1<=i<=k/2),把它们求和,看是否等于k来判断。
    2015-05-05
  • VB关机恶搞小程序

    VB关机恶搞小程序

    本文给大家汇总了一些使用VB实现的关机恶搞小程序,大家娱乐一下就行了,千万别做坏事哦
    2015-09-09
  • 使用WMI得到计算机的信息

    使用WMI得到计算机的信息

    WMI是一项行业推荐规范,旨在为访问企业环境中的管理信息而开发一种标准化技术。该信息包括系统内存的状态、当前安装的客户应用程序清单,以及有关客户端状态的其他数据
    2019-04-04
  • VB的32位程序在64位系统中出现文件和注册表自动转向的解决方法

    VB的32位程序在64位系统中出现文件和注册表自动转向的解决方法

    这篇文章主要介绍了VB的32位程序在64位系统中出现文件和注册表自动转向的解决方法,需要的朋友可以参考下
    2014-07-07
  • VB中使用WMI获取系统硬件和软件有关信息

    VB中使用WMI获取系统硬件和软件有关信息

    WMI是英文Windows Management Instrumentation的简写,它的功能主要是:访问本地主机的一些信息和服务,可以管理远程计算机(当然你必须要拥有足够的权限),比如:重启,关机,关闭进程,创建进程等
    2019-04-04
  • VB调用Word拼写检查功能实例

    VB调用Word拼写检查功能实例

    这篇文章主要介绍了VB调用Word拼写检查功能,非常实用的功能,需要的朋友可以参考下
    2014-07-07
  • VB简易记事本实现代码

    VB简易记事本实现代码

    VB简易记事本实现代码,需要的朋友可以参考下
    2012-10-10
  • VB实现的倒计时类代码详解

    VB实现的倒计时类代码详解

    这篇文章主要介绍了VB实现的倒计时类代码,非常实用的功能,需要的朋友可以参考下
    2014-07-07
  • 关于MSCOMM控件的一些说明

    关于MSCOMM控件的一些说明

    关于MSCOMM控件的一些说明...
    2007-03-03

最新评论