VBA 浏览和选择

Posted 2023-05-06

【中文标题】VBA 浏览和选择

【英文标题】：VBA Browse and Select

【发布时间】：2017-12-02 18:06:25

【问题描述】：

Private Sub bBrowse_Click()

  Const msoFileDialogFilePicker As Long = 3
Dim objDialog As Object

Set objDialog = Application.FileDialog(msoFileDialogFilePicker)

With objDialog
    .AllowMultiSelect = True
    .Show
    If .SelectedItems.Count = 0 Then
        MsgBox "No file selected."
    Else
        Me.[File Link].Value = Dir(.SelectedItems(1))
    End If
End With

End Sub

我能够让它添加到我需要它的单元格中，但是当它被点击时它不会打开文件或路径

【问题讨论】：

***.com/questions/9476268/…我正在使用此代码，但我需要添加文件的完整路径

How to Ask -- 请说明您想要做什么，以及什么不起作用。

您好 Andre，我正在尝试将文件链接到共享驱动器。一旦它被添加到记录中。其他人可以单击链接并打开文件。由于要通过的物品数量，我无法使用附件。它现在显示文件名，但我无法打开它。我认为它只添加文件名而不是路径。

对于未来的问题：不要在 cmets 中添加相关信息，而是编辑您的帖子并将其添加到那里。

【参考方案1】：

请阅读：Debugging VBA Code 学习如何单步调试代码和检查变量。

.SelectedItems(1) 已包含完整路径，但Dir(.SelectedItems(1)) 仅返回文件名。所以删除Dir()。

现在要从记录中实际打开文件，您需要额外的代码，例如在File Link 文本框旁边的按钮中，或其 DblClick 事件中。

请看这里：Open Hyperlinks in Access