vfp与excel的几种交互编程方法

《vfp与excel的几种交互编程方法》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、VFP与EXCEL的几种交互编程方法一、EXECL驱动VFPEXECL内置的VBA语言（VisualBasicForApplication）为EXECL功能的扩展提供了便利的手段，用户可使用该语言直接驱动VFP完成数据检索等功能。程序首先生成一个VFP对象，然后用VFP的DoCmd方法执行VFP摸索命令串，其摸索结果再借助于VFP的DateToClip方法拷贝至剪切板，最后VBA将其粘贴至工作表的正确位置。SubFoxTest()DimoFoxAsObjectDimSLessonAsStringDim

2、SCommandAsStringSetoFox=CreateObject("VisualFoxPro.Application")＇启动VFP，生成VFP对象Sheets("查询").SelectSLesson=Range("课程名")＇在名为“课程名”的单元格中得到欲查询的课程名称Sheets.Add＇产生新的工作表单ActiveSheet.Name=Slesson＇指定工作表单的名称与课程名称相同SCommand="SELECT学号,语文,数学FROMd:vfp学生成绩表WHERE"+SLess

3、on+"<60INTOCURSORTEMP"＇形成VFP查询命令串oFox.DoCmdScommand＇执行VFP命令串oFox.DataToClip"temp",,3＇将搜索结果以文本方式拷贝至剪切板Range("a1:a1").Select＇指向拷贝目标区域左上角单元ActiveSheet.Paste＇粘贴搜索结果EndSub为便于使用，作者在EXECL中自制了一名为“搜索”的工具栏及一名为“开始搜索”的按钮，并将上述宏程序段与自制按钮相关联，按下此按钮即可运行程序并在EXCEL中得到要求的数据。

4、制作工具栏及按钮的方法如下：1.选“工具”/“自定义”菜单，出现自定义对话框；2.选择“工具栏”页框，然后按下“新建”按钮；3.在工具栏对话框中输入“搜索”作为新建工具栏的名称；4.选择“命令”页框，在“类别”列表中选“宏”，在“命令”列表中选“自定义按钮”并将其拖放至新建的“搜索”工具栏；5.按下“更新所选内容”按钮，首先在“命名”栏中填入按钮名称“开始搜索”，然后选择“指定宏”，在随后出现的“指定宏”列表中选择上述宏程序FoxTest()即可实现为该宏指定一个工具栏按钮。VFP与EXCEL的几种交

5、互编程方法www.firnow.com时间：2007-09-25作者：佚名编辑：本站点击：1605[评论]二、VFP使用OLE功能驱动EXECLOLE（ObjectLinkingandEmbedding）对象链接与嵌入，是WINDOWS应用程序间相互传递和共享数据的一种有效方法。VFP借助于OLE不仅可共享其它应用程序的数据，而且还能以对象方式直接控制其它应用程序的运行，从而进一步扩展VFP的功能。VFP支持直接在程序中创建、使用和控制OLE对象，实现OLE自动化。作为OLE客户VFP与作为OLE服务

6、器的EXCEL具有良好的编程接口，下述程序段用OLE方式实现所要求的功能。程序首先生成一个EXCEL的OLE对象OleApp以便对其进行操作，然后利用OLE功能从EXCEL表单中获取欲查询的课程名，并控制EXCEL生成新的工作表，VFP的查询结果仍然使用剪切板的方式传递至EXCEL工作表。OleApp=CREATEOBJECT("Excel.Application")&&打开EXCEL，产生OLE对象OleApp.Application.Caption="VFP交互编程"&&指定标题栏名称OleApp

7、.Application.Visible=.T.&&置EXCEL可见OleApp.Application.WorkBooks.Open("d:vfpVFP交互.xls")&&打开EXCEL工作簿DOWHILE.T.WITHOleApp.ApplicationnAnswer=MESSAGEBOX("开始搜索？",32+4,"搜索指定数据")&&产生信息框IF(.NOT.(nAnswer=6))&&如按下“Yes"按钮，则开始搜索，反之退出EXITENDIF.Sheets("查询").Select&&

8、选择“查询”工作表单SLesson=OleApp.Application.Range("课程名").value&&得到欲查询的课程名称.Sheets.Add&&新建一工作表单.ActiveSheet.Name=Slesson&&指定工作表单的名称SCommand="SELECT学号,语文,数学FROMd:vfp学生成绩表WHERE"+ALLTrim(SLesson)+"<60INTOCURSORTEMP"&&形成VFP查询命令串&Scommand&&