Kapalı Excel Dosyasındaki Sayfa İsimlerini Getirme

[rders1905]

Merhaba,
Kapalı durumda olan Kitap1.xlsm dosyasındaki sayfa isimlerini Kitap2 deki Sayfa1 e yazdırmak istiyorum. Bu konuda nasıl bir yol izlemem gerektiği hakkında yardımcı olabilir misiniz?

saygılarımla,

 

[Erdem Akdemir]

Merhaba,

Tagdaki kodu kullanabilirsiniz.

Sub deneme()

Set cat = CreateObject("ADOX.Catalog")
Set con = VBA.CreateObject("adodb.Connection")

yol = Application.GetOpenFilename(FileFilter:="Excel Dosyaları (*.xls*), *.xls*", Title:="Lütfen bir dosya seçiniz...")

con.Open "Driver={Microsoft Excel Driver (*.xls, *.xlsx, *.xlsm, *.xlsb)};DBQ=" & yol & ""

cat.ActiveConnection = con

For Each syf In cat.tables
x = x + 1
a = Replace(syf.Name, "$", "")
Cells(x, "a") = a
Next
End Sub