VBA导入CSV：编辑器运行正常，工作表按钮触发报错

问题说明 #

通过VBA导入CSV数据时，在VBA编辑器中运行代码可正常打开文件选择器并完成导入，但点击工作表按钮运行时弹出错误："File dialog could not be initialized. Please make sure you have the appropriate references enabled."，同时Application.GetOpenFilename在编辑器中也无法正常运行。

原因分析与解决方案 #

1. 检查Office对象库引用 #

报错提示明确指向引用问题，按以下步骤排查：

• 打开VBA编辑器（Alt+F11），点击菜单工具 > 引用
• 确保勾选Microsoft Office [对应版本] Object Library（如Microsoft Office 16.0 Object Library）
• 取消所有标记为*"Missing"*的无效引用，确定后重启Excel重试

2. 替换文件选择方法（兼容编辑器与按钮运行） #

Application.FileDialog在工作表按钮的运行上下文可能存在权限限制，改用GetOpenFilename的兼容写法，同时适配Windows和Mac：
修改代码中的文件选择段：

#If Mac Then
    selectedFile = MacScript("return POSIX path of (choose file of type {""public.comma-separated-values-text""} default location (path to desktop folder))")
#Else
    ' Windows下使用GetOpenFilename替代FileDialog
    selectedFile = Application.GetOpenFilename( _
        FileFilter:="CSV Files (*.csv), *.csv", _
        Title:="Select a CSV File", _
        MultiSelect:=False)
    
    ' 处理用户取消选择的情况
    If selectedFile = False Then selectedFile = ""
#End If

3. 调整宏安全设置 #

工作表按钮运行宏可能受信任中心限制：

• 打开Excel，依次进入文件 > 选项 > 信任中心 > 信任中心设置
• 选择宏设置，勾选启用所有宏（仅在信任当前工作簿时使用），同时勾选信任对VBA项目对象模型的访问
• 测试完成后建议改回更安全的宏级别

4. 完整修改后的代码 #

Sub ImportCSV()
    Dim selectedFile As Variant ' 用Variant接收GetOpenFilename的返回值
    Dim csvFilePath As String
    Dim ws As Worksheet
    
    #If Mac Then
        selectedFile = MacScript("return POSIX path of (choose file of type {""public.comma-separated-values-text""} default location (path to desktop folder))")
    #Else
        selectedFile = Application.GetOpenFilename( _
            FileFilter:="CSV Files (*.csv), *.csv", _
            Title:="Select a CSV File", _
            MultiSelect:=False)
        
        If selectedFile = False Then selectedFile = ""
    #End If

    If selectedFile <> "" Then
        csvFilePath = CStr(selectedFile)
        Set ws = ThisWorkbook.Sheets.Add
        
        With ws.QueryTables.Add(Connection:="TEXT;" & csvFilePath, Destination:=ws.Range("A1"))
            .TextFileParseType = xlDelimited
            .TextFileCommaDelimiter = True
            .Refresh
        End With
        
        MsgBox "数据已成功从 " & csvFilePath & " 导入", vbInformation
    Else
        MsgBox "未选择任何文件。", vbExclamation
    End If
    
    Set ws = Nothing
End Sub

额外检查项 #

• 确认工作表按钮的宏关联正确：右键按钮 > 指定宏 > 选择ImportCSV
• Mac用户需在系统偏好设置中给Excel授权：安全性与隐私 > 隐私 > 文件与文件夹/自动化，勾选Excel

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