[已解决]如何把部分表格从A处移到B处？

小小玩童

附件 移动表格附件.rar (146.04 KB, 下载次数: 19)

2013-1-10 10:44 上传

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

最佳答案

月排行榜 / 总排行榜

爱疯

2013-1-10 12:53

1. 
   
2. Sub test()
   
3.     Dim A(), i&, p$, f$, x$, y$
   
4. 
   
5.     Application.ScreenUpdating = False
   
6.     A = Range("a1:a" & Range("a1").End(xlDown).Row).Value
   
7.     p = ThisWorkbook.Path & ""
   
8. 
   
9.     For i = 1 To UBound(A)
   
10.         f = Format(A(i, 1), "00") & ".xlsx"
    
11.         x = p & "机动表格" & f
    
12.         y = p & f
    
13.         If Len(Dir(x)) > 0 Then
    
14.             FileCopy x, y    '复制
    
15.             Kill x    '删除
    
16.         End If
    
17.     Next i
    
18.    
    
19. End Sub
    

复制代码

移动表格附件2.rar (156.73 KB, 下载次数: 9)

2013-1-10 12:53 上传

点击文件名下载附件

跳转到最佳答案楼层

爱疯

1. 
   
2. Sub test()
   
3.     Dim A(), i&, p$, f$, x$, y$
   
4. 
   
5.     Application.ScreenUpdating = False
   
6.     A = Range("a1:a" & Range("a1").End(xlDown).Row).Value
   
7.     p = ThisWorkbook.Path & ""
   
8. 
   
9.     For i = 1 To UBound(A)
   
10.         f = Format(A(i, 1), "00") & ".xlsx"
    
11.         x = p & "机动表格" & f
    
12.         y = p & f
    
13.         If Len(Dir(x)) > 0 Then
    
14.             FileCopy x, y    '复制
    
15.             Kill x    '删除
    
16.         End If
    
17.     Next i
    
18.    
    
19. End Sub
    

复制代码

移动表格附件2.rar (156.73 KB, 下载次数: 9)

2013-1-10 12:53 上传

点击文件名下载附件