不同文件夹,文件名部分相同的文件合并到自动新建的文件夹下?
发布网友
发布时间：2022-04-26 16:16
共5个回答
热心网友
时间：2023-10-13 23:00
1、在你这些excel文件夹下新建txt文件，输入：“dir >name.txt”，关闭txt文件，更改后缀为bat，然后双击运行。
2、新建excel然后把上面得出的name.txt中excel文件名复制到A列， B列更新名（如：第一文件夹za-yu-202111-001.xlsx）文件名一一对应， C列“="ren "&A1&" "&B1”
保留好此excel，后面需要反向将文件名变更回来。
3、新建txt文件，将上面excel中的C列复制到txt文档中，保存关闭，更改后缀为bat，然后双击运行。
4、然后对文件夹里面的文件名排序一下，把你需要调整的文件调整完。在重复一次上述操作把文件名变回来就好了。追问我认为是我表达不对，是把不同文件夹中有相同后缀的文件的文件移动或复制到另一个文件夹中，就是按后缀分类文件。
热心网友
时间：2023-10-13 23:01
在三个文件夹的上一级文件夹内新建一个excel文件（如：文件分类.xlsm），打开插入模块，粘贴代码，运行即可
Sub fleiwj()
On Error Resume Next
Dim tPath$, myPath$, myFile$, arr, brr, a$, i&, k As Byte, d As Object
Set d = CreateObject("scripting.dictionary")
tPath = ThisWorkbook.Path
arr = Array("AA", "BB", "CC")
For k = 0 To 2
myPath = tPath & "\" & arr(k)
myFile = Dir(myPath & "\" & "*.*")
Do While myFile <> ""
a = Right(Split(myFile, ".")(0), 10)
d(a) = ""
myFile = Dir
Loop
Next
brr = d.keys
For i = 0 To UBound(brr)
MkDir tPath & "\" & brr(i)
Next
For k = 0 To 2
myPath = tPath & "\" & arr(k)
myFile = Dir(myPath & "\" & "*.*")
Do While myFile <> ""
a = Right(Split(myFile, ".")(0), 10)
FileCopy myPath & "\" & myFile, tPath & "\" & a & "\" & myFile
myFile = Dir
Loop
Next
End Sub
热心网友
时间：2023-10-13 23:01
热心网友
时间：2023-10-13 23:02
热心网友
时间：2023-10-13 23:02
