• 全部
  • 问答

求助,利用vbs将文档转换成pdf,本地没问题,到了服务器就有问题了

阳阳_阳阳 菜鸟  2019-02-22 11:10:26
求助大佬。
我写了一个vbs转换word,excel,ppt转换成pdf,在本地运行一点问题都没有,但是到了服务器上,就excel和ppt的转换有问题,利用java main方法执行vbs,excel和ppt的vbs文件调用后就没有结果了,很是迷茫。word的调用直接就好了。求大佬帮助解决一下,不胜感谢。服务器是windows
word的vbs
'path = createobject("Scripting.FileSystemObject").GetFile(Wscript.ScriptFullName).ParentFolder.Path

path = "E:\pdf\word"
Set word = CreateObject("Word.application")

Set docx = word.Documents.Open(path & "\" & "tmp.doc")

docx.SaveAs path & "\" & "tmp.pdf",17

docx.close(doNotSaveChanges)

word.Quit
set docx = nothing

Set word = nothing

excel的 vbs
'path = createobject("Scripting.FileSystemObject").GetFile(Wscript.ScriptFullName).ParentFolder.Path

path = "E:\pdf\word"
Set objArgs = WScript. Arguments
Set oExcel = CreateObject("Excel.Application")
Set oWb = oExcel.Workbooks.Open(path & "\" & "tmp.xls")
oWb.ExportAsFixedFormat xlTypePDF, path & "\" & "tmp.pdf", 1,1,1,1
oExcel.Visible = False
oExcel.quit
Set oWb = Nothing

ppt的vbs
'path = createobject("Scripting.FileSystemObject").GetFile(Wscript.ScriptFullName).ParentFolder.Path

path = "E:\pdf\word"
Set ppt = CreateObject("PowerPoint.application")

Set pptfile = ppt.Presentations.Open(path & "\" & "tmp.pptx",false,false,false)

pptfile.Saveas path & "\" & "tmp.pdf",32,false
ppt.Quit
Set pptfile= nothing


...全文
256 点赞 收藏 2
写回复
2 条回复
切换为时间正序
请发表友善的回复…
发表回复
blownewbee 2019-02-23
这个代码是调用的Office,然后实现的转换,你的服务器是不是没有安装Office
回复
阳阳_阳阳 2019-02-22
大佬呢 ,去哪里了
回复
相关推荐
发帖
.NET技术其他语言
创建于2007-09-28

1816

社区成员

.NET技术 其他语言讨论
申请成为版主
帖子事件
创建了帖子
2019-02-22 11:10
社区公告
暂无公告