如何将FolderPicker结果用作变量？

Question

我在以下代码中添加了本节，以尝试允许某人选择一个文件夹，而不是对其进行预先选择。

Dim diaFolder As FileDialog

Set diaFolder = Application.FileDialog(msoFileDialogFolderPicker)
diaFolder.AllowMultiSelect = False
diaFolder.Show

它可以正确打开一个文件夹选择器，并让我选择该文件夹，但是我不确定如何正确使用该变量，因为filepath = diaFolder现在显示为"FileDialog(msoFileDialogFolderPicker)"，导致{{1} }不触发。

Do While Len(myFile) > 0

提前谢谢

Answer 1

删除diaFolder.Show并包括：

If diaFolder.Show = -1 Then
    myfile = diaFolder.SelectedItems(1)
End If

如果按下Cancel，将跳过分配。