vfp与excel交互编程

《vfp与excel交互编程》由会员上传分享，免费在线阅读，更多相关内容在应用文档-天天文库。

1、VFP与Excel交互编程VFP(VisualFoxpro)是一种关系型数据库管理系统，由于其强大的数据处理能力及良好的兼容性，使其成为数据库应用程序开发人员强有力的工具而广为使用;而Excel则是一个优秀的电子表格处理软件，在兼容性、操作界面、公式运算、图表等方面有着独到的优势，成为广大办公应用人员必备的首选软件。上述两种软件在各自的应用领域均得到了广泛的应用，同时上述两种软件还具有良好的交互编程能力，为两者相辅相成、取长补短奠定了良好的基础。本文将结合实例介绍VFP与Excel交互编程的方法，在VFP中除了使用OLE技术外，还可使用DDE技术与外部服务器进行数据交换，本文主

2、要讲解VFP中使用OLE技术与Excel交换数据，Excel中借助内置的VBA使用VFP提供的Application对象来调用VFP中的一些功能。其功能可简述如下：VFP数据表“学生成绩.DBF”中含“学号、姓名、语文、数学”等字段，示例程序将从Excel工作簿“VFP交互.XLS”的工作表“查询”中用“条件”区域（一般为一个矩形区中的数据，该区域名称指定为“条件”，数据形如“语文>60”、“数学<90”等）中的数据作为查询的条件，用“连接条件”区域（一般为一个单元格，其值为“or”或者“and”）来获取组合“条件”的逻辑连接，并将该连接信息的内容以工作表的形式显示出来，然后调

3、用VFP中针对给定表的SQL查询来找出给定条件的记录并显示到Excel中。下列程序均在VFP6.0与Excel2000中调试通过。Excel驱动VFPExcel内置的VBA语言（VisualBasicForApplication）为Excel功能的扩展提供了便利的手段，用户可使用该语言直接驱动VFP完成数据检索等功能。程序首先生成一个VFP对象，然后用VFP的DoCmd方法执行VFP搜索命令串，其搜索结果再借助于VFP的DataToClip方法拷贝至剪切板，最后VBA将其粘贴至工作表的正确位置，为了每次运行时能将结果插入到工作表中，依次对操作的工作表以“搜索结果”、“搜索结果1

4、”等进行编号。SubexceluseFox()DimoFoxAsObject’声明oFox为一个对象DimSCommandAsString’SQL对应的命令串变量DimcellAsVariantDimchoiceAsStringDimjoinAsStringDimfirstAsBooleanDimfoundAsBoolean’搜索结果标志，若表单中有搜索结果，则为真SetoFox=CreateObject(“VisualFoxPro.Application”)’启动VFP，生成VFP对象Sheets(“查询”).Select’选择对应的工作表“查询”join=Range(“连接

5、条件”)’在单一表格中的一个元素，其值为and或者orchoice=“”’置连接串初值为空first=True’一般情况下连接串后需要加上逻辑连接符and或or，首次例外ForEachcellInRange(“条件”)’产生连接条件，形成where语句的连接逻辑串IffirstThenchoice=choice+cell’形成第一次出现的where子句后的字符串first=False’修改首次进入标志，以后的连接均需要加上逻辑连接符Elsechoice=choice+“”+join+“”+cell’join的值是and或者是orEndIfNextcellSheets.Add’产

6、生新的工作表单’找一个不重复的工作表名found=False’工作表名中前四个汉字有没有“搜索结果”的标志变量n=1ForEachcellInWorksheetsIfInStr(1,cell.Name,“搜索结果”)<>0Thenfound=True’找到对应的工作表Ifn

7、1’值增1ActiveSheet.Name=“搜索结果”&n’形成工作表名EndIfSCommand=“SELECT*FROMd:vfp学生成绩表WHERE”+choice+“INTOCURSORTEMP”’形成VFP查询命令串oFox.DoCmdScommand’执行VFP命令串oFox.DataToClip“temp”,,3’将搜索结果以文本方式拷贝至剪切板Range(“a1:a1”).Select’指向拷贝目标区域左上角单元ActiveSheet.Paste’粘贴搜索结果EndS