Baska bir dosyaya ulasmak

[iggydarsa]

Selamlar,

masaustunde "dosyalarim" adinda bir klasor ve icinde Book1.xls ve Book2.xls adinda iki dosya var. Amacim, Book2'de bir makro yaratmak ve bu makro da Book1'deki sayfalarin adlarini Book2'de Sheet1!A1 'inde baslayarak alt alta yazacak.

Bu mumkunmu?
Saygilar.

 

[Levent Menteşoğlu]

Aşağıdaki kodu deneyin.

[vb:1:aa61d7a9b6]Sub sayfaisimleri()
Application.ScreenUpdating = False
Workbooks.Open Filename:=ActiveWorkbook.Path & "\book1.xls"
Workbooks("book2.xls").Activate
For a = 1 To Workbooks("book1.xls").Sheets.Count
c = c + 1
Cells(c, 1) = Workbooks("book1.xls").Sheets(a).Name
Next
Workbooks("book1.xls").Close
End Sub
[/vb:1:aa61d7a9b6]

 

[iggydarsa]

Cok guzel olmus leventm, tam istedigim gibi
Eline saglik
Tesekurler