内容发布更新时间 : 2024/9/29 4:20:00星期一 下面是文章的全部内容请认真阅读。

vfp调用word OR excel（二）

10. 从VFP中导出数据的几种方法！

答： 当VFP处理好数据后，这时你可以用多种方法将这些数据导出，以便被其它应 用程序(如Excel等)所用。下面向你简单介绍几种导出数据的方法：

1.用“导出数据”对话框。你可以从VFP主菜单中选择“文件/导出…”打开 “导出”对话框，在该对话框中的“来源”框中输入表名(c:\\vfp\\students.dbf )，在“类型”中指定要导出数据的类型(Microsoft Excel)，在“到”框中输入 导出的路径和文件名(C:\\excel\\aa.xls)，然后按“确定”即可。这时你如果查看 command窗口，可发现以下代码： COPY TO C：\\excel\\aa.XLS TYPE XL5

2.用COPY TO命令。COPY TO命令的工作对象是VFP中的表，它要依据“TYPE” 项才知道要产生哪一类导出文件。对于上面的导出过程，可用以下方法实现： USE students

COPY TO C：\\excel\\aa.XLS TYPE XL5

12.在VFP6中，如何调用已经存在的WORD文件？ oW = CREATEOBJECT([word.basic]) with oW .Apprestore() .Appmaximize()

.fileopen(\路径+文件名.扩展名\ENDWITH

13.打开word文件的控件？

用RUN /N3 C:\\WORD.EXE 文档路径

C:\\WORD.EXE是我自己写的,你用时换成WORD的真正路径就行了!

比如用WORD 打开SD.DOC 就写 RUN /N3 C:\\WORD.EXE C:\\SD.DOC

另：TXLS_EOLE = CREATEOBJECT('word.application') TXLS_EOLE.Documents.Open('文件名.doc') TXLS_EOLE.Visible=.t. 注意：别忘了关闭哦

TXLS_EOLE.Documents.close &&关闭文档 TXLS_EOLE.quit &&关闭word RELEASE TXLS_EOLE &&释放对象 再者：

fw=alltrim(this.value) if file('&fw')

*documents.open filename('&fw') wrdapp = createobject(\ wrdapp.visible=.t. *wrdapp.documents.add

wrdapp.documents.open(alltrim(this.value)) else

messagebox(fw+chr(13)+'文件不存在,请确认',0+16,'文件路径出错') RETURN(.F.) ENDIF

14.在表单中创建一个编辑框,用来显示WORD文档!

做一个按扭,在CLICK中写：THISFORM.EDIT1.value=FILETOSTR(GETFILE('DOC')) 这个不也行,而且还简单

15.强烈建议： 直接使用ole可以在表单中打开word，建议不使用这种办法，改为利用api用windows默认的程序打开word，数据库只存储word文档所在的位置和名字。

16在VFP中调用其他的程序

在VFP中我们可以用run来调用由VFP自身生成的.exe文件。命令格式： run c:\\\\..\\\\*.exe

当调用非VFP自身生成的.exe文件时，需要加上绝对路径和参数。

一般来说，用VFP运行非VFP自身生成的可执行文件时，会有一个黑色的窗口显示一下。可以通过加上/n来隐藏这个窗口。例如运行Windows下的扫雷游戏，命令格式如下： RUN/n C:\\\\Windows\\\\Winmine.exe

下面运行一个更复杂一点的程序。调用word打开c:\\\\下的一个名为mlx.doc的word文件，命令格式如下：

run /n3 C:\\\\Program Files\\\\Microsoft Office\\\\Office\\\\Winword.exe C:\\\\mlx.doc 参数：n 在运行时隐藏VFP的黑色窗口。

3 表示以最大化的方式运行程序。1正常方式、2最小化方式、3最大化方式 在这种情况下，可以通过加上参数使程序程序能够流畅运行，但还是要指定绝对路径,而在实际开发时我们常常无法确定所需要启动的应用程序的文件名及其绝对路径。比如，在上例中，我们可能无法确定用户的word到底安装在什么地方，如果用户把word安装到了别的地方，上述命令便会出错。再如，一个.gif文件，有的用户喜欢用ACD See来打开，有的用户喜欢用IE来打开，有的用户喜欢用豪杰来打开,……

为了解决这种情况我们可以调用Windows的文件关连来打开文件。即所有的文件都用系统默认的程序来打开。这就要调用Windows的Win32 API函数。调用方式如下： DECLARE INTEGER ShellExecute IN shell32.DLL INTEGER HWND,; STRING lpszOP, ; STRING lpszFile, ; STRING lpszParams, ; STRING lpszDir, ; INTEGER fsshowcmd

DECLARE INTEGER GetDesktopWindow IN win32api HWND = GetDesktopWindow() lpszOP = \* 指定要打开的文件名 lpszFile =\