如何将FolderPicker结果用作变量?

时间:2018-09-20 16:07:56

标签: excel vba excel-vba

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

Dim diaFolder As FileDialog

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

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

Do While Len(myFile) > 0

提前谢谢

1 个答案:

答案 0 :(得分:2)

删除diaFolder.Show并包括:

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

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