欢迎来到天天文库
浏览记录
ID:40755639
大小:19.44 KB
页数:9页
时间:2019-08-07
《vfp调用word OR excel》由会员上传分享,免费在线阅读,更多相关内容在行业资料-天天文库。
1、vfp调用wordORexcel(二) 10.从VFP中导出数据的几种方法!答: 当VFP处理好数据后,这时你可以用多种方法将这些数据导出,以便被其它应用程序(如Excel等)所用。下面向你简单介绍几种导出数据的方法: 1.用“导出数据”对话框。你可以从VFP主菜单中选择“文件/导出…”打开“导出”对话框,在该对话框中的“来源”框中输入表名(c:vfpstudents.dbf),在“类型”中指定要导出数据的类型(MicrosoftExcel),在“到”框中输入导出的路径和文件名(C:excelaa.xls),然后按“确
2、定”即可。这时你如果查看command窗口,可发现以下代码: COPYTOC:excelaa.XLSTYPEXL5 2.用COPYTO命令。COPYTO命令的工作对象是VFP中的表,它要依据“TYPE”项才知道要产生哪一类导出文件。对于上面的导出过程,可用以下方法实现: USEstudents COPYTOC:excelaa.XLSTYPEXL512.在VFP6中,如何调用已经存在的WORD文件?oW=CREATEOBJECT([word.basic])withoW .Apprestore() .Appmax
3、imize() .fileopen("路径+文件名.扩展名") ENDWITH13.打开word文件的控件?用RUN/N3C:WORD.EXE文档路径C:WORD.EXE是我自己写的,你用时换成WORD的真正路径就行了!比如用WORD打开SD.DOC就写RUN/N3C:WORD.EXEC:SD.DOC另:TXLS_EOLE=CREATEOBJECT('word.application')TXLS_EOLE.Documents.Open('文件名.doc')TXLS_EOLE.Visible=.t.注意:别忘了关闭哦T
4、XLS_EOLE.Documents.close &&关闭文档TXLS_EOLE.quit &&关闭wordRELEASETXLS_EOLE &&释放对象再者:fw=alltrim(this.value) iffile('&fw') *documents.openfilename('&fw') wrdapp=createobject("word.application") wrdapp.visible=.t. *wrdapp.documents.add
5、 wrdapp.documents.open(alltrim(this.value))else messagebox(fw+chr(13)+'文件不存在,请确认',0+16,'文件路径出错') RETURN(.F.)ENDIF14.在表单中创建一个编辑框,用来显示WORD文档!做一个按扭,在CLICK中写:THISFORM.EDIT1.value=FILETOSTR(GETFILE('DOC'))这个不也行,而且还简单15.强烈建议:直接使用ole可以在表单中打开word,建议不使用这种办法,改为利用api用wind
6、ows默认的程序打开word,数据库只存储word文档所在的位置和名字。16在VFP中调用其他的程序 在VFP中我们可以用run来调用由VFP自身生成的.exe文件。命令格式:runc:\..\*.exe 当调用非VFP自身生成的.exe文件时,需要加上绝对路径和参数。一般来说,用VFP运行非VFP自身生成的可执行文件时,会有一个黑色的窗口显示一下。可以通过加上/n来隐藏这个窗口。例如运行Windows下的扫雷游戏,命令格式如下:RUN/nC:\Windows\Winmine.exe 下面运行一个
7、更复杂一点的程序。调用word打开c:\下的一个名为mlx.doc的word文件,命令格式如下:run/n3C:\ProgramFiles\MicrosoftOffice\Office\Winword.exe C:\mlx.doc参数:n在运行时隐藏VFP的黑色窗口。 3表示以最大化的方式运行程序。1正常方式、2最小化方式、3最大化方式 在这种情况下,可以通过加上参数使程序程序能够流畅运行,但还是要指定绝对路径,而在实际开发时我们常常无法确定所需要启动的应用程序的文件名及其绝对路径。比如,在上例中
8、,我们可能无法确定用户的word到底安装在什么地方,如果用户把word安装到了别的地方,上述命令便会出错。再如,一个.gif文件,有的用户喜欢用ACDSee来打开,有的用户喜欢用IE来打开,有的用户喜欢用豪杰来打开,…… 为了解决这种情况我们可以调用Win
此文档下载收益归作者所有