ник: EVGEN
Приблизительно вот так выглядит код VBA:
Dim xlApp As Object, xlBook As Object, xlSheet As Object
Set xlApp = CreateObject("Excel.Application")
Set xlBook = xlApp.Workbooks.Open("Имя файла")
Set xlSheet = xlBook.Worksheets(1)
xlSheet.Activate ' работаем с листом Excel
... ' здесь цикл добавления записей из таблицы
xlBook.Sheets.Add ' добавляем новый лист Excel
... ' здесь цикл добавления записей из другой таблицы
... и т. д.
xlBook.Save
xlSheet.Application.Quit
Set xlSheet = Nothing
Set xlBook = Nothing
Set xlApp = Nothing