无需调用Kernel32.dll，如何用VBA的Application.GetOpenFilename设置UNC默认路径？

以下是几个合规的替代方案，均不依赖被限制的Kernel32.dll调用：

方案1：使用FileDialog对象替代GetOpenFilename #

Office内置的FileDialog对象比Application.GetOpenFilename更灵活，原生支持直接设置UNC路径为初始位置，完全符合安全限制要求。

示例代码：

Sub SelectUNCFile()
    Dim fd As FileDialog
    Dim selectedPath As String
    
    Set fd = Application.FileDialog(msoFileDialogFilePicker)
    With fd
        .InitialFileName = "\\server\shared\target-folder\" ' 替换为你的UNC路径
        .Title = "选择目标文件"
        .AllowMultiSelect = False ' 根据需求设置是否允许多选
        .Filters.Clear
        .Filters.Add "Excel文件", "*.xlsx;*.xls" ' 可选：添加文件类型过滤
        
        If .Show = -1 Then
            selectedPath = .SelectedItems(1)
            ' 在这里添加选中文件后的处理逻辑
            MsgBox "已选中文件: " & selectedPath
        End If
    End With
    Set fd = Nothing
End Sub

优势：无需额外依赖，操作逻辑和原生对话框一致，用户学习成本低。

方案2：临时修改默认路径调用内置打开对话框 #

通过临时修改Application.DefaultFilePath为UNC路径，再调用内置的打开对话框，同样不需要Kernel32.dll支持。

示例代码：

Sub OpenUNCWorkbook()
    Dim originalDefaultPath As String
    Dim filePath As Variant
    
    ' 保存原默认路径，避免影响后续操作
    originalDefaultPath = Application.DefaultFilePath
    ' 设置默认路径为目标UNC地址
    Application.DefaultFilePath = "\\server\shared\excel-files\"
    
    ' 调用内置打开对话框
    filePath = Application.Dialogs(xlDialogOpen).Show
    
    ' 恢复原默认路径
    Application.DefaultFilePath = originalDefaultPath
    
    If Not IsEmpty(filePath) Then
        ' 打开选中的工作簿
        Workbooks.Open filePath
    End If
End Sub

注意：如果用户在对话框中切换了路径，恢复原默认路径可以避免改变用户的常规操作习惯。

方案3：自定义用户窗体（适合定制化需求） #

如果需要更个性化的文件选择界面（比如添加权限校验、自定义过滤规则），可以自行开发UserForm，通过Scripting.FileSystemObject遍历UNC路径下的文件，完全自主控制逻辑。

示例代码（需先创建UserForm，包含ListBox、TextBox、确认按钮）：

Private Sub UserForm_Initialize()
    Dim fso As Object
    Dim targetFolder As Object
    Dim fileItem As Object
    Dim targetUNC As String
    
    Set fso = CreateObject("Scripting.FileSystemObject")
    targetUNC = "\\server\shared\custom-folder\"
    
    ' 加载目标UNC路径下的文件到列表框
    If fso.FolderExists(targetUNC) Then
        Set targetFolder = fso.GetFolder(targetUNC)
        TextBox1.Text = targetUNC ' 显示当前路径
        For Each fileItem In targetFolder.Files
            ' 可选：过滤特定文件类型
            If LCase(fso.GetExtensionName(fileItem.Path)) = "xlsx" Then
                ListBox1.AddItem fileItem.Path
            End If
        Next fileItem
    End If
    Set fso = Nothing
End Sub

Private Sub cmdConfirm_Click()
    Dim selectedFile As String
    If ListBox1.ListIndex <> -1 Then
        selectedFile = ListBox1.List(ListBox1.ListIndex)
        ' 执行后续业务逻辑
        MsgBox "选中文件: " & selectedFile
        Me.Hide
    End If
End Sub

优势：高度定制化，可结合业务需求添加额外功能；缺点是需要自行维护界面和文件遍历逻辑。

内容的提问来源于stack exchange，提问作者n8.