Çözüldü Klasör içerisindeki pdflerin listesini excele aktarma (Linkli) Yardım

[hasanyaprak]

Merhaba,

Ekte çalışan bir makrom var. Her seferinde sabit bir klasörden çekiyorum ama kullandığım makro browse olarak açılıyor ve klasörü tanıtmak zorunda kalıyorum. E1 hücresine girdiğim yoldan almasını istersem ne yapmalıyım. Browse özelliğinin iptal olmasını istiyorum ama yine linkli olarak kullanmalıyım. Yardımınız için teşekkür ederim şimdiden.

 

[tahsinanarat]

Bunu deneyiniz.

Sub Kopru_Ekle()
    Dim KlasorYolu As String
    Dim Dosya As String
    Dim X As Long

    KlasorYolu = Range("E1").Value

    If KlasorYolu = "" Then
        MsgBox "Klasör yolunu kontrol ediniz!", vbExclamation
        Exit Sub
    End If

    Range("A:A").Clear
    Range("A1") = "Dosya Bağlantıları"
    
    Dosya = Dir(KlasorYolu & "\*.*")

    While Dosya <> ""
        DoEvents
        X = Cells(Rows.Count, 1).End(3).Row + 1
        ActiveSheet.Hyperlinks.Add Anchor:=Cells(X, 1), _
        Address:=KlasorYolu & "\" & Dosya, TextToDisplay:=Dosya
        Dosya = Dir
    Wend

    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[hasanyaprak]

Bunu deneyiniz.

Sub Kopru_Ekle()
    Dim KlasorYolu As String
    Dim Dosya As String
    Dim X As Long

    KlasorYolu = Range("E1").Value

    If KlasorYolu = "" Then
        MsgBox "Klasör yolunu kontrol ediniz!", vbExclamation
        Exit Sub
    End If

    Range("A:A").Clear
    Range("A1") = "Dosya Bağlantıları"
   
    Dosya = Dir(KlasorYolu & "\*.*")

    While Dosya <> ""
        DoEvents
        X = Cells(Rows.Count, 1).End(3).Row + 1
        ActiveSheet.Hyperlinks.Add Anchor:=Cells(X, 1), _
        Address:=KlasorYolu & "\" & Dosya, TextToDisplay:=Dosya
        Dosya = Dir
    Wend

    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

Hocam teşekkür ederim, çok işime yaradı. Exceli boş yüklemişim kusura bakmazsın umarım.