[已解决]求助

jianjian053

Sub Macro1()
Dim fs, w, mypath$, i&, j%, wj$, wj2$
Set fs = CreateObject("scripting.filesystemobject")
mypath = ThisWorkbook.Path & "\"
w = Array("00-总库")
For i = 2 To Range("a65536").End(xlUp).Row
    For j = 0 To UBound(w)
        wj = mypath & w(j) & "\" & Cells(i, 1) & ".jpg"
        wj2 = mypath & "查找人员" & "\" & Cells(i, 1) & j + 1 & ".jpg"
        If fs.MoveFile(wj) Then fs.CopyFile wj, wj2
    Next
Next
MsgBox "所需证件拷贝完毕，谢谢使用......"
End Sub
这是将一个文件夹里的照片按照指定的名称复制到另一个文件夹里，但是原文件夹的文件还在，请问有什么办法能够将这些照片直接剪切到另一个文件夹里？

最佳答案

月排行榜 / 总排行榜

蓝桥玄霜

2015-4-14 11:19

1. Sub Macro1()
   
2. Dim w, mypath$, i&, j%, wj$, wj2$
   
3. mypath = ThisWorkbook.Path & ""
   
4. w = Array("00-总库")
   
5. For i = 2 To Range("a65536").End(xlUp).Row
   
6.     For j = 0 To UBound(w)
   
7.         wj = mypath & w(j) & "" & Cells(i, 1) & ".jpg"
   
8.         wj2 = mypath & "查找人员" & "" & Cells(i, 1) & j + 1 & ".jpg"
   
9.         Name wj As wj2
   
10.     Next
    
11. Next
    
12. MsgBox "所需证件转移完毕，谢谢使用......"
    
13. End Sub
    

复制代码

跳转到最佳答案楼层

蓝桥玄霜

1. Sub Macro1()
   
2. Dim w, mypath$, i&, j%, wj$, wj2$
   
3. mypath = ThisWorkbook.Path & ""
   
4. w = Array("00-总库")
   
5. For i = 2 To Range("a65536").End(xlUp).Row
   
6.     For j = 0 To UBound(w)
   
7.         wj = mypath & w(j) & "" & Cells(i, 1) & ".jpg"
   
8.         wj2 = mypath & "查找人员" & "" & Cells(i, 1) & j + 1 & ".jpg"
   
9.         Name wj As wj2
   
10.     Next
    
11. Next
    
12. MsgBox "所需证件转移完毕，谢谢使用......"
    
13. End Sub
    

复制代码

jianjian053

蓝桥玄霜 发表于 2015-4-14 11:19

不行，提示你后面改的那个为黄色，麻烦给看看怎么改合适

白开水的微笑

你简单一句不行，根本无法判断。看看wj和wj2两个变量是否正确。