如何通过函数调用FileDialog并返回选择结果？

你的代码存在几个关键错误导致了报错：

1. VBA中返回对象类型时，必须用Set关键字赋值，原函数里SelectFilesDialog = fd缺少Set，导致对象未正确初始化，触发“Object variable or With block variable not set”错误。
2. 调用过程test里，直接引用函数内的局部变量fd是无效的，而且filePath = filePath = fd.SelectedItems(1)是语法错误，属于重复赋值。
3. 接收返回对象的变量DialogResults未声明为对应类型，容易引发变体类型的潜在问题。

修正后的函数代码 #

Function SelectFilesDialog() As FileDialog
    Dim fd As FileDialog
    Set fd = Application.FileDialog(msoFileDialogOpen)
    
    With fd
        .Title = "Select HTML file"
        .Filters.Clear
        .Filters.Add "HTML Files", "*.html"
    End With
    
    ' 用户取消选择时返回Nothing
    If fd.Show <> -1 Then
        Set SelectFilesDialog = Nothing
        Exit Function
    End If
    
    Set SelectFilesDialog = fd
End Function

修正后的调用过程 #

Sub test()
    Dim DialogResults As FileDialog
    Dim filePath As String
    
    Set DialogResults = SelectFilesDialog()
    
    ' 先判断是否成功选择了文件
    If Not DialogResults Is Nothing Then
        filePath = DialogResults.SelectedItems(1)
        ' 这里可添加后续处理逻辑，比如打印路径
        MsgBox "选择的文件路径：" & filePath
    End If
End Sub

更简化的方案：直接返回文件路径 #

如果你的需求只是获取选中的文件路径，没必要返回整个FileDialog对象，直接返回字符串会更简洁：

Function SelectFilesDialog() As String
    Dim fd As FileDialog
    Set fd = Application.FileDialog(msoFileDialogOpen)
    
    With fd
        .Title = "Select HTML file"
        .Filters.Clear
        .Filters.Add "HTML Files", "*.html"
        .AllowMultiSelect = False ' 仅允许选择单个文件时添加此配置
    End With
    
    If fd.Show = -1 Then
        SelectFilesDialog = fd.SelectedItems(1)
    Else
        SelectFilesDialog = "" ' 用户取消选择时返回空字符串
    End If
End Function

对应的调用代码：

Sub test()
    Dim filePath As String
    filePath = SelectFilesDialog()
    
    If filePath <> "" Then
        MsgBox "选择的文件路径：" & filePath
        ' 后续处理逻辑
    End If
End Sub

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