自学资料（Excel VBA）[收集整理7]

默认分类   2009-08-01 11:57   阅读44   评论0  

字号： 大大  中中  小小

五)、工作表
　　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