源码网商城,靠谱的源码在线交易网站 我的订单 购物车 帮助

源码网商城

VBA中操作Excel常用方法总结

  • 时间:2021-06-12 19:11 编辑: 来源: 阅读:
  • 扫一扫,手机访问
摘要:VBA中操作Excel常用方法总结
要用VBA来关闭工作簿,用Workbook.Close 方法即可,而要退出Excel,则用Application.Quit 方法。 下面是一些代码示例: 关闭活动工作簿,如果工作簿有更改,提示是否保存:
[u]复制代码[/u] 代码如下:
    Sub CloseWorkbook()     ActiveWorkbook.Close     End Sub
如果要避免出现提示,可添加“SaveChanges”参数,如直接保存并关闭工作簿:
[u]复制代码[/u] 代码如下:
    Sub ClostAndSaveWorkbook()     ActiveWorkbook.Close Savechanges:=True     End Sub
将上述代码中的“True”改为“False”,则直接关闭工作簿而不保存。 关闭所有打开的工作簿,并提示是否保存:
[u]复制代码[/u] 代码如下:
    Sub CloseAllWorkbooks()     On Error Resume Next     Workbooks.Close     End Sub
退出Excel,并提示对有更改的工作簿进行保存:
[u]复制代码[/u] 代码如下:
    Sub QuitExcel()     Application.Quit     End Sub
保存活动工作簿并退出Excel:
[u]复制代码[/u] 代码如下:
    Sub SaveActiveWorkAndQuit()     ActiveWorkbook.Save     Application.Quit     End Sub
下面的代码在退出Excel时都不会提示是否保存工作簿。 保存所有打开的工作簿并退出Excel:
[u]复制代码[/u] 代码如下:
    Sub SaveAllAndQuit()     For Each wbk In Workbooks     wbk.Save     Next     Application.Quit     End Sub
退出Excel,所有的改动都不保存:
[u]复制代码[/u] 代码如下:
    Sub QutiAndNoAlerts()     Application.DisplayAlerts = False     Application.Quit     End Sub
下面列举了一些VBA的常用操作: 打开一个新工作簿
[u]复制代码[/u] 代码如下:
Workbooks.Add
获得第一个工作簿的名称
[u]复制代码[/u] 代码如下:
Workbooks(1).Name
获得打开的工作簿数目
[u]复制代码[/u] 代码如下:
Workbooks.Count
激活第二个打开的工作簿
[u]复制代码[/u] 代码如下:
Workbooks(2).Activate
激活工作簿Chap02.xls
[u]复制代码[/u] 代码如下:
Workbooks("Chap02.xls").Activate
当前活动的工作簿存盘为NewChap.xls
[u]复制代码[/u] 代码如下:
ActiveWorkbook.SaveAs Filename:="NewChap.xls"
关闭第一个工作簿
[u]复制代码[/u] 代码如下:
Workbooks(1).Close
关闭当前活动的工作簿,不保存变化
[u]复制代码[/u] 代码如下:
ActiveWorkbook.Close SaveChanges:=False
关闭所有打开的工作簿
[u]复制代码[/u] 代码如下:
Workbooks.Close
如果你运行了最后一个例子,那么现在你所有的工作簿都已经关闭了。 在你要在工作表上使用前,请确保先打开一个新工作簿。 当你除了单个工作表时,你必须知道如何在工作簿里添加新的工作表,知道如何选择一个或一组工作表,知道如何命名、复制、移动和删除工作表。 在VB里,每个任务都需要一个专门的方法或属性。 添加一个新工作表
[u]复制代码[/u] 代码如下:
Worksheets.Add
获得第一个工作表的名称
[u]复制代码[/u] 代码如下:
Worksheets(1).Name
选择名为“Sheet3”的工作表
[u]复制代码[/u] 代码如下:
Worksheets(3).Select
选择第一,第三和第四个工作表
[u]复制代码[/u] 代码如下:
Worksheets(Array(1,3,4)).Select
激活名为“Sheet1”的工作表
[u]复制代码[/u] 代码如下:
Worksheets(“Sheet1”).Activate
将工作表“Sheet2”移动到工作表“Sheet1”之前
[u]复制代码[/u] 代码如下:
Worksheets("Sheet2").Move Before:=Worksheets("Sheet1")
重命名工作表“Sheet2”为“Expenses”
[u]复制代码[/u] 代码如下:
Worksheets("Sheet2").Name = "Expenses"
获得当前工作簿里的工作表数目
[u]复制代码[/u] 代码如下:
Worksheets.Count
删除当前工作簿里的工作表“Expenses”
[u]复制代码[/u] 代码如下:
Worksheets("Expenses").Delete
  • 全部评论(0)
联系客服
客服电话:
400-000-3129
微信版

扫一扫进微信版
返回顶部