[问题求助] [已解决]vbs如何读取excel表格指定列中的文件名将文件移动到指定文件夹

@echo off
for /f "tokens=1-2" %%i in ('type "1.txt"') do (
    move /y "%%i.pdf" "%%j\"
)
复制代码

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
复制代码

Sub 测试()
Dim fso, n As Long, m As Long
Set fso = CreateObject("scripting.filesystemobject")
Set WshShell = CreateObject("wscript.shell")
n = 0
m = 0
Do
n = n + 1
Kpath = "C:\Documents and Settings\admi\桌面\测试\报关单\" & Sheet1.Cells(n, 1).Value
If fso.folderExists(Kpath) Then
spath = "C:\Documents and Settings\admin\桌面\测试\文件夹\" & Sheet1.Cells(n, 2).Value & "\"
fso.CopyFolder Kpath, spath
fso.GetFolder(Kpath).Delete (True)
Else
m = m + 1
Sheet1.Cells(m, 3).Value = Sheet1.Cells(n, 1).Value
End If
Loop Until Sheet1.Cells(n + 1, 1).Value = ""
End Sub
复制代码