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

Posted 2023-04-19

【中文标题】Access中的宏在导入文件时提示输入文件路径

【英文标题】：Macro in Access to prompt for file path when importing file

【发布时间】：2015-05-04 15:59:03

【问题描述】：

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

【参考方案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)