Pobieranie nazwy pliku

Jeżeli chcesz na przykład zaimportować jakiś konkretny plik, a nie chcesz aby na sztywno wpisywać ścieżkę do kodu VBA – wtedy powinieneś skorzystać z tak zwanego File Picker’a.

Poniższy kod pozwala pobrać nazwę pliku oraz ścieżkę do pliku poprzez wskazanie go tzw. File Picker’em. Możemy filtrować jakie rozszerzenia mają być widoczne, aby przyspieszyć wyszukanie interesującego nas pliku.

Źródło: http://analystcave.com/vba-application-filedialog-select-file/

' Żródło:
' 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. Pola, których wypełnienie jest wymagane, są oznaczone symbolem *

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