芬兰铁路官网:自学资料(Excel VBA)[收集整理7]

来源:百度文库 编辑:九乡新闻网 时间:2024/04/28 14:11:58

自学资料(Excel VBA)[收集整理7]

五)、工作表
  1、添加
  Sheets.Add before:=Sheets(1) '在第1工作表前添加新工作表
  Sheets.Add after:=Sheets(Sheets.Count) '在最后工作表后添加新工作表
  2、移动
  ActiveSheet.Move before:=Sheets(2) '将当前工作表移动至第2工作表之前
  3、命名
  ActiveSheet.Name="工作表名" '将当前工作表命名为"工作表名"
  4、删除
  可以用以下语句删除当前工作表。
  ActiveSheet.Delete
  但在删除前Excel会自动弹出提示框,需在用户确认后方可执行删除。为避免这一干扰,可以先用以下语句关闭Excel的警告提示。
  Application.DisplayAlerts = False
  在删除完成后,再重新打开Excel的警告提示
  Application.DisplayAlerts = True
  六)、工作簿
  Excel的宏对工作簿的操作主要为保存。
  Dim 存盘文件名 As String
  ActiveWorkbook.Save '保存当前工作簿
  存盘文件名="工作表名"
  ActiveWorkbook.SaveAs Filename:= 存盘文件名 '当前工作簿另存为"工作表名.xls"
  在另存时,若指定的存盘文件名不包含路径,则保存在该工作簿的打开目录下。而若此存盘文件已存在,也可用关闭Excel警告提示的方法以免其自动弹出提示框。

转载自 http://bbs.it.com.cn/showtopic-169943.aspx