VFP与Excel交互编程

VFP(Visual Foxpro)是一个关系数据库管理系统。由于其强大的数据处理能力和良好的兼容性，已成为数据库应用程序开发人员的有力工具，并得到广泛应用。Excel是一款优秀的电子表格处理软件，在兼容性、操作界面、公式运算、图表等方面具有独特的优势。，已经成为办公应用人员的首选。以上两个软件在各自的应用领域都得到了广泛的应用，同时以上两个软件都具有良好的交互编程能力，为两个软件的优势互补和相互学习打下了良好的基础。

本文将通过实例介绍VFP与Excel交互编程的方法。除了OLE技术之外，DDE技术也可用于VFP与外部服务器交换数据。本文主要讲解了在VFP使用OLE技术与Excel交换数据，Excel通过内置的VBA，利用VFP提供的Application对象调用VFP的一些函数。其功能可简述如下:VFP数据表“学生成绩。“DBF”包含“学号、姓名、中文、数学”等字段。示例程序将使用“条件”区域(一般是矩形区域中的数据，其名称指定为“条件”，数据形状类似于“条件”

Excel内置的VBA语言(Visual Basic For Application)为扩展Excel的功能提供了方便的手段。用户可以使用该语言直接驱动VFP完成数据检索等功能。首先，程序生成一个VFP对象，然后使用VFP的DoCmd方法执行VFP搜索命令字符串，然后使用VFP的DataToClip方法将搜索结果复制到剪贴板。最后，VBA将它粘贴到工作表的正确位置。为了在每次运行时将结果插入到工作表中，被操作的工作表被依次编号为“搜索结果”和“搜索结果1”。

Sub exceluseFox()

“Dim oFox As Object”将oFox声明为对象。

Dim命令作为字符串

对应于“SQL”的命令字符串变量

Dim单元格作为变体

字符串形式的模糊选择

Dim连接为字符串

作为布尔值首先变暗

“Dim found As Boolean”搜索结果标志，如果表单中有搜索结果，则该标志为真。

set of ox = CreateObject(" visual FoxPro

。应用”)

启动VFP并生成VFP对象

工作表(“查询”)。挑选

选择相应的工作表"查询"

Join = Range("连接条件")

单个表中的元素，其值为and或or。

Choice = " " '将连接字符串的初始值设置为空

First = True '一般来说，除了第一次以外，逻辑连接符和或应该加在连接字符串之后。

对于Range ("condition ")'中的每个单元格，生成连接条件，形成where语句的连接逻辑字符串。

如果首先那么

“Choice = choice+cell”在第一次出现where子句后形成字符串。

first = False

修改第一个入口标志，以后所有连接都需要添加逻辑连接器。

其他

choice = choice + " " + join + " " +单元格

“join”的值是and或or。

如果…就会结束

下一个单元格

床单。“添加”生成新的工作表单。

查找不重复的工作表名称。

发现=假