ThisWorkbook kullanımı

[selo1234]

Yazığım macrodaki pivot tablosunda aşağıdaki kod geçiyor.

"[TOSÜP_Ver_2.XLS]SEKTOR_BAZLI_RAPOR!R1C1"

Dosyanın ismi değiştiğinde doğal olarak çalışmıyor. Bunu önlemek için, TOSÜP_Ver_2.xls adı yerine Thisworkbook tanımını nasıl yapabilirim. Çeşitli syntax ları denedim ama hata veriyor.
Desteğiniz için şimdiden teşekkürler

 

[ozgretmen]

ActiveWorkbook.Name kodunu kullanabilirisniz.

 

[Ayhan Ercan]

Dosya ismi neyse onu yazın..

 

[selo1234]

Amacımı, kullanacağım noktayı tam ifade edemedim sanırım, aşağıda verdiğim pivot tablo da Tabledestination olarak geçiyor.
Thisworkbook dan sonra sheet ismi ve hücre ismini girmem gerekiyor.
Bu kodu nasıl çevirebilirim acaba?

ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
"ANADB!A:N").CreatePivotTable TableDestination:= _
"[TOSÜP_Ver_2.XLS]SEKTOR_BAZLI_RAPOR!R1C1", TableName:="Pivot_ozet1", _
DefaultVersion:=xlPivotTableVersion10