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中的文件路径

1 个答案: