'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'Makra:Ładowanie nazw plików pdf do excela.
'
'Autor: Daniel Dąbrowski
'
'Zastosowanie: Program został stworzony na potrzeby osoby bedącej na samozatrudnieniu.
'Makra została stworzona do wyszukiwania plików pdf znajdujących się w wybranym folderze.
'Wyszukane nazwy plików są następnie wypisywane do pierwszej kolumny Arkusza1
'
'Opis Makra:
'W celu poprawnego działania programu należy załączyć standardową bibliotekę Microsoft Scripting Runtime
'Makra uruchamiana jest poprzez skrót klawiszowy Ctrl+Shift+W.
'Po uruchomieniu pojawia się okienko dialogowe. Należy kliknąć na wybrany
'folder następnie na dowolny plik znajdujący się w folderze.Ikonka wyboru zmieni się
'na "Możesz już kliknąć". Wartości zostaje wypisane do pierwszej kolumny. W nagłówku kolumny
'w komórce A1 znajduj się ścieżka do wybranego folderu.
'Przy ponownym uruchomieniu makra zawartość kolumny kolumny A jest kasowana.
'
'Uwagi: Makra była testowana wyłącznie na Excelu 2013 i 2016.
'
'
'By Daniel Dąbrowski, dabrowski.daniel@interia.pl
'
'Macro Description: This macro has been created for self-employed person.
'By using this code all pdf files can be found and add to excel Arkusz1 spreadsheet.
'
'
'How to Use:
'
'In order to use this code standard library Microsoft Scripting Runtime must be added .
'By pressing shortcut Ctrl+Shift+W an application open windows pops up. In open window
'find a proper folder and open it, then click on any file within folder. When file is clicked,
'open button changed caption from "Open" to "Możesz już kliknąć". Afterwards all pdf files names
'populate cells in first columns A. In first cell A1 folder name appears.
'
'
'Comments. Macro Has been tested on Excel 2013 and 2016.
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Sub PDFSearcher()

    Application.ScreenUpdating = False

    Dim Path As String
    Dim fso As Scripting.FileSystemObject
    Dim fil As Scripting.File
    Dim PDF As Scripting.Folder
    Dim fd As FileDialog
    Dim Count As Integer
    Dim Length As Integer
    Dim Fol As String

    Set fd = Application.FileDialog(msoFileDialogFilePicker)
    Set fso = New Scripting.FileSystemObject

    With fd
            .AllowMultiSelect = False
            .ButtonName = "Możesz już kliknąć "
            .Title = "Wybierz Folder PDF"
        If .Show = -1 Then ' if OK is pressed
            Fol = .SelectedItems(1)
        Else
            Exit Sub
        End If

    End With


    Length = Len(Fol)

    Path = Left(Fol, InStrRev(Fol, "\", Length))



    Set PDF = fso.GetFolder(Path)



    Worksheets("Arkusz1").Activate
    Worksheets("Arkusz1").Columns(1).ClearContents
    Range("A1").Value = Left(Fol, InStrRev(Fol, "\", Length) - 1)
    Range("A2").Activate

    Count = 1 'Zmienna służaca do sprawdzenia czy w folderze był plik pdf



    For Each fil In PDF.Files


                If Left(fso.GetExtensionName(fil.Path), 3) = "pdf" Then

                    ActiveCell.Value = fil.Name
                    ActiveCell.Offset(1, 0).Select
                    Count = Count + 1

                End If


    Next fil

    If Count = 1 Then

         MsgBox "W tym folderze nie ma żadnych plików pdf."

    End If


    Range("A2").Select
    Columns("A").AutoFit

    Set fso = Nothing
    Set fd = Nothing

    Application.ScreenUpdating = True

End Sub