循环访问文件夹（VBA）中的不同types的文件

我有一个关于循环两个不同types的文件的文件夹的问题：xlsm和mdb（Access）。

我目前写了一个macros，将xlsm复制到mdb文件，然后保存mdb文件之前，将打开1单个xlsm文件和1单个mdb文件。

现在，我想通过一个具有50个xlsm文件和50个mdb文件的文件夹重复此过程。 他们有相同的名字，所以例如循环应该这样做：

1. 打开名为“2001”的xlsm和mdb文件。
2. 执行复制和粘贴等从xlsm到mdb（我已经写了这部分）。
3. 保存mdb文件。
4. closures名为“2001”的xlsm和mdb文件。
5. 对文件夹中的“2002”，“2003”等重复步骤1-4。

我对VBA非常感兴趣，非常感谢！ 期待任何指导。 圣诞节快乐！

Answer 1

我今天刚做了一个将JPG文件列在文件夹中的示例代码，您可以采用和修改以完成您喜欢的操作，但是很难在不能看到您的解决scheme的情况下为您提供确切的代码。

Public Sub listImages(folderPath As String) 'define variables Dim fso As Object Dim objFolder As Object Dim objFolders As Object Dim objF As Object Dim objFile As Object Dim objFiles As Object Dim strFileName As String Dim strFilePath As String Dim myList As String 'set file system object Set fso = CreateObject("Scripting.FileSystemObject") 'set folder object Set objFolder = fso.GetFolder(folderPath) 'set files Set objFiles = objFolder.files Set objFolders = objFolder.subfolders 'list all images in folder For Each objFile In objFiles If Right(objFile.Name, 4) = ".jpg" Then strFileName = objFile.Name strFilePath = objFile.Path myList = myList & strFileName & " - " & strFilePath & vbNewLine End If Next 'go through all subflders For Each objF In objFolders Call listImages(objF.Path) Next Debug.Print myList Set objFolder = Nothing Set objFile = Nothing Set fso = Nothing End Sub