本帖最后由 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.QuitCOPY |
| 
发表于 2015-9-29 11:17
|