VBA：导入xls以允许用户指定要导入的xls

Question

使用Access 2010 ...

我正在尝试编写/查找执行以下步骤的脚本：

1. 运行脚本
2. 对话窗口打开（主要是Windows资源管理器），允许用户导航到并选择要导入的xls
3. 用户选择xls
4. Access将此xls导入名为Import
的表中
5. 脚本结束

我找到了一个允许打开文件资源管理器窗口的代码段：

    Dim f    As Object
    Set f = Application.FileDialog(3)
    f.AllowMultiSelect = False
    f.Show

但是我无法弄清楚如何将其加入到以下内容中：

    DoCmd.TransferSpreadsheet acImport, 10, "Import", "FILEPATH", True, ""

我非常感谢任何帮助。非常感谢。