ник: Scorpi
Добрый день, заполняю шаблон excel, хочу после сохранить:
Dim RecSet As DAO.Recordset
Dim xlApp As Object
Dim xlBook As Object
Dim SQL, nm As String
Set xlApp = CreateObject("Excel.Application")
Set xlBook = xlApp.Workbooks.Add("D:\VCNG\Profiles\IvanovaMA\import\otch1pk.xlt")
....
nm = "D:\import\Отчет за " & Replace(дата.Value, ".", "-") & ".xls"
xlBook.ActiveWorkbook.SaveAs Filename = nm
на последней строке вылазит ошибка ((( что неправильно?