查找文件并在 vba 中获取文件路径

Question

我正在处理一个访问数据库，我想创建一个按钮来打开一个文件资源管理器，用户可以在其中查找文件，当他们单击它时，路径将被保存。

从数据库的角度来看，我的公司与许多供应商合作，每个供应商都以不同的格式（pdf、excel、word 等）向我们发送价格。所以我希望数据库的用户能够查找供应商，并轻松访问他们的价格（其中一些每季度更改一次，因此只需更改文件而不是将价格放入数据库并更新更容易它在那里）。

如有任何帮助，我们将不胜感激。

Answer 1

试试这个....

Sub sheet_dialogue_box()

Dim intChoice As Integer
Dim strPath As String


Application.FileDialog(msoFileDialogOpen).AllowMultiSelect = False

intChoice = Application.FileDialog(msoFileDialogOpen).Show

If intChoice <> 0 Then
    strPath = Application.FileDialog(msoFileDialogOpen).SelectedItems(1)
    Application.Workbooks.Open (strPath)
End If

End Sub

查找文件并在 vba 中获取文件路径

looking up a file and getting the file path in vba

database

ms-access

vba