VBA浏览并选择

  • Z时代
  • 2024-01-10
  • 分类：问答

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浏览并选择

回答：

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

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

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

在这里看到：Open Hyperlinks in Access

以上是 VBA浏览并选择 的全部内容， 来源链接： utcz.com/qa/257619.html

回到顶部