Makromu geliştirme hakkında yardım

[td877]

Merhaba,

Aynı dosyadaki kapalı excel dosyalarından şu makro ile veri çağırabiliyorum.

DefObj C, E-F, R
Sub vericek()

Range("A:D").ClearContents
Set Rky = CreateObject("adodb.connection")
Set FSO = CreateObject("scripting.filesystemobject")
Set cat = CreateObject("adox.catalog")
For Each evn In FSO.getfolder(ThisWorkbook.Path).Files
If Not evn.Name Like "*" & ThisWorkbook.Name Then
Rky.Open "Provider=Microsoft.ace.oledb.12.0;Data Source=" & _
evn & ";Extended Properties=""Excel 12.0;hdr=no"""
cat.activeconnection = Rky

Set RS = Rky.Execute("Select * from [" & İCMAL$ & "$A1:D500]")

Range("A65536").End(3)(2, 1).CopyFromRecordset RS

RS.Close: Rky.Close
End If
Next evn
Set RS = Nothing: Set Rky = Nothing: Sorgu = ""
Set FSO = Nothing: Set evn = Nothing
End Sub

Çektiği her satırdaki verilerin F sütununa, veri çekilen excel dosyasının adını yazdırmayı nasıl yapabilirim. Yardımlarınız için çok teşekkür ederim.

Dosyadan Çekilen 1. sütun Veri | Dosyadan Çekilen 2. sütun Veri | Dosyadan Çekilen 3. sütun Veri | veri çekilen dosyanın adı.

gibi.

 

[Korhan Ayhan]

Deneyiniz.

Set RS = Rky.Execute("Select F1,F2,F3,F4,'','" & FSO.GetBaseName(evn) & "' From [" & İCMAL$ & "$A1:D500]")

Benzer bir kodlama... https://www.excel.web.tr/threads/vba-ile-tablo-birlestirme.203882/

 

[td877]

Deneyiniz.

Set RS = Rky.Execute("Select F1,F2,F3,F4,'','" & evn & "' From [" & İCMAL$ & "$A1:D500]")

Benzer bir kodlama... https://www.excel.web.tr/threads/vba-ile-tablo-birlestirme.203882/

Korhan bey çalıştı ama yol yazıyor direkt adını yazdırabilir miyim acaba?

 

[Korhan Ayhan]

Küçük bir ekleme yaptım. Deneyiniz.

 

[td877]

Küçük bir ekleme yaptım. Deneyiniz.

Tam istediğim gibi çalıştı. Çok teşekkür ederim Korhan bey.

Başarılar.

 

[td877]

Küçük bir ekleme yaptım. Deneyiniz.

Korhan bey bu macroyu onceden belirlenmis tabloda calistirabilir miyiz? Tablonun en sonuna yapistiriyor bu haliyle.

Yani veri cekilecek alan aslinda tablo ici olsa?