VBA中操作Excel常用方法总结

   2015-06-24 0
核心提示:这篇文章主要介绍了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

 
标签: VBA Excel
反对 0举报 0 评论 0
 

免责声明:本文仅代表作者个人观点,与乐学笔记(本网)无关。其原创性以及文中陈述文字和内容未经本站证实,对本文以及其中全部或者部分内容、文字的真实性、完整性、及时性本站不作任何保证或承诺,请读者仅作参考,并请自行核实相关内容。
    本网站有部分内容均转载自其它媒体,转载目的在于传递更多信息,并不代表本网赞同其观点和对其真实性负责,若因作品内容、知识产权、版权和其他问题,请及时提供相关证明等材料并与我们留言联系,本网站将在规定时间内给予删除等相关处理.

  • 二进制文件存取示例(VB&VBA) 二进制数据文件
    ' 1. 保存文件到数据库Sub s_SaveFile()    Dim iStm As ADODB.Stream    Dim iRe As ADODB.Recordset    Dim iConcStr As String 'SQL数据库的连接字符串    iConcStr = "Provider=SQLOLEDB.1;Persist Security Info=True;"_        "Us
    02-09
  • VB类模块中属性的参数——VBA中Range对象的Value属性和Value2属性的一点区别
    VB类模块中属性的参数——VBA中Range对象的Valu
    在VB中,属性是可以有参数的,而VBA中属性使用参数非常常见。比如最常用的:Worksheet.Range("A1:A10") VB的语法,使用参数的不一定是方法,也有可能是属性!(虽然属性的本质是方法)例一:参数当作“索引”使用定义一个类模块,模块名称Ints。为简化模型,使
    02-09
  • VBA是什么?和VB有什么关系 vba和vbe
    VBA是什么---------------------------------------  直到90年代早期,使应用程序自动化还是充满挑战性的领域.对每个需要自动化的应用程序,人们不得不学习一种不同的自动化语言.例如:可以用EXCEL的宏语言来使EXCEL自动化,使用WORD BASIC使WORD自动化,等等.微
    02-09
  • Lotus Notes Send EMail from VB or VBA
    Original doc link:http://www.fabalou.com/VBandVBA/lotusnotesmail.asp你知道吗?VBA或者VB可以直接编程从发送邮件到Notes系统中,当然前提条件是在运行代码的这台机器上必须安装Notes 客户端并且完成配置.要指出的一个问题那就是所有 Lotus Notes 对象声明
    02-09
  • VBA/VB6/VBS/VB.NET/C#/Python/PowerShell都能调用的API封装库
    VBA/VB6/VBS/VB.NET/C#/Python/PowerShell都能
     API函数很强大,但是声明的时候比较繁琐。我开发的封装库,包括窗口、键盘、鼠标、消息等常用功能。用户不需要添加API函数的声明,就可以用到API的功能。在VBA、VB6的引用对话框中引用API.tlb文件,就可以用到其中的函数和方法,在VB.Net或C#项目中引用API.
    02-08
  • Inspect(VB6、VBA版)软件的下载和使用
    Inspect(VB6、VBA版)软件的下载和使用
    Inspect是进行UI Automation自动化编程的必备工具。下载地址:https://share.weiyun.com/R3QI4yfl进入该目录后,找到Inspect_VBAVB6.zip,下载到本地。   解压缩后,双击Inspect.exe启动工具。如果没有正常启动,请以管理员身份运行Regdll.exe。  左边的
    02-08
  • VBA解决Windows空当接龙的617局
    本文给大家分享的是使用VBA解决Windows空当接龙的617局的方法和思路,有需要的小伙伴可以参考下。
  • VBA将excel数据表生成JSON文件
    本文给大家汇总介绍了几种使用VBA处理EXCEL并生成JSON文件的方法和思路,非常的实用,有需要的小伙伴可以参考下。
    09-24 excelvbajson
点击排行