birden fazla excel.xls dosyasını birleştirme

[Korhan Ayhan]

Merhaba,

Birden fazla dosya birleştirildiği için sayfa isimleri çakışabilir.
Aynı sayfa ismi olursa hata verecektir. Bu durumda ne olmasını bekliyorsunuz?

 

[*Freeman]

Merhaba Korhan Bey,
Doğru söylüyorsunuz. Ancak bizim kullandığımız dosyalarda benzer isim olma olasılığı yok. Yapıya bu şekilde bir kod eklenebilir mi?
teşekkürler iyi çalışmalar.

Merhaba,

Birden fazla dosya birleştirildiği için sayfa isimleri çakışabilir.
Aynı sayfa ismi olursa hata verecektir. Bu durumda ne olmasını bekliyorsunuz?

 

[Korhan Ayhan]

NEXT satırının üstüne aşağıdaki satırı ekleyip deneyiniz.

Workbooks(ad).Sheets(Sheets.Count).Name =sadi

 

[*Freeman]

NEXT satırının üstüne aşağıdaki satırı ekleyip deneyiniz.

Workbooks(ad).Sheets(Sheets.Count).Name =sadi

Korhan Bey,
Süper bir etki oldu. Ellerinize sağlık. Emeği, desteği geçen herkese çok teşekkürler.