İsmi tam bilinmeyen dosyaya köprü oluşturmak

[engerex]

Merhaba,
Oluşturduğum bir excelde yaklaşık 160 dosyaya köprü atmam gerekiyor. Dosya yolları sabit. Sıkıntım dosya adının ilk 11 karakterini biliyorum.
Örnek dosya yolu : "C:\Dosyalar\0123456789Axyz.PDF"
"0123456789A" kısmı her satırda farklı ve bir kaç sol hücreden alıyorum, bunda sıkıntı yok. Ancak xyz kısmının uzunluğu ve içeriği değişken ve dosya isimlerini de tek tek tabloya girmek istemiyorum.

=KÖPRÜ("C:\Dosyalar\"&C2&"xyz"&.PDF")
xyz kısmına nasıl bir çözüm üretmeliyim ki köprüyü sorunsuz açabileyim?

Şimdiden teşekkürler.

 

[ÖmerBey]

Merhaba,
Makro ile yapılabilir, aşağıdaki makro kodunu deneyiniz. C sütünundaki veriye göre D sütununa köprü ekler. Kendi dosyanıza uyarlayınız.

Sub KOD()
Yol = "C:\Dosyalar\"
For a = 2 To Range("[COLOR="Blue"]C[/COLOR]65500").End(3).Row
    For Each d In CreateObject("Scripting.FileSystemObject").GetFolder(Yol).Files
        If d.Name Like Cells(a, "[COLOR="blue"]C[/COLOR]").Value & "*" Then
            Cells(a, "[COLOR="red"]D[/COLOR]").Formula = "=HYPERLINK(""" & d.Path & """)"
            Exit For
        End If
    Next
Next
End Sub

Problem oluşursa örnek dosya ekleyiniz, iyi çalışmalar...