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

VFP与EXCEL的几种交互编程方法EXECL驱动VFPEXECL内置的VBA语言（Visual??Basic??For??Application）为EXECL功能的扩展提供了便利的手段，用户可使用该语言直接驱动VFP完成数据检索等功能。程序首先生成一个VFP对象，然后用VFP的DoCmd方法执行VFP摸索命令串，其摸索结果再借助于VFP的DateToClip方法拷贝至剪切板，最后VBA将其粘贴至工作表的正确位置。Sub??FoxTest()Dim??oFox??As??ObjectDim??SLesson??As??StringDim??SCommand??As??StringSet??oFox??=??CreateObject(VisualFoxPro.Application)??＇启动VFP，生成VFP对象Sheets(查询).SelectSLesson??=??Range(课程名)??＇在名为“课程名”的单元格中得到欲查询的课程名称Sheets.Add??＇产生新的工作表单ActiveSheet.Name??=??Slesson??＇指定工作表单的名称与课程名称相同SCommand??=??SELECT??学号,语文,数学??FROM??d:\vfp\学生成绩表??WHERE??+??SLesson??+??60??INTO??CURSOR??TEMP??＇形成VFP查询命令串oFox.DoCmd??Scommand??＇执行VFP命令串oFox.DataToClip??temp,??,??3??＇将有哪些信誉好的足球投注网站结果以文本方式拷贝至剪切板Range(a1:a1).Select??＇指向拷贝目标区域左上角单元ActiveSheet.Paste??＇粘贴有哪些信誉好的足球投注网站结果End??Sub为便于使用，作者在EXECL中自制了一名为“有哪些信誉好的足球投注网站”的工具栏及一名为“开始有哪些信誉好的足球投注网站”的按钮，并将上述宏程序段与自制按钮相关联，按下此按钮即可运行程序并在EXCEL中得到要求的数据。制作工具栏及按钮的方法如下：1.??选“工具”/“自定义”菜单，出现自定义对话框；2.??选择“工具栏”页框，然后按下“新建”按钮；3.??在工具栏对话框中输入“有哪些信誉好的足球投注网站”作为新建工具栏的名称；4.??选择“命令”页框，在“类别”列表中选“宏”，在“命令”列表中选“自定义按钮”并将其拖放至新建的“有哪些信誉好的足球投注网站”工具栏；5.??按下“更新所选内容”按钮，首先在“命名”栏中填入按钮名称“开始有哪些信誉好的足球投注网站”，然后选择“指定宏”，在随后出现的“指定宏”列表中选择上述宏程序FoxTest()即可实现为该宏指定一个工具栏按钮。二、VFP使用OLE功能驱动EXOLE（Object??Linking??and??Embedding）对象链接与嵌入，是WINDOWS应用程序间相互传递和共享数据的一种有效方法。VFP借助于OLE不仅可共享其它应用程序的数据，而且还能以对象方式直接控制其它应用程序的运行，从而进一步扩展VFP的功能。VFP支持直接在程序中创建、使用和控制OLE对象，实现OLE自动化。作为OLE客户VFP与作为OLE服务器的EXCEL具有良好的编程接口，下述程序段用OLE方式实现所要求的功能。程序首先生成一个EXCEL的OLE对象OleApp以便对其进行操作，然后利用OLE功能从EXCEL表单中获取欲查询的课程名，并控制EXCEL生成新的工作表，VFP的查询结果仍然使用剪切板的方式传递至EXCEL工作表。??OleApp=CREATEOBJECT(Excel.Application)????打开EXCEL，产生OLE对象OleApp.Application.Caption=VFP交互编程????指定标题栏名称OleApp.Application.Visible=.T.????置EXCEL可见OleApp.Application.WorkBooks.Open(d:\vfp\VFP交互.xls)????打开EXCEL工作簿DO??WHILE??.T.WITH??OleApp.ApplicationnAnswer??=??MESSAGEBOX(开始有哪些信誉好的足球投注网站？,??32+4,??有哪些信誉好的足球投注网站指定数据)??产生信息框IF??(.NOT.(nAnswer=6))????如按下“Yes按钮，则开始有哪些信誉好的足球投注网站，反之退出EXITENDIF.Sheets(查询).Select????选择“查询”工作表单SLesson??=??OleApp.Application.Range(课程名).value????得到欲查询的课程名称.Sheets.Add????新建一工作表单.Activ