一.用VB创建外部EXCEL对象
大多数大型ActiveX-enabled应用程序和其它ActiveX部件，在它们的对象层次中都提供了一个顶层外部可创建对象。该对象提供了对该层次中其它对象的访问，并且还提供对整个应用程序起作用的方法和属性。
例如，每个MicrosoftOffice应用程序提供一个顶层Application对象。下面语句显示了对Microsoftoffice/9.shtml'target='_blank'class='article'>Excel的Application对象的引用：
DimxlAppAsExcel.Application
SetxlApp=NewExcel.Application
然后，可以用这些变量来访问在EXCEL应用程序中的从属对象、以及这些对象的属性和方法。例如：
SetxlApp=CreateObject("Excel.Application")
‘激活EXCEL应用程序
xlApp.Visible=False‘隐藏EXCEL应用程序窗口
SetxlBook=xlApp.Workbooks.Open(strDestination)
‘打开工作簿，strDestination为一个EXCEL报表文件
SetxlSheet=xlBook.Worksheets(1)
‘设定工作表
　　二.用EXCEL97设计报表的模版文件
EXCEL97是一个非常优秀的创建报表的工具。它提供的单元格任意合并、拆分和绘图功能基本上能够满足设计所有复杂报表的需求。它对任意一个单元格的格式随意控制，更为随心所欲地设计报表提供了强大的支持。
根据用户提供的报表，我们可以很快在EXCEL里生成模版文件。所谓生成模版文件只是为了满足用户多方面的需求而设计的。也是为了适合报表以后的更改而做的一点预备工作。例如用户需要打印几百张职工履历表，但其格式都是一致的，并且随着时间和实际情况的变化，表格格式有可能需要改变，我们设计一个模版文件显然可以“以不变应万变”了。
生成工作表时我们应当记录下要填充内容的单元格编号和该单元格内要填充的数据字段。这样形成一个表格，在写程序时一目了然。如：
Cell(4,2)职工姓名Cell(6,6)毕业学校
Cell(4,4)职工性别Cell(6,7)所学专业
Cell(4,6)职工民族Cell(6,9)工作时间
　　（表一）
在程序里我们当然不要对模版文件进行操作了，我们只需要对模版文件的一个拷贝进行操作就行（这也是我们设计模版文件的一个目的和好处）。如下面的例子：
DimstrSource,strDestinationAsString
strSource=App.Path&"ExcelsRegisterFee.xls"
‘RegisterFee.xls就是一个模版文件
strDestination=App.Path&"ExcelsTemp.xls"
FileCopystrSource,strDestination
‘将模版文件拷贝到一个临时文件
　　三.生成工作表内容
有了上述两步工作的铺垫，我们下面接着就只要根据（表一）的格式给各单元格赋值了。如：
datPrimaryRS.Recordset.MoveFirst
‘datPrimaryRS为Data控件
IfIsNull(datPrimaryRS.Recordset!姓名)=FalseThen
xlSheet.Cells(4,2)=datPrimaryRS.Recordset!姓名
EndIf
IfIsNull(datPrimaryRS.Recordset!性别)=FalseThen
xlSheet.Cells(4,4)=datPrimaryRS.Recordset!性别
EndIf
IfIsNull(datPrimaryRS.Recordset!民族)=FalseThen
xlSheet.Cells(4,6)=datPrimaryRS.Recordset!民族
EndIf
　　四.打印报表
生成了工作表后，就可以对EXCEL发出打印指令了。
注意在执行打印操作之前应该对EXCEL临时文件执行一次保存操作，以免在退出应用程序后EXCEL还提示用户是否保存已修改的文件，让用户觉得莫名其妙。如下语句：
xlBook.Save‘保存文件
xlSheet.PrintOut‘执行打印
xlApp.Quit‘退出EXCEL
至此读者应该看到，我们设计的报表打印是通过EXCEL程序来后台实现的。用户根本看不到具体过程，他们只看到一张张漂亮的报表轻易地被打印出来了。　在VisualBasic程序中，可以使用WindowsAPI函数来重新启动计算机系统，文本介绍如何退出Windows并关闭计算机系统。
关闭计算机系统
　　可以使用WindowsAPI的ExitWindowsEx函数来从VisualBasic程序中重新启动计算机系统。要使用该函数，需要将如下声明语句包含在窗体的通常声明部分中：
　　PrivateDeclareFunctionExitWindowsExLib"user32"(ByValuFlagsAsLong,ByValdwReservedAsLong)AsLong
　　ExitWindowsEx函数需要2个参数，可以使用一个或多个下面的标识的组合来告诉ExitWindowsEx函数希望进行关机过程。
　　EWX_FORCE所有的进程都被强制终止。
　　EWX_LOGOFF所有的进程被强制终止，并且用户退出登录（loggedoff）。
　　EWX_POWEROFF计算机系统被关机，并且如果支持节电特性，则计算机被物理关机。
　　EWX_REBOOT计算机系统被关机并重新启动。
　　EWX_SHUTDOWN计算机被物理地安全地关机。
　　下面的样例程序中使用了上面的三个标识的组合。该标识组合（EWX_LOGOFF，EWX_FORCE，以及EWX_REBOOT）告诉Windows退出所有正在执行的进程，使用户退出网络登录，使计算机系统处于准备状态以供用户关机。
样例程序
　　该样例程序显示了如何关闭计算机系统。
　　1.在VisualBasic中开始一个新的项目，采用缺省的方法建立Form1。
　　2.将如下常量和声明语句添加到Form1的通常声明部分中（注意该声明语句需要书写在一行内）：
PrivateDeclareFunctionExitWindowsExLib"user32"
(ByValuFlagsAsLong,ByValdwReservedAsLong)AsLong
ConstEWX_LOGOFF=0
ConstEWX_SHUTDOWN=1
ConstEWX_REBOOT=2
ConstEWX_FORCE=4
ConstEWX_POWEROFF=8
ConstEWX_RESET=EWX_LOGOFF EWX_FORCE EWX_REBOOT
　　3.在Form1上添加一个命令按钮控件，采用缺省的方法建立Comand1。将它的Caption属性设置为“重新启动计算机”。
　　4.将如下代码添加到Command1的单击事件中：
PrivateSubCommand1_Click()
DimXAsLong
X=ExitWindowsEx(EWX_RESET,dwReserved)
EndSub
　　按下F5来运行上述样例程序，单击命令按钮，即可重新启动计算机系统。