Seri Şekilde Köprü Oluşturmak

[anfield]

İyi Akşamlar.

Benim bi sorum olacak. Flash disk içerisindeki bi klasör içerisinde Bir excel dosyam ve bir klasörüm var. Bu klasör içerisinde de pdf dosyalarım var. Yaklaşık 10.000 adet falan. Ben excel dosyamda her satıra, sutun sutun bu yaklaşık 10.000 adet pdf ile ilgili açıklamalarımı ( pdf içerisindeki bilgilerle alakalı ) ekliyorum. sutundan birini köprü için kullanıyorum. Bu işlemi her işlem için ayrı ayrı değilde seri şekilde yapabilirmiyim... Mesela excel de özellikleri bitirdikten sonra zaten bu pdfleri sıralı şekilde girdiğim için aynı sıraya denk geleceğinde tutup sündürme tarzı bi sistem var mı. Yardımcı olursanız sevinirim.....

 

[Murat OSMA]

Dosya yolunu değiştirerek deneyiniz;

Sub Köprüle()
    Dim Rky As Object, dosyam As Object, fso As Object
    Dim yol As String
    Dim i As Integer
    
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set Rky = CreateObject("Scripting.FileSystemObject")
    yol = "S:\PDFLER"
    Set dosyam = Rky.GetFolder(yol)
    
    For i = 1 To Sayfa1.Range("A65536").End(3).Row
        If fso.FolderExists(dosyam) Then
            ActiveSheet.Hyperlinks.Add Anchor:=Sayfa1.Cells(i, 1), _
            Address:=dosyam & "\" & Sayfa1.Cells(i, 1) & ".pdf"
        End If
    Next i
    
    i = Empty
    yol = vbNullString
    Set fso = Nothing: Set dosyam = Nothing: Set Rky = Nothing
End Sub

 

[anfield]

nasıl olacak hata veriyo ama

 

[anfield]

Arkadaşlar kısa sürede yetiştirmem gerek bu konuda bilgisi olan yardım etsin

 

[anfield]

Bi Fikri olan varmı

 

[muygun]

Merhaba;
Alternatif olsun. Eki deneyin.
İyi çalışmalar.

Not:Kodlar alıntıdır.

 

[anfield]

Harika.... Gerçekten çok ama çok teşekkür ederim. Ellerine sağlık... Çok büyük bi dertten kurtardın beni... Süpersin Valla