VBA中操作Excel常用方法总结

页面导航:首页 > 软件编程 > vb > VBA中操作Excel常用方法总结

VBA中操作Excel常用方法总结

来源:互联网 作者:脚本宝典 时间:2015-07-28 13:08 【

要用VBA来关闭工作簿,用Workbook.Close 方法即可,而要退出Excel,则用Application.Quit 方法。 下面是一些代码示例: 关闭活动工作簿,如果工作簿有更改,提示是否保存: 复制代码 代码如

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


Tags:

文章评论

最 近 更 新
热 点 排 行
Js与CSS工具
代码转换工具

<