VFP与Excel交互编程的方法

本文格式为Word版，下载可任意编辑——VFP与Excel交互编程的方法VFP(VisualFoxpro)是一种关系型数据库管理系统，由于其强大的数据处理能力及良好的兼容性，使其成为数据库应用程序开发人员强有力的工具而广为使用;而Excel则是一个优秀的电子表格处理软件，在兼容性、操作界面、公式运算、图表等方面有着独到的优势，成为广大办公应用人员必备的首选软件。上述两种软件在各自的应用领域均得到了广泛的应用，同时上述两种软件还具有良好的交互编程能力，为两者相辅相成、取长补短奠定了良好的基础。

本文将结合实例介绍VFP与Excel交互编程的方法，在VFP中除了使用OLE技术外，还可使用DDE技术与外部服务器进行数据交换，本文主要讲解VFP中使用OLE技术与Excel交换数据，Excel中借助内置的VBA使用VFP提供的Application对象来调用VFP中的一些功能。其功能可简述如下：VFP数据表“学生成绩.DBF〞中含“学号、姓名、语文、数学〞等字段，例如程序将从Excel工作簿“VFP交互.XLS〞的工作表“查询〞中用“条件〞区域（一般为一个矩形区中的数据，该区域名称指定为“条件〞，数据形如“语文>60〞、“数学0Then

found=True’找到对应的工作表

Ifn名称->定义〞来完成对给定区域名称的设定，这个名称可以在VBA中访问，如前述中的“条件〞和“连接条件〞。

VFP使用Excel

OLE（ObjectLinkingandEmbedding）对象链接与嵌入，是Windows应用程序间相互传递和共享数据的一种有效方法。VFP借助于OLE不仅可共享其他应用程序的数据，而且还能以对象方式直接控制其他应用程序的运行，从而进一步扩展VFP的功能。VFP支持直接在程序中创立、使用和控制OLE对象，实现OLE自动化。作为OLE客户，VFP与作为OLE服务器的Excel具有良好的编程接口，下述程序段用OLE方式实现所要求的功能。程序首先生成一个Excel的OLE对象OleApp以便对其进行操作，然后利用OLE功能从Excel表单中获取欲查询的条件，并控制Excel生成新的唯一的工作表，通过找寻当前操作的所有工作表达到名称的唯一，VFP的查询结果依旧使用剪切板的方式传递至Excel工作表中。

localcondition，where1，first，scommand，cell，newsheet，found1，n

OleApp=CreateObject(“Excel.Application〞)

&&开启Excel，产生OLE对象

OleApp.Application.Caption=“VFP交互编程〞

&&指定标题栏名称

OleApp.Application.Visible=.T.

&&置Excel可见

OleApp.Application.WorkBooks.Open(“d:\\vfp\\VFP交互.xls〞)

&&开启Excel工作簿，用户也可以修改连接条件或者查询条件

where1=“〞

&&保存SQL中where子句的变量

first=.t.

&&置首次进入“查询〞工作表中“条件〞区域标志

found1=.f.

n=1

DOWHILE.T.

WITHOleApp.Application

nAnswer=MessageBox(“开始探寻？〞,32+4,“探寻指定数据〞)

&&显示探寻信息

IF(.NOT.(nAnswer=6))

&&如按下“Yes〞按钮，则开始探寻，反之退出

EXIT

ENDIF

.Sheets(“查询〞).Select

&&选取例如中的对应工作表

condition=.range(“连接条件〞).value

&&得到“连接条件〞区域中的规律连接符

foreachcellin.range(“条件〞).value

&&将表单区域内所有