求助大神们，能进行文件分类储存的excel

li937476525 · 发表于 2024-5-4 08:26

本帖最后由 li937476525 于 2024-5-4 09:00 编辑

一个物料单里有N个文件，这N个文件在某个文件夹内存放着，这N个文件有X(N大于X）种分类，同时，我已在表中列出了文件都是哪个类别的，我想利用excel表自动生成X个文件夹，并自动命名(名称就是类别名)，然后自动复制每个类别对应的文件到所属类的文件夹内，麻烦大神们提供帮助，在这里万分感谢

limonet · 发表于 2024-5-4 08:42

给你思路嘛，怕说不清楚；给你附件嘛，怕文不对题；算了。

li937476525 · 发表于 2024-5-4 08:49

limonet 发表于 2024-5-4 08:42
给你思路嘛，怕说不清楚；给你附件嘛，怕文不对题；算了。

最后俩字是关键

li937476525 · 发表于 2024-5-4 09:03

limonet 发表于 2024-5-4 08:42
给你思路嘛，怕说不清楚；给你附件嘛，怕文不对题；算了。

大神，您给我个附件，我自己改改也行，或者是文不对题的话，我在请教您

baofa2 · 发表于 2024-5-4 09:36

Sub test0()
Dim ar, i As Long
Dim strPath As String, strFile As String, strFolder As String
strPath = ThisWorkbook.Path & "\"
ar = Range("A1").CurrentRegion.Resize(, 4).Value
With CreateObject("Scripting.FileSystemObject")
For i = 3 To UBound(ar)
strFolder = strPath & ar(i, 4) & "\"
If Not .FolderExists(strFolder) Then .CreateFolder strFolder
strFile = Dir(strPath & ar(i, 1) & ".*")
While Len(strFile)
If .FileExists(strFolder & strFile) Then .DeleteFile strFolder & strFile
.MoveFile strPath & strFile, strFolder
strFile = Dir
Wend
Next
End With
End Sub

复制代码

baofa2 · 发表于 2024-5-4 09:44

代码已传审核中是移动__附件中是复制.zip (16.55 KB, 下载次数: 11)

ooluckydog · 发表于 2024-5-4 09:46

li937476525 · 发表于 2024-5-4 10:09

baofa2 发表于 2024-5-4 09:44

感谢大神帮助，辛苦了

li937476525 · 发表于 2024-5-4 10:09

ooluckydog 发表于 2024-5-4 09:46

谢谢您，辛苦辛苦

li937476525 · 发表于 2024-5-4 12:28

ooluckydog 发表于 2024-5-4 09:46

大神，如果我想把文件复制到文件夹，而不是移动，并且不受文件类型txt限制，请问我该改哪里？

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

[求助] 求助大神们，能进行文件分类储存的excel

评分

评分

评分