[已解决]VBA批量移动文件

ccgqc

我有150个excel文件，文件名为：文件名1，文件名2……150,名称无规律

现在要让这些文件放到F盘9月工程文件夹里，对应的文件夹名

能给个VBV程序不？

还有我另有150个文件名均为上述文件前加材料表文件名1，材料表文件名2，材料表文件名3，………150，也要放到同样的文件夹里

怎么搞

最佳答案

月排行榜 / 总排行榜

那么的帅

2014-4-2 23:04

1. Sub 移动文件()
   
2.     Dim MyPath1 As String, MyPath2 As String, MyName As String, MyName2 As String
   
3.     MyPath1 = "E:\A"  '指定原始文件所在文件夹
   
4.     MyPath2 = "F:\9月工程"    '指定文件新文件夹，需要事先创建该文件夹
   
5.     MyName1 = Dir(MyPath1 & "*.xls*")     ' 找寻第一项。
   
6.     Do While MyName1 <> ""      ' 开始循环。
   
7.         Name MyPath1 & MyName1 As MyPath2 & MyName1   '移动文件
   
8.         MyName1 = Dir    ' 查找下一个目录。
   
9.     Loop
   
10. End Sub
    
11. Sub 移动文件并重命名()
    
12.     MyPath1 = "E:\A"  '指定原始文件所在文件夹
    
13.     MyPath2 = "F:\9月工程"    '指定文件新文件夹，需要事先创建该文件夹
    
14.     MyName1 = Dir(MyPath1 & "*.xls*")     ' 找寻第一项。
    
15.     Do While MyName1 <> ""      ' 开始循环。
    
16.         MyName2 = "材料表" & MyName1
    
17.         Name MyPath1 & MyName1 As MyPath2 & MyName2    '移动文件并重新命名
    
18.         MyName1 = Dir    ' 查找下一个目录。
    
19.     Loop
    
20. End Sub

复制代码

跳转到最佳答案楼层

我心飞翔410

遍历文件夹  filecopy方法 ？？
来点附件测试么

ccgqc

自己顶

蓝粆

我心飞翔410 发表于 2014-4-2 22:12
遍历文件夹  filecopy方法 ？？
来点附件测试么

翔哥  求入门

ccgqc

上传了，你试一下啊

那么的帅

1. Sub 移动文件()
   
2.     Dim MyPath1 As String, MyPath2 As String, MyName As String, MyName2 As String
   
3.     MyPath1 = "E:\A"  '指定原始文件所在文件夹
   
4.     MyPath2 = "F:\9月工程"    '指定文件新文件夹，需要事先创建该文件夹
   
5.     MyName1 = Dir(MyPath1 & "*.xls*")     ' 找寻第一项。
   
6.     Do While MyName1 <> ""      ' 开始循环。
   
7.         Name MyPath1 & MyName1 As MyPath2 & MyName1   '移动文件
   
8.         MyName1 = Dir    ' 查找下一个目录。
   
9.     Loop
   
10. End Sub
    
11. Sub 移动文件并重命名()
    
12.     MyPath1 = "E:\A"  '指定原始文件所在文件夹
    
13.     MyPath2 = "F:\9月工程"    '指定文件新文件夹，需要事先创建该文件夹
    
14.     MyName1 = Dir(MyPath1 & "*.xls*")     ' 找寻第一项。
    
15.     Do While MyName1 <> ""      ' 开始循环。
    
16.         MyName2 = "材料表" & MyName1
    
17.         Name MyPath1 & MyName1 As MyPath2 & MyName2    '移动文件并重新命名
    
18.         MyName1 = Dir    ' 查找下一个目录。
    
19.     Loop
    
20. End Sub

复制代码

ccgqc

神人，谢谢

ccgqc

那么的帅 发表于 2014-4-2 23:04

非常感谢

ccgqc

那么的帅 发表于 2014-4-2 23:04

1.我9月工程这个文件夹里还有文件夹啊，但文件夹的名称与文件的名称一样的；
2.我另150个文件不要改文件名（他文件名为材料表+刚才文件的名），同样是移到9月工程文件夹下对应的文件夹啊，注意是夹，不是9月工程这个文件夹，是他下面的文件夹

那么的帅

ccgqc 发表于 2014-4-2 23:41
1.我9月工程这个文件夹里还有文件夹啊，但文件夹的名称与文件的名称一样的；
2.我另150个文件不要改文件 ...

MyPath2 = "F:\9月工程\"
这句是指定新文件夹，根据实际文件夹 修改
比如 MyPath2 = "F:\9月工程\A\"