求助，复制文件

ykcbf1100

虔诚的小草 发表于 2024-5-17 09:32
其实主要就是为了将里面符合条件的复制出来统一到一个文件夹中。其它要求我可以单独做个dir获取文件名。 ...

就是把符合要求的文件复制到桌面文件夹中吗？

虔诚的小草

ykcbf1100 发表于 2024-5-17 09:34
就是把符合要求的文件复制到桌面文件夹中吗？

是的。这是烦扰我的最大问题。其它步骤我可以用dir获取out路径名称，然后批量改名。

ykcbf1100

虔诚的小草 发表于 2024-5-17 09:38
是的。这是烦扰我的最大问题。其它步骤我可以用dir获取out路径名称，然后批量改名。

文件复制到桌面，这个简单。

ykcbf1100

文件复制到桌面

1. Sub ykcbf()   '//2024.5.17
   
2.     Dim fns As New Collection
   
3.     Set fso = CreateObject("Scripting.FileSystemObject")
   
4.     With Application.FileDialog(msoFileDialogFolderPicker)
   
5.         .Title = "请选择文件夹"
   
6.         .InitialFileName = ThisWorkbook.Path & ""
   
7.         If .Show = -1 Then
   
8.             p = .SelectedItems(1) & ""
   
9.         End If
   
10.     End With
    
11.     p1 = CreateObject("Wscript.Shell").SpecialFolders("Desktop") & "\out"
    
12.     If Not fso.FolderExists(p1) Then fso.CreateFolder p1
    
13.     Set sh = ThisWorkbook.Sheets("操作台")
    
14.     Set ff = fso.GetFolder(p)
    
15.     getFiles ff, fns, fso
    
16.     ReDim brr(1 To 1000, 1 To 1)
    
17.     For Each f In fns
    
18.         m = m + 1
    
19.         brr(m, 1) = f(1)
    
20.         fso.CopyFile f(0), p1
    
21.     Next
    
22.     With sh
    
23.         .[h2:h1000] = ""
    
24.         .[h2].Resize(m, 1) = brr
    
25.     End With
    
26.     MsgBox "OK！"
    
27. End Sub
    

复制代码

虔诚的小草

ykcbf1100 发表于 2024-5-17 09:58
文件复制到桌面，这个简单。

好的，谢谢。我去研究下。

limonet

1-556623清单 - 副本.xlsx与1-556623清单.xlsx是重复文件吗？

虔诚的小草

limonet 发表于 2024-5-17 11:38
1-556623清单 - 副本.xlsx与1-556623清单.xlsx是重复文件吗？

1-556623清单 - 副本.xlsx应该说是冗余文件，多了"-副本"。符合要求的是*****清单.xls/xlsx。

虔诚的小草

limonet 发表于 2024-5-17 11:38
1-556623清单 - 副本.xlsx与1-556623清单.xlsx是重复文件吗？

文件-前面的编号是和清单的编号对应的。对照着清单批量改输出结果文件的名字。

虔诚的小草

ykcbf1100 发表于 2024-5-17 09:58
文件复制到桌面

测试了14楼代码，未定义。。。给他定义objec也不行

ykcbf1100

虔诚的小草 发表于 2024-5-17 15:36
测试了14楼代码，未定义。。。给他定义objec也不行

下面不是还有个自定义函数吗？