vba多个文件夹批量按顺序批量导入图片

你可以使用 VBA 的 FileSystemObject 对象来遍历文件夹中的文件，并使用 Image 控件来加载图片。以下是一个示例代码：

Sub ImportImages()
Dim fso As Object
Dim folder As Object
Dim file As Object
Dim i As Integer

Set fso = CreateObject("Scripting.FileSystemObject")
Set folder = fso.GetFolder("C:\Images")

i = 1

For Each file In folder.Files
If Right(file.Name, 3) = "jpg" Or Right(file.Name, 3) = "png" Then
UserForm1.Controls("Image" & i).Picture = LoadPicture(file.Path)
i = i + 1
End If
Next file
End Sub

这个代码假设你有一个名为 "UserForm1" 的用户窗体，其中包含了一些名为 "Image1"、"Image2"、"Image3" 等等的 Image 控件，用于显示图片。你需要将 "C:\Images" 替换为你实际的图片文件夹路径。