OLE Excel как шаблон

Среда, 21 Февраля 2018 г. 13:27 + в цитатник

Уважаемый форум,

Поиск не помог. Проблема: есть ОЛЕ-объект на форме, в котором открывается Эксель-файл. Этот файл служит шаблоном для программного заполнения. Есть код, который вызывает этот файл для заполнения. Проблема в ругани Аксесса (ошибка 1004) для кода:

Dim xl As Excel.Application, xbk As Excel.Workbook, xsh As Excel.Worksheet

        Me.OLEBound806 = DLookup("Stencil", "ACC_Stencils", "Sten_Name='Inspection_Form_2018'")                       <= ищет правильный шаблон в таблице
        Me.OLEBound806.Action = acOLEActivate
        Set xl = GetObject(Class:="Excel.Application")
        Set xbk = xl.ActiveWorkbook
        xbk.SaveAs "C:\Users\" & Environ("USERNAME") & "\Desktop\test.xlsx", xlNormal               <= вот тут ругается
        xbk.Close
        Set xbk = Excel.Workbooks.Open("C:\Users\" & Environ("USERNAME") & "\Desktop\test.xlsx")
.... заполняем сохраненную копию...