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

编程问答 2022-07-25

问题描述

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

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”块，然后将其分配给变量。有没有一种方法可以直接使用元素而不执行此操作？

解决方法

暂无找到可以解决该程序问题的有效方法，小编努力寻找整理中！

如果你已经找到好的解决方法，欢迎将解决方案带上本链接一起发送给小编。

小编邮箱:dio#foxmail.com (将#修改为@）

excelexcelfor-loopforeach