Access中的宏在导入文件时提示输入文件路径

【问题标题】：Macro in Access to prompt for file path when importing fileAccess中的宏在导入文件时提示输入文件路径
【发布时间】：2015-05-04 15:59:03
【问题描述】：

我正在尝试使用宏将 Excel 电子表格导入 Access 2013。有没有办法让宏提示文件路径而不是静态文件路径？我想为用户提供一个消息框或类似的东西来定义他们想要导入的每个 Excel 文件的文件路径。有这个宏吗？

【问题讨论】：

标签： ms-access vba ms-access-2013

【解决方案1】：

你可以通过 vba 使用 InputBox

Dim p As String
p = InputBox("please input file path")
Debug.Print p

我不确定如何仅使用宏来实现相同的目标。

【讨论】：

【解决方案2】：

使用此功能：

Function seleccionarArchivo()
     Set f = Application.FileDialog(3)
     f.AllowMultiSelect = False
     f.Filters.Clear
     f.Filters.Add "Todos", "*.*"

     If f.Show Then
         seleccionarArchivo = f.SelectedItems.Item(1)
     End If
     Set f = Nothing
End Function

要尝试，请放置一个按钮并将其添加到点击事件中：

      MsgBox (seleccionarArchivo)

【讨论】：