Excel批量添加密码的VBS代码哪里错了？

ww0000

这个代码哪错了,通不过!

1. Const WINDOW_HANDLE = 0
   
2. Const OPTIONS = 0
   
3. Dim objShell,objFolder,FolderPath,PW,wk,EAPP,FSO,FSOFolder,FSOFile
   
4. '获取Excel文件所在文件夹路径
   
5. Set objShell = CreateObject("Shell.Application")
   
6. Set objFolder = objShell.BrowseForFolder(WINDOW_HANDLE, "Select a folder:", OPTIONS,"")
   
7. If objFolder Is Nothing Then
   
8. Wscript.Quit
   
9. End If
   
10. FolderPath =objFolder.Self.Path
    
11. PW=Inputbox("请输入密码","批量添加密码")
    
12. if len(pw)=0 then Wscript.Quit
    
13. Set EAPP=CreateObject("PowerPoint.Application")
    
14. Set FSO=CreateObject("Scripting.FileSystemObject")
    
15. Set FSOFolder=FSO.GetFolder(FolderPath)
    
16. EAPP.Visible = True
    
17. For Each FSOFile in FSOFolder.Files
    
18. If instr(Fsofile.Name,".ppt") then
    
19.     Set wk=EAPP.Presentations.Open(FSOFile.Path,,,,Pw)
    
20. wk.PassWord=""
    
21. EAPP.selection.TypeBackSpace
    
22. wk.SaveAs FSOFile.Path
    
23. wk.close
    
24. End If
    
25. Next
    
26. EAPP.Quit

复制代码

CrLf

给出报错信息
或者自己试着隔几行下个断点，一运行就知道了，断点可以是真断点（vbsedit），也可以是 msgbox 之类的伪断点

ww0000

Set wk=EAPP.Presentations.Open(FSOFile.Path,False,False,False,,,,pw)

这里的密码通不过

ww0000

回复 2# CrLf


    Set wk=EAPP.Presentations.Open(FSOFile.Path,False,False,False,,,,pw)