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瀏覽並選擇

回答

相關問題