仅复制文件夹VBA的第一个文件
我已经find了如何使用VBA将文件夹中的所有文件复制到另一个文件夹。
我唯一无法find的是如何移动文件夹的前三项。
我为每个项目拍摄三张照片，每个项目使用Excel工作表创build另一个文件夹。 所以它应该移动（或复制）三个图片，然后移动到下三个，并执行相同的操作（但与另一个文件夹）。
我唯一无法find的是如何从一个文件夹中只select三个第一项。
我目前使用.copyfile方法。
Dim ESN, FromPath, ToPath, LastRow, PN, FileToCopy, MyFile, i, k, NumberOfFiles As Integer, Module LastRow = ActiveWorkbook.ActiveSheet.Range("E" & Rows.Count).End(xlUp).Row + 1 NumberOfFiles = InputBox("How many parts do you want to enter?", "# of parts?") Dim FSO As Object Set FSO = CreateObject("scripting.filesystemobject") 'Select all files FileToCopy = "*.*" ESN = ActiveWorkbook.ActiveSheet.Range("A1").Value ESN = Right(ESN, 6) For k = NumberOfFiles To 1 Step -1 'path toekennen Module = ActiveWorkbook.ActiveSheet.Range("B" & LastRow - k).Value PN = ActiveWorkbook.ActiveSheet.Range("G" & LastRow - k).Value FromPath = "D:\DCIM\100OLYMP\" ToPath = "U:\tmo\Checklist Engine Records\LEAP 1A\PHOTOS\" & Module & _ "\" & ESN & "_" & PN & "\" MyFile = Dir(FromPath & "\*.JPG") 'folder creeeren als deze niet bestaat If FSO.folderexists(ToPath) = False Then FSO.createfolder ToPath End If For i = 0 To 2 FSO.movefile Source:=FromPath & FileToCopy, Destination:=ToPath MyFile = Dir Next i Next k` 谢谢！ KawaRu。
myfile=dir("c:\yourpath" & "\*.jpeg") i=1 for i = 1 to 3 ' your commands myfile=Dir next i
这可能会帮助你…添加此代码在您的function或子…