为什么我用FileDialog选择文件，可单击文件，在文件名文本框中不会显示文件名?

网络蜘蛛

Dim fd As FileDialog
    Dim vrtSelectedItem As Variant

    Set fd = Application.FileDialog(msoFileDialogFilePicker)

     With fd
'如果还要增加则继续用Add，把顺序，即最后一个参数加上去即可。
        .Filters.Add "Excel文件", "*.xlsm", 1
             If .Show = -1 Then
                For Each vrtSelectedItem In .SelectedItems
                     Me.txtFile = vrtSelectedItem
                Next vrtSelectedItem
......

运行程序弹出对话框后单击文件，可在文本框中不会显示文件名，双击才能正常运行程序，请问是怎么回事？

t小宝

确实不显示，但是确定后能返回结果，参数为 msoFileDialogSaveAs 时显示