1 - aynı gün içinde birden fazla kodu calistirirsaniz ne olacak eski verileri silip yeniden mi ekleyecek yoksa bugüne ait kayıt var yeniden eklenemez mi diyecek?
2 - bu 3 sorguyu birleştirmek daha uygun olmaz mı?
3 - DoCmd.TransferSpreadsheet yöntemi işinize yaramıyor mu?
Not: bilgisayar erişimim kısıtlı olduğundan geç cevap verebilirim
Yeni sayfa oluşturma kodu aşağıdaki gibi düzenlenebilir
Dim objexcel As Excel.Application
Dim wbexcel As Excel.Workbook
Dim objsheet As Excel.Worksheet
Set objexcel = New Excel.Workbook
Set wbexcel = objexcel.Workbooks.Open(FileName) ' ActiveWorkbook.Sheets.Add ("Test")
Set objsheet = wbexcel.Sheets.Add
objsheet.Name = date