VB2005如何把数据输出成为WORD或者Excel报表.doc

VB2005如何把数据输出成为WORD或者Excel报表用API函数ShellExecute VB声明 Declare Function ShellExecute Lib shell32.dll Alias ShellExecuteA (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long 说明 查找与指定文件关联在一起的程序的文件名。关联的方式要么是运行程序，要么是打印文件。可用Windows注册表编辑器将特定的文件类型同应用程序关联起来。例如，扩展名为.TXT的文本文件通常与Windows记事本（NOTEPAD.EXE）关联到一起。如在文件管理器中双击含.TXT扩展名的一个文件，就会自行启动记事本程序，并在其中载入文本文件；或者将指定的文件打印出来 返回值 Long，大于32表示成功 参数表 ： 参数 类型及说明 hwnd Long，指定一个窗口的句柄，有些时候，Windows程序有必要在创建自己的主窗口前显示一个消息框。如果发生这种情况，由这个参数指定的窗口就会作为消息框的父窗口使用。在VB环境中，通常将活动窗体的窗口句柄作为这个参数使用 lpOperation String，指定字串“Open”来打开lpFlie文档；或指定“Print”来打印它。也可设为vbNullString，表示默认为“Open” lpFile String，想用关联的程序打印或打开的一个程序名或文件名 lpParameters String，如lpFile是一个可执行文件，则这个字串包含了传递给执行程序的参数。如lpFile引用的是一个文档文件，或者不需要使用参数，则设为vbNullString lpDirectory String，想使用的默认路径完整路径 nShowCmd Long，定义了如何显示启动程序的常数值。 注解 这个函数的说明在MSDN里是这样的：Opens or prints a specified file VB是常用的应用软件开发工具之一，由于VB的报表功能有限，而且一但报表格式发生变化，就得相应修改程序，给应用软件的维护工作带来极大的不便。因此有很多程序员现在已经充分利用EXECL的强大报表功来实现报表功能。但由于VB与EXCEL由于分别属于不同的应用系统，如何把它们有机地结合在一起，是一个值得我们研究的课题。 一、 VB读写EXCEL表： VB本身提自动化功能可以读写EXCEL表，其方法如下： 1、在工程中引用Microsoft Excel类型库： 从工程菜单中选择引用栏；选择Microsoft Excel 9.0 Object Library（EXCEL2000），然后选择确定。表示在工程中要引用EXCEL类型库。 2、在通用对象的声明过程中定义EXCEL对象： Dim xlApp As Excel.Application Dim xlBook As Excel.WorkBook Dim xlSheet As Excel.Worksheet 3、在程序中操作EXCEL表常用命令： Set xlApp = CreateObject(Excel.Application) 创建EXCEL对象 Set xlBook = xlApp.Workbooks.Open(文件名) 打开已经存在的EXCEL工件簿文件 xlApp.Visible = True 设置EXCEL对象可见（或不可见） Set xlSheet = xlBook.Worksheets(表名) 设置活动工作表 xlSheet.Cells(row, col) =值 给单元格（row,col）赋值 xlSheet.PrintOut 打印工作表 xlBook.Close (True) 关闭工作簿 xlApp.Quit 结束EXCEL对象 Set xlApp = Nothing 释放xlApp对象 xlBook.RunAutoMacros (xlAutoOpen) 运行EXCEL启动宏 xlBook.RunAutoMacros (xlAutoClose) 运行EXCEL关闭宏 4、在运用以上VB命令操作EXCEL表时，除非设置EXCEL对象不可见，否则VB程序可继续执行其它操作，也能够关闭EXCEL，同时也可对EXCEL进行操作。但在EXCEL操作过程中关闭EXCEL对象时，VB程序无法知道，如果此时使用EXCEL对象，则VB程序会