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, ""
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, ""