Klasörden excele dosya almak

[search77]

Saygı değer arkadaşlar merhaba,

Masa üstümde C:\Desktop\Link diye bir klasörüm var, bu dosya içinde 1.html, 2.html, 3.html ...... n.html şeklinde bir sürü dosyam var, ayrıca bu klasöre her gün .html uzantılı dosyalar ekliyorum. Her eklediğim excele de eklenmeli.

Bu dosyaları bir macro ile aynı isimle ve linkli şekilde A kolonunda aşağı uzayacak şekilde excele alıp excel içinden açmak istiyorum, yani excelde bu dosyanın örneğin 1.html dosyasına tıkladığımda açılsın gibi

Çok uğraştım ama yapamadım, Data dan connection ile içeri aldım, hyperlink ile macro yaptım ama çalışmadı

Yardımcı olabilecek arkadaşlara şimdiden çok çok teşekkür ederim. Saygılar

 

[search77]

Arkadaşlar ,
Aşağıdaki kodu buldum, aslında işimi görüyor

Bunun A1 den değilde A5 hücresinden başlayarak işlemi yapmasını nasıl sağlarım, teşekkürler

Sub LinkEkle()

Dim i As Long

Application.ScreenUpdating = False

For i = 1 To Cells(Rows.Count, "A").End(3).Row
Range("A" & i).Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="C:\Users\SS\Desktop\PDF\" & Cells(i, "A") & ".pdf"
Next i

Application.ScreenUpdating = True

MsgBox "Link Verilmiştir...."

End Sub

 

[Asri]

Arkadaşlar ,
Aşağıdaki kodu buldum, aslında işimi görüyor

Bunun A1 den değilde A5 hücresinden başlayarak işlemi yapmasını nasıl sağlarım, teşekkürler

Sub LinkEkle()

Dim i As Long

Application.ScreenUpdating = False

For i = 1 To Cells(Rows.Count, "A").End(3).Row
Range("A" & i).Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="C:\Users\SS\Desktop\PDF\" & Cells(i, "A") & ".pdf"
Next i

Application.ScreenUpdating = True

MsgBox "Link Verilmiştir...."

End Sub

Bu şekilde dener misiniz?

Sub LinkEkle()
Dim i As Long
Application.ScreenUpdating = False
For i = 5 To Cells(Rows.Count, "A").End(3).Row
    Range("A" & i).Select
    ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="C:\Users\SS\Desktop\PDF\" & Cells(i - 4, "A") & ".pdf"
Next i
Application.ScreenUpdating = True
MsgBox "Link Verilmiştir...."
End Sub

 

[search77]

Üstad çok teşekkürler