Здравствуйте.
Я выполняю из модуля 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

вроде догадался - WB.Save

TransferSpreadsheet посмотрю. Это целиком запрос выгрузить? Идея хорошая, но у меня запрос перекрестный, а в нем поля не в нужной последовательности, а и в excel шаблон установленный. Поэтому и так нужно думать и так. Нет совсем легкого решения.

Но за напоминание об оптимальных способах спасибо