[已解决]批量复制文件并按序编号的问题

dfshm

附件 批量复制文件并按序编号.rar (30.74 KB, 下载次数: 14)

2016-4-21 20:36 上传

点击文件名下载附件
谢谢！

最佳答案

月排行榜 / 总排行榜

dsmch

2016-4-21 21:16

1. Sub t()
   
2. Set fs = CreateObject("scripting.FileSystemObject")
   
3. mypath = ThisWorkbook.Path & ""
   
4. wj =  mypath & "BB\Excel.xlsm"
   
5. For Each m In fs.GetFolder(mypath).SubFolders
   
6.     If m <> mypath & "BB" Then
   
7.         x = Split(m, "")
   
8.         y = Mid(x(UBound(x)), 2)
   
9.         fs.CopyFile wj, m & "" & y & ".xlsm"
   
10.     End If
    
11. Next
    
12. End Sub

复制代码

跳转到最佳答案楼层

dsmch

1. Sub t()
   
2. Set fs = CreateObject("scripting.FileSystemObject")
   
3. mypath = ThisWorkbook.Path & ""
   
4. wj =  mypath & "BB\Excel.xlsm"
   
5. For Each m In fs.GetFolder(mypath).SubFolders
   
6.     If m <> mypath & "BB" Then
   
7.         x = Split(m, "")
   
8.         y = Mid(x(UBound(x)), 2)
   
9.         fs.CopyFile wj, m & "" & y & ".xlsm"
   
10.     End If
    
11. Next
    
12. End Sub

复制代码