VFP如何控制WPS直接另存为PDF文件？

asis 发布于 2022-11-12 14:45， 1398 次点击

请教一个问题：用VFP语句按EXCEL文件格式把数据导出到WPS中：
   ef=Createobject("et.Application")
   scan
        ef.Cells( prn_line, 1).VALUE =名称
   endscan

   之后需把这个WPS文件的内容在不用手工打开此文件的情况下直接另存为PDF格式文件

以下语句在安装了EXCLE的电脑上能直接导出到PDF文件，但在安装WPS的电脑上不起作用，请问有什么办法可以解决?

lpszFile1="A1.pdf"
ef.ActiveSheet.ExportAsFixedFormat(0, lpszFile1, 1, 1, 0)  &&由EXCEL直接另存为PDF文件

8 回复

my23182022-11-12 19:26

没试过

[此贴子已经被作者于2022-11-12 19:28编辑过]

asis2022-11-15 09:17

现在普遍使用WPS，因此从WPS直接导出PDF这个问题有一定的共性，难道没有好的解决办法吗？

csyx2022-11-15 19:23

我同事的 WPS2016 执行 ExportAsFixedFormat 是可以导出 pdf 文件的。
是不是版本太低的原因？先手工操作一下，检查是否有 *.pdf 选项
如果没有，建议他升级 wps 到高版本
如果有，试试只传前两个参数：ExportAsFixedFormat(0, pdfFileName)

asis2022-11-16 21:55

问题解决了，不能导出PDF的原因是WPS仅支持导出到本地磁盘路径，比如c:\a.pdf,不支持导出到带网络路径
ef.ActiveSheet.ExportAsFixedFormat(0, 'c:\a.pdf')
ef.ActiveSheet.ExportAsFixedFormat(0, 'c:\a.pdf', 1, 1, 0)
以上2条语句均支持从WPS直接导出PDF文件。
谢谢楼上的解答。

esailor2023-06-16 10:17

关注VFP控制WPS 另存为的问题。

hys31312023-06-16 14:04

谢谢！学习一下试试

pvm20002023-06-17 05:14

可将网络路径映射为逻辑盘再操作

wxzd1232023-06-17 20:30

谢谢，试试