Экспорт нескольких таблиц из Excel в Access

[mirawoo]

Друзья, можно ли из Аксессе импортировать в Эксель одновременно несколько таблиц в разные экселевские файлы? На пример, 10 городов - 10 таблиц - необходимо экспортировать в 10 файлов для рассылки.
Заранее спасибо!

[Am1r]

можно ))

давно делал но это не совсем то, но

вот код:

Sub test()
Dim ExcelApp As Object, ExcelWorkbook As Object, ExcelSheet As Object
Set ExcelApp = CreateObject("Excel.Application")
ExcelApp.Workbooks.Open "C:\test2.xls" ' открываем файл в который будет произведена запись, его можно менять в зависимости от задачи
Set ExcelWorkbook = ExcelApp.Workbooks(1)
Set ExcelSheet = ExcelApp.Workbooks(1).Worksheets(3)

Set rstSpis = CurrentDb.OpenRecordset("Табл1") ' Из какой таблицы будем считывать данные

k = 1
j = 1

rstSpis.MoveFirst
With ExcelSheet
Do Until rstSpis.EOF
For i = 1 To rstSpis.Fields.Count - 1
ExcelSheet.Cells(k, i + 10).Value = rstSpis.Fields(i).Value ' производится запись в ячейки
Next i
k = k + 1
rstSpis.MoveNext

Loop
ExcelApp.ActiveWorkbook.Save
ExcelApp.Quit
End With

End Sub

с учебой напряг, если не к спеху, то чуть по позже могу доделать до твоего варианта.
Если разберешься то можешь и сам переделать ;-)