Klasör İçindeki Dosyalara Otomatik Köprü Oluşturma.

[simetri.]

Merhabalar.

C sürücüsünün içindeki Data adlı klasörün içinde bulunan .xls

dosyalarına köprü ile bağlanmak istiyorum ( C:\Data\.....xls )

"Çalışma" kitabımın 3. satırdan başlamak kaydı ile C sütunundaki kitapları

üstteki dosya yolunda arayacak şayet bulur ise E sütunundaki verilere

(harf yada rakam) köprü atayacak.

Konuya vakıf değerli uzmanlarımızın yardımını bekliyorum. Teşekkürler.

 

[Levent Menteşoğlu]

Aşağıdaki prosedürü deneyin.

Sub kopruekle()
Set nesne = CreateObject("Scripting.FileSystemObject")
yol = ("C:\data\")
For a = 3 To 
[liste!c65536].End(3).Row
If nesne.FileExists(yol & Sheets("liste").Cells(a, "c") & ".xls") = True Then
Sheets("liste").Hyperlinks.Add Anchor:=Sheets("liste").Cells(a, "e"), Address:=yol & Sheets("liste").Cells(a, "c") & ".xls" _
        , TextToDisplay:="" & Sheets("liste").Cells(a, "e") & ""
End If
Next
End Sub

 

[simetri.]

Çok teşekkür ederim. Sayın Levent Hocam.

Ellerinize sağlık.

 

[anit35]

köprü oluşturma

slm levent bey aşagıdaki köprü makrosu etteki dosya uyarlayamabilirmisiz
Sub kopruekle()
Set nesne = CreateObject("Scripting.FileSystemObject")
yol = ("C:\deneme\sedat")
For a = 3 To [liste!c65536].End(3).Row
If nesne.FileExists(yol & Sheets("liste").Cells(a, "c") & ".xls") = True Then
Sheets("liste").Hyperlinks.Add Anchor:=Sheets("liste").Cells(a, "e"), Address:=yol & Sheets("liste").Cells(a, "c") & ".xls" _
, TextToDisplay:="" & Sheets("liste").Cells(a, "e") & ""
End If
Next
End Sub

 

[anit35]

Klasör İçindeki Dosyalara Otomatik Köprü Oluşturma

Merhabalar.

C sürücüsünün içindeki Data adlı klasörün içinde bulunan .doc

dosyalarına köprü ile bağlanmak istiyorum ( C:\Data\.....doc )

"Çalışma" kitabımın 3. satırdan başlamak kaydı ile C sütunundaki kitapları

üstteki dosya yolunda arayacak şayet bulur ise E sütunundaki verilere

(harf yada rakam) köprü atayacak.

yardımını bekliyorum. Teşekkürler.
ARKADAŞLAR UGRAŞTIM CÖZÜMÜNÜ BULAMADIM EXCEL İÇİN UYARLANDIĞINDA YARDIMLARINI BEKLİYORUM

Sub kopruekle()
Set nesne = CreateObject("Scripting.FileSystemObject")
yol = ("C:\data\")
For a = 3 To [liste!c65536].End(3).Row
If nesne.FileExists(yol & Sheets("liste").Cells(a, "c") & ".doc") = True Then
Sheets("liste").Hyperlinks.Add Anchor:=Sheets("liste").Cells(a, "e"), Address:=yol & Sheets("liste").Cells(a, "c") & ".xls" _
        , TextToDisplay:="" & Sheets("liste").Cells(a, "e") & ""
End If
Next
End Sub