...VBA实现从某文件夹下移动指定文件名的excel文件到另一个文件夹...
发布网友
发布时间:2024-10-19 17:34
我来回答
共2个回答
热心网友
时间:2024-12-12 00:36
这个我来给你做吧
如果可以你尽可能给我写详细的信息
把你个文件打个包给我法过来我好debug
现在的文件在那个地址,想要拷到哪个地址
搞定了
Sub xcopy()
Dim xpath1 As String, xpath2 As String, xfile As String
xpath1 = "e:\1\" '原来的文件所在文件夹
xpath2 = "e:\1\2\" '要移动到的目的文件夹
For i = 1 To 100 '这个上限你自己看着给,我想100够大了,不够的话你自己往上调
If Cells(i, 2) <> "" Then
xfile = xpath1 & Cells(i, 2) & ".xlsx"
If Dir(xfile) <> "" Then
FileCopy xfile, xpath2 & Cells(i, 2) & ".xlsx"
Kill xfile
Else
Cells(i, 3) = xfile & "文件未找到"
End If
End If
Next
End Sub
热心网友
时间:2024-12-12 00:39
按照①到⑤的步骤,直接文件名清单加载查找就可以了