Access'ten kod ile Excel Sayfası silmek.

[omerceri]

Aşağıdaki kodlarla Access içinden, bir excel dosyası oluşturup, Access'teki VT tablosunu bu dosyaya bir sayfa olarak aktarıyorum. Excel dosyasında bir VT, birde Sayfa1 olarak iki sayfa oluşuyor, ben bu sayfalardan Sayfa1'i aşağıdaki kodlara ekleme yaparak Access içinden silmek istiyorum.

Dim ExcelSheet As Object
Set ExcelSheet = CreateObject("Excel.Sheet")
ExcelSheet.SaveAs Application.CurrentProject.Path & "\RAPOR.XLS"
ExcelSheet.Application.Quit
Set ExcelSheet = Nothing
DoCmd.TransferSpreadsheet acExport, 8, "VT", Application.CurrentProject.Path & "\RAPOR.XLS", True, ""

 

[modalı]

Sayın ömerceri,

Denemedim ama sanırım kod şöyle

ExcelSheet.sheets("Sayfa1").delete

İyi çalışmalar

 

[omerceri]

Sn Modalı önerinizi daha önce denemiştim. Belgelerim klasöründe .xlw uzantılı bir dosya oluşturuyor. Bunu önleyemedim.