Здравствуйте.

Не получается решить следующую задачу.

Задача. Есть шаблон, хранимый в файле excel. В access этот шаблон открывается, заполняется, после чего, его нужно выгрузить в готовую существующую книгу.

Решаю так.
1. Открываю шаблон.

    Set xlApp = CreateObject("Excel.Application")
    xlApp.WindowState = xlMaximized
    xlApp.Visible = True
    xlApp.DisplayAlerts = False
    xlApp.ErrorCheckingOptions.NumberAsText = False
    xlApp.Workbooks.Open gstrScrewSheetXlsLocal
    Set xlWb = xlApp.ActiveWorkbook
    Set xlWsSheet = xlWb.Worksheets(1)
    xlApp.ErrorCheckingOptions.NumberAsText = False
    
    xlWsSheet.Activate
    xlApp.ActiveWindow.WindowState = xlMaximized

2. Открываю книгу, в которую необходимо сделать выгрузку.

    Set xlApp2 = CreateObject("Excel.Application")
    xlApp2.WindowState = xlMaximized
    xlApp2.Visible = True
    xlApp2.DisplayAlerts = False
    xlApp2.ErrorCheckingOptions.NumberAsText = False
    xlApp2.Workbooks.Open gstrBookXlsLocal
    Set xlWb2 = xlApp.ActiveWorkbook
    xlApp.ErrorCheckingOptions.NumberAsText = False
    
   xlApp2.ActiveWindow.WindowState = xlMaximized

3. Пытаюсь сохранить шаблон в открытую книгу.

    xlApp.Sheets(1).Select
    xlApp.Selection.Copy Before:=xlApp1.Workbooks(gstrBookXls).Sheets(1)

Но, выдаётся ошибка "Application-defined or object-defined error".

Попытка выгрузить "вручную" показывает, что открытые программно excel-файлы не "видят" друг друга. Т.е., если на ярлыке выгружаемого листа выбрать переместить/скопировать, то в "Переместить выбранные листы в книгу" не будет видна вторая книга. Если здесь же открыть один из уже открытых файлов "вручную", то он становится видим другими файлами.

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

http://www.sql.ru/forum/1151326/sohranenie-excel-lista-v-knigu