
Merhaba Exceldeki tabloları toplu olarak tek Excel dosyasında tabloları sayfa olarak excele aktarmak istiyorum örnek form çalışması aşağıda acces dosyasını seçtikten sonra excele aktarma butonu eklemek istiyorum nasıl yapabiliriz
DoCmd.TransferDatabase acImport, "Microsoft Access", [Metin8], acTable, "Analiz", "Analiz", False
DoCmd.TransferSpreadsheet acExport, 10, "Analiz", "Analiz", True, ""
DoCmd.DeleteObject acTable, "Analiz"
MsgBox ("Analiz Tablosu Aktarıldı")
DoCmd.TransferDatabase acImport, "Microsoft Access", [Metin8], acTable, "Dersler", "Dersler", False
DoCmd.TransferSpreadsheet acExport, 10, "Dersler", "Dersler", True, ""
DoCmd.DeleteObject acTable, "Dersler"
MsgBox ("Dersler Tablosu Aktarıldı")
DoCmd.TransferDatabase acImport, "Microsoft Access", [Metin8], acTable, "Konular", "Konular", False
DoCmd.TransferSpreadsheet acExport, 10, "Konular", "Konular", True, ""
DoCmd.DeleteObject acTable, "Konular"
MsgBox ("Konular Tablosu Aktarıldı")
DoCmd.TransferDatabase acImport, "Microsoft Access", [Metin8], acTable, "Notlar", "Notlar", False
DoCmd.TransferSpreadsheet acExport, 10, "Notlar", "Notlar", True, ""
DoCmd.DeleteObject acTable, "Notlar"
MsgBox ("Notlar Tablosu Aktarıldı")