Colorful Life²⁰¹⁰

大显的生产ERP二期正在验收，由于很多地方要生成EXCEL报表，并且明细数据和统计结果都想要，这样就只好使用EXCEL模板。像比较简单的一些东西，使用公式即可。但是对大量数据的分类汇总统计，用公式的话，会导致打开报表的EXCEL机器死机或是非常慢，所以采用的EXCEL自带的透视图功能。于是进行测试，在自己这边测试得好好的，但只要拿到大显的服务器上就一个劲出错，出一次错就造成一个EXCEL的IUSER用户的死进程，刷了一阵后十几二十个死进程，并且这些进程杀不掉，使用管理员用户也杀不掉（对于WIN2000），只有重启服务器才能解决。另外，即使加了错误处理，如on error resume next(for asp),try...catch...(for asp.net)都不好用，照样出现死进程。

在编写代码时，经常要引用工作表的名字、知道工作表在工作簿中的位置、增加工作表、删除工作表、复制工作表、移动工作表、重命名工作表，等等。下面介绍与此有关及相关的一些属性和方法示例。
 

[示例04-01]增加工作表(Add方法)
Sub AddWorksheet()
   MsgBox "在当前工作簿中添加一个工作表"
   Worksheets.Add
   MsgBox "在当前工作簿中的工作表sheet2之前添加一个工作表"
   Worksheets.Add before:=Worksheets("sheet2")
   MsgBox "在当前工作簿中的工作表sheet2之后添加一个工作表"
   Worksheets.Add after:=Worksheets("sheet2")
   MsgBox "在当前工作簿中添加3个工作表"...

Workbook对象代表工作簿，而Workbooks集合则包含了当前所有的工作簿。下面对Workbook对象的重要的方法和属性以及其它一些可能涉及到的方法和属性进行示例介绍，同时，后面的示例也深入介绍了一些工作簿对象操作的方法和技巧。
 

示例03-01：创建工作簿(Add方法)
[示例03-01-01]
Sub CreateNewWorkbook1()
   MsgBox "将创建一个新工作簿."
   Workbooks.Add
End Sub...

Range对象可能是VBA代码中最常用的对象，Range对象可以是某一单元格、某一单元格区域、某一行、某一列、或者是多个连续或非连续的区域组成的区域。下面介绍Range对象的一些属性和方法。
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -

Application对象代表整个Microsoft Excel应用程序，带有175个属性和52个方法，可以设置整个应用程序的环境或配置应用程序。

 示例01-01：体验开/关屏幕更新(ScreenUpdating属性)
Sub 关闭屏幕更新()
   MsgBox "顺序切换工作表Sheet1→Sheet2→Sheet3→Sheet2，先开启屏幕更新，然后关闭屏幕更新"
   Worksheets(1).Select
   MsgBox "目前屏幕中显示工作表Sheet1"
   Application.ScreenUpdating = True