请问如何按照按列表移动文件到指定文件夹中，VBA代码如何编写

song35151 · 发表于 2021-10-6 19:37:05

如图求大神帮忙写一个移动文件的代码，谢谢

Allate · 发表于 2021-10-8 15:16:55

升级了一下版本，你再试一下吧。

移动文件.xls (43.5 KB, 下载次数: 23, 售价: 10 金币)

Allate · 发表于 2021-10-6 19:37:06

简单地做了个，你试试效果吧

移动文件.xls (34 KB, 下载次数: 138, 售价: 10 金币)

song35151 · 发表于 2021-10-7 09:40:33

也就是想把好几百张图纸按要求移动到指定的文件夹

song35151 · 发表于 2021-10-7 09:55:13

经典案例图书

在网上找的这个代码在EXCEL中运行成功，但不知道里面写的是什么意思，有大神帮忙写下注释吗
Sub 移动文件()
Dim Fso As Object, oFile As Object, sFolder$
Set Fso = CreateObject("Scripting.FileSystemObject")
For Each oFolder In Fso.GetFolder(ThisWorkbook.Path).SubFolders
      For Each oFile In oFolder.Files
         If oFile.Name Like "*.xlsx" Then
            sFolder = oFolder & "\" & Replace(oFile.Name, ".xlsx", "") & "\"
            oFile.Move sFolder
            Fso.getFile(sFolder & oFile.Name).Name = "A" & oFile.Name
         End If
      Next
Next
MsgBox "OK"
Set Fso = Nothing
End Sub

song35151 · 发表于 2021-10-7 09:56:42

Sub 移动文件()
Dim Fso As Object, oFile As Object, sFolder$
Set Fso = CreateObject("Scripting.FileSystemObject")
For Each oFolder In Fso.GetFolder(ThisWorkbook.Path).SubFolders
      For Each oFile In oFolder.Files
         If oFile.Name Like "*.xlsx" Then
            sFolder = oFolder & "\" & Replace(oFile.Name, ".xlsx", "") & "\"
            oFile.Move sFolder
            Fso.getFile(sFolder & oFile.Name).Name = "A" & oFile.Name
         End If
      Next
Next
MsgBox "OK"
Set Fso = Nothing
End Sub

song35151 · 发表于 2021-10-7 10:02:01

经典案例图书

参考这个
http://www.360doc.com/content/20/0218/02/8260830_892820073.shtml

song35151 · 发表于 2021-10-7 10:25:16

这段代码可以移动文件，但这是按文件类型移动的，不能按文件名移动

greyer · 发表于 2021-10-7 15:46:49

很不错，顶一下！

song35151 · 发表于 2021-10-7 16:14:41

Allate 发表于 2021-10-6 19:37
简单地做了个，你试试效果吧

这个效果不错，要是能自带识别文件类型的就好了，比如DWG和FPD文件，意思就是我只要在表里写上文件名，所有同名文件都一起处理不用管文件类型

lihongjun123 · 发表于 2021-10-8 10:03:12

活到老学到老！

song35151 · 发表于 2021-10-8 10:28:29

Allate 发表于 2021-10-6 19:37
简单地做了个，你试试效果吧

大神，使用遇到一个问题就是程序遇到一个错误文件名会提示文件找不到后就停止了，后面对的文件名也不管了
可以帮忙加个容错功能吗，就是遇到找不到的文件名就继续下一个，直至列表数据完成

Allate · 发表于 2021-10-8 10:29:05

song35151 发表于 2021-10-7 16:14
这个效果不错，要是能自带识别文件类型的就好了，比如DWG和FPD文件，意思就是我只要在表里写上文件名，所 ...

只需要管这个DWG和PDF么？如果有SW的同名文件呢？要不要区分？

song35151 · 发表于 2021-10-8 14:21:22

Allate 发表于 2021-10-8 10:29
只需要管这个DWG和PDF么？如果有SW的同名文件呢？要不要区分？

最好写个可以手动设置格式类型的地方，这样就通用些对大多数人都有用，还有那个容错功能麻烦也一起帮忙改下

song35151 · 发表于 2021-10-8 18:08:16

加入QQ群
参与讨论和学习

或扫描二维码加入

Allate 发表于 2021-10-8 15:16
升级了一下版本，你再试一下吧。

非常感谢，这个OK了

		自动登录	找回密码
密码			立即注册

请问如何按照按列表移动文件到指定文件夹中，VBA代码如何编写

最佳答案

效果是这样的

最佳新人

活跃会员

热心会员

宣传达人

灌水之王

突出贡献