用於探索驅動器的開放源代碼VBA

我有一個vba代碼，用戶需要在其中提供文件的路徑。我知道客戶端需要處理很多文件，輸入路徑效率不高，可能會引入錯誤。我想知道，如果有人知道我在哪裏可以找到一個VBA代碼，將打開一個窗口（面板或無用），其中用戶可以指向正確的文件（如我們在90％的應用程序中打開文件時）謝謝你的幫助用於探索驅動器的開放源代碼VBA

來源

2013-07-29 user2497624

你可以;

Dim file As String 
With Application.FileDialog(3) 
    .InitialFileName = "c:\xxx\" 
    .Filters.Add "Text Files", "*.txt", 1 
    .Show 
    If (.SelectedItems.Count) Then 
     file = .SelectedItems(1) 
    End If 
End With 

MsgBox file

來源

2013-07-29 13:19:29

非常感謝。最後一件事，我應該使用的文件通常是excel文件（.xls或.xlsx）。我只需要使用filters.Add函數添加接受的擴展？ – user2497624

是的，這就是你需要做的。 –

如果可能，最後一件事是，當我點擊取消按鈕時彈出一個錯誤。在我的vba代碼中，我設置了一個if條件來檢查文件是否爲空。然而，「錯誤1004抱歉，我們無法找到，它可能被重命名，移動或刪除」。有沒有一種方法可以在不彈出錯誤的情況下取消代碼的執行？ – user2497624

用於探索驅動器的開放源代碼VBA

回答

相關問題