如何将同名文件批量放入同名文件夹

考试加油站 · 发表于 2014-3-7 14:00

比方：手中有以1-11命名的文件夹，同时有1-11命名的图片，如何批量将1-11图片放入1-11文件夹。
VBA.rar (417.09 KB, 下载次数: 142)

2014-3-7 14:00 上传
点击文件名下载附件

mmwwdd · 发表于 2014-3-7 14:21

简单的写了一下，把dd文件解压到你的文件夹

考试加油站 · 发表于 2014-3-7 15:30

mmwwdd 发表于 2014-3-7 14:21
简单的写了一下，把dd文件解压到你的文件夹

错误53，未找到路径

mmwwdd · 发表于 2014-3-7 15:39

知道了，没有12，13那个文件夹

mmwwdd · 发表于 2014-3-7 15:40

还得加一个判断语句，判断文件夹存在或文件存在

liulang0808 · 发表于 2014-3-7 15:46

Private Sub CommandButton1_Click()
Set fso = CreateObject("scripting.filesystemobject")
flname = ThisWorkbook.Path & "\1.xls"
fdname = ThisWorkbook.Path & "\1\"
fso.movefile flname, fdname

End Sub

flname是你要移动的文件名，全路径
fdname是要移动文件到的文件夹，注意最后一个“\”，必须有的，具体遍历文件，自己搞吧

考试加油站 · 发表于 2014-3-7 15:47

mmwwdd 发表于 2014-3-7 14:21
简单的写了一下，把dd文件解压到你的文件夹

能写一个通用的，不只是图片吗，其它格式同名文件也行吗？另一个文件夹1中有两个图片，如1.jpg和1（2）.jpg也能移动吗。

沙漠滴雨 · 发表于 2014-3-7 15:51

liulang0808 发表于 2014-3-7 15:46
Private Sub CommandButton1_Click()
Set fso = CreateObject("scripting.filesystemobject")
flname ...

老师您再关注一下，好吗？

http://club.excelhome.net/forum. ... id%3D9%26typeid%3D9

mmwwdd · 发表于 2014-3-7 16:08

又做了一下，测试一下行不行

考试加油站 · 发表于 2014-3-7 16:21

liulang0808 发表于 2014-3-7 15:46
Private Sub CommandButton1_Click()
Set fso = CreateObject("scripting.filesystemobject")
flname ...

我VBA不在行，折腾半小时也不会，能给出完整的吗

		自动登录	找回密码
密码			免费注册

[求助] 如何将同名文件批量放入同名文件夹

评分