本帖最后由 pcl_test 于 2015-9-29 11:19 编辑
没有原文件，不知道原文件如何，只能猜，有误自行修改- Set fso = CreateObject("Scripting.FileSystemObject")
- fd = fso.GetFolder(".").Path
- Set objExcel = CreateObject("Excel.Application")
- Set objBook = objExcel.Workbooks.open(fd&"\测试.xls")
- objBook.worksheets(1).activate '设置第1个工作表为活动工作表
- Set objSheet = objBook.activeSheet
- For i=5 To 65535 '从第5行开始遍历
- If objSheet.Cells(i, 5).value = "" Then Exit For
- En = objSheet.Cells(i, 5).value 'E列
- Hn = objSheet.Cells(i, 8).value 'H列
- msgbox En &".pdf --> "& Trim(Hn)
- 'If not fso.folderExists(Hn) Then fso.CreateFolder Trim(Hn)
- 'If fso.fileExists(En&".pdf") Then CreateObject("Wscript.Shell").run "cmd /c move """&En&".pdf"" """&Trim(Hn)&"\""",0
- Next
- objBook.Close
- objExcel.Quit
| 
发表于 2015-9-29 11:17
|