Kod ile Tablo ismi öğrenme

[yelgecak]

Arkadaşlar S.a herkeze

Sitede ve google'de "tablo ismi öğrenme" diye aradım fakat bi sonuca ulaşamadım.

VBA ile tablo ismini nasıl öğrenebilirim.

Kapalı dosyadan veri al ile dosyayı sayfama çekiyorum, her dosyayı çektiğimde tablo ismi değişiyor, bunun için tablo ismini hücreye yazdırmam gerekiyor.

teşekkürler.

 

[Necdet]

Merhaba,

Aşağıdaki kodları kendinize göre uyarlayınız.

Sub FindAllTablesOnSheet()
'http://www.jkp-ads.com/articles/Excel2007TablesVBA.asp
    Dim oSh As Worksheet
    Dim oLo As ListObject
    Set oSh = ActiveSheet
    For Each oLo In oSh.ListObjects
        Application.Goto oLo.Range
        MsgBox "Tablo Adı : " & oLo.Name & _
            Chr(10) & _
              "Adresi : " & oLo.Range.Address
    Next
End Sub

 

[yelgecak]

Hocam çok teşekkürler ellerinize sağlık