VBA选择多个文件夹路径

可以使用 FileDialog 对象来实现选择多个文件夹路径的功能，具体代码如下：

Sub SelectFolders()
Dim fd As FileDialog
Dim folderPath As Variant

Set fd = Application.FileDialog(msoFileDialogFolderPicker)
fd.AllowMultiSelect = True
fd.Title = "请选择文件夹"

If fd.Show = -1 Then
For Each folderPath In fd.SelectedItems
Debug.Print folderPath
Next folderPath
End If
End Sub

这段 VBA 代码会弹出一个文件夹选择对话框，允许用户选择多个文件夹路径，并将选择的文件夹路径打印到调试窗口中。

相关问题

VBA获取多个文件夹路径

您好，以下是获取多个文件夹路径的 VBA 代码示例：

Sub GetFolderPath()
Dim FolderPath As String
Dim SelectedFolders As Variant

'弹出选择文件夹对话框
With Application.FileDialog(msoFileDialogFolderPicker)
.Title = "请选择文件夹"
.AllowMultiSelect = True
If .Show <> -1 Then Exit Sub
'获取选择的文件夹路径
For Each SelectedFolders In .SelectedItems
FolderPath = SelectedFolders
Debug.Print FolderPath
Next
End With
End Sub

希望能对您有所帮助！

VBA选择多个文件夹里多张图合并成一个pdf

非常感谢您的提问。您可以使用VBA编写一个宏来实现这个功能。以下是一个简单的示例代码：

Sub CombinePDFs()
Dim folderPath As String
Dim outputPath As String
Dim objFSO As Object
Dim objShell As Object
Dim objFolder As Object
Dim objFile As Object
Dim objPDF As Object
Dim i As Integer

'选择文件夹路径
With Application.FileDialog(msoFileDialogFolderPicker)
.Title = "请选择要合并的PDF文件所在的文件夹"
.Show
If .SelectedItems.Count = 0 Then Exit Sub
folderPath = .SelectedItems(1)
End With

'选择输出路径
With Application.FileDialog(msoFileDialogSaveAs)
.Title = "请选择输出PDF文件的保存路径和文件名"
.InitialFileName = "CombinedPDFs.pdf"
.Show
If .SelectedItems.Count = 0 Then Exit Sub
outputPath = .SelectedItems(1)
End With

'创建PDF对象
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objShell = CreateObject("Shell.Application")
Set objPDF = CreateObject("AcroExch.PDDoc")

'遍历文件夹中的PDF文件
Set objFolder = objFSO.GetFolder(folderPath)
For Each objFile In objFolder.Files
If objFSO.GetExtensionName(objFile.Path) = "pdf" Then
'打开PDF文件
If objPDF.Open(objFile.Path) Then
'合并PDF文件
objShell.Namespace(outputPath).CopyHere objPDF, 4
i = i + 1
End If
End If
Next

'关闭PDF对象
objPDF.Close
Set objPDF = Nothing
Set objShell = Nothing
Set objFSO = Nothing

'提示合并完成
MsgBox "已成功合并" & i & "个PDF文件！", vbInformation, "提示"
End Sub

请注意，此代码仅适用于Windows操作系统，并且需要安装Adobe Acrobat软件。如果您使用的是Mac操作系统，则可以使用Preview应用程序来合并PDF文件。