Wskazanie pliku czyli tzw. File Picker

Nie ma co się rozwodzić. Prosty kod pobierający ścieżkę i nazwę do wskazanego pliku przez użytkownika.

' http://analystcave.com/vba-application-filedialog-select-file/

Sub PobraniePliku()

Dim fDialog As FileDialog, result As Integer
Set fDialog = Application.FileDialog(msoFileDialogFilePicker)
     
'Optional: FileDialog properties
fDialog.AllowMultiSelect = False
fDialog.Title = "WSKAŻ PLIK..."
'fDialog.InitialFileName = "Computer"
'Optional: Add filters
fDialog.Filters.Clear
fDialog.Filters.Add "Baza danych Microsoft Access", "*.mdb"
fDialog.Filters.Add "Wszytskie pliki", "*.*"
 
'Show the dialog. -1 means success!
If fDialog.Show = -1 Then
   Debug.Print fDialog.SelectedItems(1)
End If

End Sub

 

Dodaj komentarz

Twój adres email nie zostanie opublikowany. Wymagane pola są oznaczone *

Witryna wykorzystuje Akismet, aby ograniczyć spam. Dowiedz się więcej jak przetwarzane są dane komentarzy.