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

考试加油站

mmwwdd 发表于 2014-3-7 16:08
又做了一下，测试一下行不行

文件夹名为1.2.3只是简单举例，实际工作中要取得实际文件名的，

liulang0808

考试加油站 发表于 2014-3-7 16:21
我VBA不在行，折腾半小时也不会，能给出完整的吗

Private Sub CommandButton1_Click()
Set fso = CreateObject("scripting.filesystemobject")
for j=1 to 11
    flname = ThisWorkbook.Path & "\" & j & ".jpg"
    fdname = ThisWorkbook.Path & "\" & j & "\"
    fso.movefile flname, fdname
next j
End Sub
你自己测试下吧，没有附件不方便测试

liulang0808

具体看附件内容吧

考试加油站

liulang0808 发表于 2014-3-7 16:31
Private Sub CommandButton1_Click()
Set fso = CreateObject("scripting.filesystemobject")
for j=1  ...

for j=1 to 11
什么意思，是不是文件夹名必须以1-11命名，那就实际无法操作了，实际工作中文件夹名是不确定变化的。能不能通过读取文件名来操作.

liulang0808

考试加油站 发表于 2014-3-7 16:42
for j=1 to 11
什么意思，是不是文件夹名必须以1-11命名，那就实际无法操作了，实际工作中文件夹名是不确 ...

因为你的附件是这样的来的
所以如此安排
你要是有别的杂乱无章的话，那就麻烦了，除非你先把移动文件的对应关系放到excel

考试加油站

liulang0808 发表于 2014-3-7 16:50
因为你的附件是这样的来的
所以如此安排
你要是有别的杂乱无章的话，那就麻烦了，除非你先把移动文件的 ...

哦，那谢谢了，还有别的方法吗

liulang0808

考试加油站 发表于 2014-3-7 19:54
哦，那谢谢了，还有别的方法吗

编程需要找出规律啊，没有规律很难实现的

考试加油站

liulang0808 发表于 2014-3-7 16:50
因为你的附件是这样的来的
所以如此安排
你要是有别的杂乱无章的话，那就麻烦了，除非你先把移动文件的 ...

已将文件的对应关系按照您的要求放到EXCEL中，请给看看
新建 Microsoft Excel 工作表 (2).rar (9.54 KB, 下载次数: 894)

2014-3-8 15:01 上传

点击文件名下载附件

liulang0808

    Set fso = CreateObject("scripting.filesystemobject")
    Set ff = fso.getfolder(ThisWorkbook.Path) '
    For Each f In ff.Files
    wenjianjia=split(f.name,".")(0)'获取文件名对应的文件夹名
      next f

http://club.excelhome.net/blog-238368-1693.html
fso的一些说明，你自己看看吧

wudixin96

哎，这种问题，用VBA不是蛋疼么，，直接批处理啊，简单实用。