如何修改Access VBA代码实现任意名称Excel文件的导入？

以下是修改后的代码，实现让用户通过对话框选择任意名称的Excel文件并导入：

Private Sub Command4_Click()
    Dim ffx As Object
    Dim selectedFilePath As String
    
    Set ffx = Application.FileDialog(3) ' 3代表文件选择对话框
    ffx.AllowMultiSelect = False
    ' 设置文件筛选，只显示Excel文件，避免用户选错格式
    ffx.Filters.Clear
    ffx.Filters.Add "Excel文件", "*.xlsx;*.xls"
    
    ' 先弹出对话框让用户选择文件
    If ffx.Show = True Then
        ' 获取用户选中的文件完整路径
        selectedFilePath = ffx.SelectedItems(1)
        ' 执行导入操作，使用用户选择的文件路径
        DoCmd.TransferSpreadsheet _
            TransferType:=acImport, _
            SpreadsheetType:=acSpreadsheetTypeExcel12Xml, _
            TableName:="Data_entry_import", ' 移除了原代码末尾的多余空格
            FileName:=selectedFilePath, _
            HasFieldNames:=True, _
            Range:="b1:s9000"
        MsgBox "文件导入成功！"
    Else
        MsgBox "未选择任何文件，导入已取消。"
    End If
    
    Set ffx = Nothing ' 释放对象
End Sub

关键修改说明 #

• 调整执行顺序：先触发文件选择对话框，确认用户选中文件后再执行导入操作，彻底解决原代码“先导入固定文件再弹框”的误导问题。
• 动态获取文件路径：通过ffx.SelectedItems(1)获取用户选中文件的完整路径，替代原代码中硬编码的"data_entry.xlsx"，支持任意文件名。
• 添加文件格式筛选：新增ffx.Filters设置，只显示Excel格式文件（.xlsx/.xls），降低用户选错文件的概率，适合IT支持匮乏的环境。
• 修正表名错误：移除原代码中"Data_entry_import "末尾的多余空格，避免因表名不匹配导致导入失败。

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