怎么将资料文件中的文件移动到目标文件夹中对应的文件夹中

1565785678

老师们，怎么将资料文件中的文件移动到目标文件夹中对应的文件夹中

ykcbf1100

文件移动。。。

ykcbf1100

参与一下。。。

1. Sub ykcbf()  '//2024.5.27
   
2.     Application.ScreenUpdating = False
   
3.     Set fso = CreateObject("scripting.filesystemobject")
   
4.     p = ThisWorkbook.Path & ""
   
5.     p1 = p & "资料文件"
   
6.     p2 = p & "目标文件夹"
   
7.     For Each f In fso.GetFolder(p1).Files
   
8.         fn = fso.GetBaseName(f)
   
9.         p3 = p2 & fn & ""
   
10.         If Not fso.FolderExists(p3) Then fso.CreateFolder p3
    
11.         fso.MoveFile f, p3
    
12.     Next f
    
13.     Application.ScreenUpdating = True
    
14.     MsgBox "OK！"
    
15. End Sub
    

复制代码

小凡、、、

目标文件夹下的123这些子文件时事先创造好的还是要根据文件名新建并对应放入

1565785678

小凡、、、 发表于 2024-5-27 16:39
目标文件夹下的123这些子文件时事先创造好的还是要根据文件名新建并对应放入

先把文件名改成文件夹名，然后放到对应的文件夹里

小凡、、、

1565785678 发表于 2024-5-27 16:41
先把文件名改成文件夹名，然后放到对应的文件夹里

这种基础要求还是ai写的比较规范

limonet

关键字：Join-Path

limonet

Sub limonet()
    CreateObject("wscript.shell").Run "powershell (push-location " & ThisWorkbook.Path _
    & ");(dir .\资料文件) | % {move $_.fullname (Join-Path -Path '目标文件夹' -ChildPath $_.basename)}", 0
End Sub