VBA访问-Application.FileDialog

Question

快速问题，我有一段简单的代码，它允许用户单击文本框并找到所需文件的位置。但是，我能得到这个信息吗，以便在出现“浏览器”弹出窗口时显示特定的文件路径，即； T：\ Production

Private Sub SideProfile_Click()

        Dim vrtSelectedItem As Variant

        With Application.FileDialog(3)
            .AllowMultiSelect = False
        If .Show = -1 Then
            For Each vrtSelectedItem In .SelectedItems
                SideProfile = "#" & vrtSelectedItem & "#"

            Next vrtSelectedItem
        Else
            End If
        End With

End Sub

Answer 1

添加

With Application.FileDialog(3)

到 implementation 'com.android.support:appcompat-v7:28.0.0' 块。