Есть программка....она там считает, в конце ей нужно скинуть в эксель результаты в нужный шаблон...т.е.
- открыть файл-шаблон,
- вписать в нужные клетки всяк фигню,
- переименовать файлик в другой отличный от шаблона (дабы он оставался девственно нетронут)
- освободить память
сейчас у меня так:
- создаю новый эксель-файлик
- кучей кода я вырисовываю шаблон каждый раз (чтобы не плевался ошибками о всяких переполнениях и пр. - отключаю вообще все ошибки с продолжением выполнения)
- сохраняю в нужное название
- освобождаю память
Пример того что сейчас:
Public Function CreateXlBook(sWbName As String, sDirName) As Boolean
Dim objXLApp As Object
Dim objWbNewBook As Object
CreateXlBook = False
Set objXLApp = CreateObject("Excel.Application")
If objXLApp Is Nothing Then Exit Function
'тут вырисовываю страницу и пихаю данные по ячейкам
objXLApp.SheetsInNewWorkbook = 1
Set objWbNewBook = objXLApp.Workbooks.Add
If objWbNewBook Is Nothing Then Exit Function
If vbNullString = Dir(sDirName, vbDirectory) Then Exit Function
objWbNewBook.SaveAs (App.Path + "\" + Text1.Text + ".xls")
objXLApp.Visible = True
CreateXlBook = True
Set objWbNewBook = Nothing
objXLApp.Quit
Set objXLApp = Nothing
CreateXlBook = True
End Function