Как это можно сделать.
Я что-то в ступор вошел.

Может кто знает.

Ругается на первую же строку

Теперь добавил, но все равно пишет

Subscript out of range

Dim WB As Excel.Workbook, WS As Excel.Worksheet
Set WB = Excel.Workbooks.Open("c:\Report1.xls")
Set WS = WB.Worksheets(8)
WS.Cells(2, 5) = 666
WB.Close
WB.Save

3 это сколько листов. Это я понял

А последние 3 что такое.

Прошу прощенья, но пора уходить.

Спасибо са поддержку.

Когда отрабатывает скрипт, я приложения не вижу, только вопрос:

Сохранить изменеия?

А когда отключаю WB save и close вообще ничего не происходит.

Поэтому и спрашиваю, какая роль последних трех строк.

Попробовал

Dim WB As Excel.Workbook, WS As Excel.Worksheet
Set WB = Excel.Workbooks.Open("c:\Report1.xls")
Set WS = WB.Worksheets(1)
WS.Cells(2, 5) = 666
WB.Save
WB.Close

Теперь никаких сообщений, никаких приложений.

Как открыть этот долбанный файл?

Я так написал:

Dim xl As Excel.Application
Set xl = CreateObject("Excel.Application")
xl.Visible = True
Dim WB As Excel.Workbook, WS As Excel.Worksheet
Set WB = Excel.Workbooks.Open("c:\Report1.xls")
Set WS = WB.Worksheets(1)
WS.Cells(2, 5) = 666
WB.Save
WB.Close

1 раз отработал.
Затем открывается Excel пустой. При этом показывается окно о не нахождении сервера. БРЕД!

Огромное спасибо - работает.
Вот только столкунулся вот с чем:

Экспортирую таблицу в Excel с 5 колонками и тутже открываю для простмотра - работает

Затем изменяю таблицу и в ней 7 колонок. Вываливается ошибка.

Помогите разобраться:

Dim stDocName As String
DoCmd.SetWarnings False
stDocName = "Запрос1"
DoCmd.OpenQuery stDocName
stDocName = "Запрос2"
DoCmd.OpenQuery stDocName
DoCmd.SetWarnings True
__________________________________________
DoCmd.TransferSpreadsheet acExport, 5, _
"Таблица1", "C:\Report1.xls", True
__________________________________________

Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet
Set xlApp = CreateObject("Excel.Application")
Set xlBook = xlApp.Workbooks.Open("C:\Report1.xls")
Set xlSheet = xlBook.Worksheets(1)
xlApp.Visible = True
'xlApp.Quit
'Set xlApp = Nothing

Ошибка:

Too many Fields defined

на строку

__________________________________________
DoCmd.TransferSpreadsheet acExport, 5, _
"Таблица1", "C:\Report1.xls", True
__________________________________________

Это при условии, что в экспортируемой таблице колонок больше, чем в существующем файле Report1.xls.

Конечно хотелось бы файл не убивать, так как в нем один раз шаблон настроил и все.

Еще мысли есть?