VBA浏览并选择

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

我能得到它在细胞中添加我需要它，但它时，它被点击它不会打开文件或路径VBA浏览并选择

来源

2017-12-02 Daniel K

https://stackoverflow.com/questions/9476268/filedialog-doesnt-work?answertab=oldest#comment17467925_9476268我用这个代码，但我需要的完整路径添加到文件 –

[问] - 请解释你想要做什么，什么不工作。 – Andre

嗨安德烈，我想链接到共享驱动器的文件。一旦它被添加到记录中。另一个人可以点击链接并打开文件。由于将要通过的项目数量，我无法使用附件。它目前显示文件名，但我无法打开它。我认为它只是添加文件名而不是路径。 –

请仔细阅读本：Debugging VBA Code
学习如何浏览代码并检查变量。

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

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

在这里看到：Open Hyperlinks in Access

来源

2017-12-03 09:02:32 Andre

VBA浏览并选择

回答

相关问题