将数据从VisualBasic传输到Excel的方法.docVIP

将数据从VisualBasic传输到Excel的方法?? INFO：将数据从?Visual?Basic?传输到?Excel?的方法适用于?概要本文介绍将数据从?Microsoft?Visual?Basic?应用程序传输到?Microsoft?Excel?的多种方法。本文还介绍了每种方法的优缺点，这样您可以选择最适合您的解决方案。?更多信息将数据传输到?Excel?工作簿最常用的方法是“自动化”功能。“自动化”功能为您提供了指定数据在工作簿中所处位置的最大的灵活性，以及对工作簿进行格式设置和在运行时进行各种设置的功能。利用“自动化”功能，您可以使用多种方法传输数据：?逐单元格传输数据?将数组中的数据传输到单元格区域?使用?CopyFromRecordset?方法向单元格区域传输?ADO?记录集中的数据?在?Excel?工作表上创建一个?QueryTable，它包含对?ODBC?或?OLEDB?数据源进行查询的结果。?将数据传输到剪贴板，然后将剪贴板内容粘贴到?Excel?工作表中。您还可以使用一些其他方法将数据传输到?Excel，而不必使用“自动化”功能。如果您正在运行服务器端应用程序，这是一种将批量数据处理从客户端移走的好方法。在没有“自动化”功能的情况下，可以使用下列方法来传输数据：?将数据传输到制表符分隔或逗号分隔的文本文件，然后?Excel?可以将该文本文件分析为工作表上的单元格?使用?ADO?将数据传输到工作表?使用动态数据交换?(DDE)?将数据传输到?Excel?下面的部分提供了每种解决方案的详细信息。?使用“自动化”功能逐单元格传输数据利用“自动化”功能，您可以逐单元格地向工作表传输数据：????Dim?oExcel?As?Object???Dim?oBook?As?Object???Dim?oSheet?As?Object???Start?a?new?workbook?in?Excel???Set?oExcel?=?CreateObject(Excel.Application)???Set?oBook?=?oExcel.Workbooks.Add???Add?data?to?cells?of?the?first?worksheet?in?the?new?workbook???Set?oSheet?=?oBook.Worksheets(1)???oSheet.Range(A1).Value?=?Last?Name???oSheet.Range(B1).Value?=?First?Name???oSheet.Range(A1:B1).Font.Bold?=?True???oSheet.Range(A2).Value?=?Doe???oSheet.Range(B2).Value?=?John???Save?the?Workbook?and?Quit?Excel???oBook.SaveAs?C:\Book1.xls???oExcel.Quit如果数据量较少，逐单元格传输数据是一种完全可以接受的方法。您可以灵活地将数据放到工作簿中的任何位置，并可以在运行时根据条件对单元格进行格式设置。不过，如果需要向?Excel?工作簿传输大量数据，则不建议您使用此方法。您在运行时获取的每一个?Range?对象都会产生一个接口请求；因此，以这种方式传输数据速度较慢。另外，Microsoft?Windows?95?和?Windows?98?在接口请求上有?64K?限制。如果在接口请求上达到或超过这一?64K?限制，自动化服务器?(Excel)?可能停止响应，或者您可能收到表明内存不足的错误。Windows?95?和?Windows?98?中的这一限制在下面的知识库文章中进行了讨论：?216400?PRB:Cross-Process?COM?Automation?Can?Hang?Client?Application?on?Win95/98?需要再次强调的是，逐单元格传输数据仅适用于传输少量数据。如果需要将大量的数据集传输到?Excel，应考虑下文提供的解决方案之一。有关自动化?Excel?的更多示例代码，请参见以下?Microsoft?知识库文章：?219151?HOWTO：在?Visual?Basic?中自动运行?Microsoft?Excel?使用“自动化”功能将数据数组传输到工作表上的区域一次可以将一个数据数组传输到多个单元格区域：????Dim?oExcel?As?Object???Dim?oBook?As?Object???Dim?oSheet?As?Object???Start?a?new?workbook?in?Exc