Question

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

Answer 1

您可以通过vba使用InputBox

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

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

Answer 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)

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

2 个答案: