office办公

VBA中操作Excel常用方法总结内容

时间:2024-10-16 14:00:10 office办公 我要投稿
  • 相关推荐

VBA中操作Excel常用方法总结内容

  要用VBA来关闭工作簿,用Workbook.Close 方法即可,而要退出Excel,则用Application.Quit 方法。

VBA中操作Excel常用方法总结内容

  下面是一些代码示例: 关闭活动工作簿,如果工作簿有更改,提示是否保存:

  复制代码 代码如下:

  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常用方法总结内容】相关文章:

盘点excel表格中使用vba修改指定列宽方法09-22

Excel中if函数使用的方法06-16

excel表格的基本操作08-11

excel中sumif函数使用方法03-23

Excel中COUNTIF函数的使用方法01-23

在excel中对多个工作表快速编辑的方法05-22

在excel单元格中画表格的方法01-04

总结EXCEL的正确学习方法02-14

excel操作练习试题「附答案」06-28

简单易学的Excel表格基本操作03-22