A. 访问局域网中共享机子的excel中的pdf链接(用vbs链接文件)时,打开PDF时经常会出现IO错误
这个没有关系。这个原因应该是网络里的原因。你试着设置一下用户的下载率吧
B. 求一个能把ppt文件批量转换为pdf的方法,最好是能用的免费软件的。要用到vbs的就算了不会。。!!
我用的是精简的office 2007,将代码保存在TXT文件,之后将.txt改成.vbs就行。代码如下:
On Error Resume Next
Set ppt = CreateObject("PowerPoint.application")
Set fso = WScript.CreateObject("Scripting.Filesystemobject")
Set fds = fso.GetFolder("E:\1-1\") '此处可以写自已文件所在的文件夹
Set ffs = fds.Files
For Each ff In ffs
If (LCase(Right(ff.Name,4))=".ppt" Or LCase(Right(ff.Name,4))="pptx" ) And Left(ff.Name,1)<>"~" Then
Set pptfile = ppt.Presentations.Open(ff.Path,false,false,false)
pptfile.Saveas Left(ff.Path,InStrRev(ff.Path,"."))&"pdf",32,false
If Err.Number Then
MsgBox Err.Description
End If
End If
Next
pptfiles.Close
ppt.Quit
Set pptfile = Nothing
Set ppt = Nothing
Set objFSO = CreateObject("Scripting.FileSystemObject") '此处是转换后删掉PPT文件的
objFSO.DeleteFile("E:\1-1\*.ppt")
objFSO.DeleteFile("E:\1-1\*.pptx")
MsgBox "PPT文件已全部轩换为PDF格式!并且已删除PPT文档!"
你可以试下,应该是没有问题的,我本人一直在用……
C. 我要定期删除1天后I盘下的vbs教程.pdf文件.大家帮我看下这个bat命令那里有错!
除了dir是dos命令(而且格式还不对,没有=号),其他的dos不认,我理解是每天9:28删除文件,
你可以:@echo off
at 9:28 del I:\vbs教程.pdf 保存为批处理,将此文件放到开始菜单-启动项里即可
D. 怎样利用vbs和office批量转换pdf这篇报道谁有详细教程源码win8怎么办
我用的是精简的office 2007,代码如下:
On Error Resume Next
Set ppt = CreateObject("PowerPoint.application")
Set fso = WScript.CreateObject("Scripting.Filesystemobject")
Set fds = fso.GetFolder("E:\1-1\") '此处可以写自已文件所在的文件夹
Set ffs = fds.Files
For Each ff In ffs
If (LCase(Right(ff.Name,4))=".ppt" Or LCase(Right(ff.Name,4))="pptx" ) And Left(ff.Name,1)<>"~" Then
Set pptfile = ppt.Presentations.Open(ff.Path,false,false,false)
pptfile.Saveas Left(ff.Path,InStrRev(ff.Path,"."))&"pdf",32,false
If Err.Number Then
MsgBox Err.Description
End If
End If
Next
pptfiles.Close
ppt.Quit
Set pptfile = Nothing
Set ppt = Nothing
Set objFSO = CreateObject("Scripting.FileSystemObject") '此处是转换后删掉PPT文件的
objFSO.DeleteFile("E:\1-1\*.ppt")
objFSO.DeleteFile("E:\1-1\*.pptx")
MsgBox "PPT文件已全部轩换为PDF格式!并且已删除PPT文档!"
你可以试下,应该是没有问题的,我本人一直在用……
E. 求用VBS打开电脑上固定路经的PDF文件代码
Dim wsh
Set wsh = CreateObject("WScript.Shell")
wsh.Run "PDF文件路径,如C:\1.pdf"
Set wsh = Nothing
F. vbscript自动生成水印的PDF文档为什么下载后,报文件已损坏的错误!
可能是IE6不提供文件路径检测功能,其他浏览器均检测,比如:d:\test.pdf文件,
G. vbs脚本实现打开d盘pdf文件
下面的VBS脚本可以做到,测试通过。
FunctionX86orX64()
'用WMI方法判断操作系统是32位还是64位
OnErrorResumeNext
strComputer="."'localhost
SetobjWMIService=GetObject("winmgmts:\"&strComputer&" ootcimv2")
SetcolItems=objWMIService.ExecQuery("Select*fromWin32_ComputerSystem",,48)
ForEachobjItemincolItems
IfInStr(objItem.SystemType,"86")<>0Then
X86orX64="x86"
ElseIfInStr(objItem.SystemType,"64")<>0Then
X86orX64="x64"
Else
X86orX64=objItem.SystemType
EndIf
Next
EndFunction
'WScript.EchoX86orX64()
sysType=X86orX64()
IfsysType="x86"Then
progPath="%ProgramFiles%"'DOS窗口中用set命令查看环境变量
ElseIfsysType="x64"Then
progPath="%ProgramFiles(x86)%"'DOS窗口中用set命令查看环境变量
Else
MsgBoxsysType,vbExclamation,"UnexpectedSystemType"
WScript.Quit
EndIf
adobePath=progPath&"AdobeReader10.0ReaderAcroRd32.exe"
'确定AdobePDFReader安装路径
pdfPath="D:Test.pdf"'要打开的PDF文件路径
SetWshShell=WScript.CreateObject("WScript.Shell")
WshShell.RunChr(34)&adobePath&Chr(34)&_
""&Chr(34)&pdfPath&Chr(34)
'Chr(34)表示双引号,通常将路径放在双引号中以避免路径中空格带来的问题
SetWshShell=Nothing
H. vbs怎么下载文件
Dim obj1,obj2
Dim url
start = timer
url = "www.ddd.com/dd.pdf" '这里写你要下载文件的全路径
Set obj1 = CreateObject("msxml2.xmlhttp")
Set obj2 = CreateObject("adodb.stream")
obj1.open "get",url,False
obj1.send
temp = obj1.responseBody
obj2.Type = 1
obj2.Mode = 3
obj2.Open()
obj2.Write(temp)
obj2.SaveToFile "d:\dd.pdf",2 '这里写保存的路径和名字,后缀名要跟你文件后缀名一样哦。2的意思是已有则覆盖之
obj2.Close
endd = Timer
take = (endd-start) / 60
WScript.Echo "下载成功!" & vbCrLf & "共花费 " & take & " 秒!"
Set obj1 = Nothing
采纳吧!
I. 用vbs程序,通过FTP的协议来访问指定的文件
f = "ftp://username:[email protected]/len/xx.pdf"
createobject("wscript.shell").run """D:\Acrobat\Reader\AcroRd32.exe"" """& f &""""
J. 如何通过VBS实现用PPT批量转换成PDF
如果你是要进行ppt文件转换成pdf文件格式的话,因为pdf文件比较的特殊。所以进行转换时只能在专门的pdf转换器下进行。
方法:ppt批量转换成pdf
打开电脑上的pdf文件然后选择ppt转换成pdf文件
2.点击进入将要转换的ppt文档打开,如文件较多可进行添加文件夹
3.点击“开始转换”文件格式就开始转换了
4.等到转换完成之后,就可以将转换好的文件保存到电脑上
以上就是ppt转换成pdf文件的操作方法和步骤,希望可以帮助到你!