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文件的操作方法和步驟,希望可以幫助到你!