Здравствуйте.
Я выполняю из модуля Access заполнение таблицы в Excel.
Но не знаю, как сохранить изменения в файле, т.е. открываю excel файл, а там пусто, данных нет.
Догадываюсь, что нет в моей процедуре команды на сохранение изменений в файле.
Но не догадываюсь какой командой это сделать.

Помогите пожалуйста.

Sub ww()
Dim db As Database
Dim Rst As Recordset
Dim sFile As String
Dim XL As excel.Application, WB As excel.Workbook, WS As excel.Worksheet, oSel As excel.Range
Dim i As Integer
Dim j As Integer

i = 15
Set db = CurrentDb
Set Rst = db.OpenRecordset("Tabel", dbOpenDynaset) - в этом наборе записи, которые нужно перенести в шаблонный файл excel
'MsgBox Rst.Fields.Count
Set XL = CreateObject("Excel.Application")
ChDir Application.CurrentProject.Path

sFile = XL.GetOpenFilename("Excel,*.xls")
Set WB = XL.Workbooks.Open(sFile)
Set WS = WB.Worksheets("Табель") - это файл, в который нужно перенести записи
Do While Not Rst.EOF -открываю цикл по рекордсету
WS.Cells(i, 1) = i - 14 -заполняю нужные поля
WS.Cells(i, 2) = Rst!Name -заполняю нужные поля
WS.Cells(i, 3) = Rst!Tab1C -заполняю нужные поля
WS.Cells(i, 51) = Rst!Podr -заполняю нужные поля
WS.Cells(i, 41) = Rst!Total -заполняю нужные поля
For j = 1 To Rst.Fields.Count - 4 -заполняю нужные поля
WS.Cells(, 5 + j) = Rst.Fields(j)
Next j

i = i + 1
Rst.MoveNext перехожу к следующий записи
Loop
MsgBox "Готово!" & " " & i - 14

End Sub

http://www.sql.ru/forum/1209910/rabota-s-excel-iz-access