Kapalı Dosyalardan Dosya İsimlerini Alma

[GeoScience]

Değerli Hocalarım ve Arkadaşlarım,

Derlediğim Kod ile kapalı dosyadan veri ve dosyanın adını alıyorum fakat bunların aynı satırda olmalarını başaramadım. Yardımlarınız için şimdiden teşekkür ederim, Saygılarımla.

 

[hamitcan]

Kodu bu şekilde değiştirin.

Private Sub CommandButton1_Click()

Dim DataBase As Workbook, sh As Worksheet
Dim kynk As Workbook

Dim fso As Object, xls As Object, yol1 As Object

Set sh = ThisWorkbook.Worksheets("DataBase1")
Set fso = CreateObject("scripting.filesystemobject")
Set yol1 = CreateObject("Shell.Application").BrowseForFolder _
                    (0, "Lütfen bir klasor seçin !", 1)

    
    If Not TypeName(yol1) = "Nothing" Then Set YolItem = yol1.self
    MyPath = YolItem.Path

    

    For Each xls In fso.GetFolder(MyPath).Files
    
             
Workbooks.Open (xls.Path)

Set kynk = ActiveWorkbook


'                    Range("A" & Rows.Count).End(xlUp).Offset(1, 0) = kynk.Name
                    sh.Range("B65536").End(xlUp)(2, 0) = kynk.Name
                    kynk.Sheets(1).Range("a1:b5").Copy
                    sh.Range("B65536").End(xlUp)(3, 1).PasteSpecial xlPasteValues
                    
                                        kynk.Close True

Next xls

Set sh = Nothing
Set fso = Nothing
Set kynk = Nothing

End Sub