对于excel VBA，请使用“ for each ... next”语句如何一次使用所有迭代的元素

如何解决对于excel VBA，请使用“ for each ... next”语句如何一次使用所有迭代的元素

这是我正在测试的示例代码

Sub Selek()

Dim fd As FileDialog
Set fd = Application.FileDialog(msoFileDialogFilePicker)

Dim item As Variant
With fd
    If .Show = -1 Then
        For Each item In .SelectedItems
            MsgBox item
        Next item
    Else
    End If
End With
Range("K1") = item

End Sub

此脚本在不同的消息框中一个接一个地显示选定的项目，但我希望所有选定的项目都在一个msgBox中。

后续问题。我还需要处理为每个选定项目找到的文件路径。我意识到一旦不在“ With”部分中，就无法将它们分配给变量。我的解决方案是，当我仍位于“ With”块中时，然后将该项分配给单元格，然后退出“ With”块，然后将其分配给变量。有没有一种方法可以直接使用元素而不执行此操作？