[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖

[问题求助] Excel批量添加密码的VBS代码哪里错了?

这个代码哪错了,通不过!
  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
复制代码

回复 2# CrLf


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

TOP

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

这里的密码通不过

TOP

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

TOP

返回列表