ник: osmor
Не использую раннее связывание, по этому тонкостей не знаю, но я бы попробовал так
Dim ExlDb As Excel.Application
Dim WrkBk As Workbook, WrkSht As Worksheet, _
Set ExlDb = New Excel.Application
Set WrkBk = ExlDb.Workbooks.Add
Set WrkSht = WrkBk.ActiveSheet
ExlDb.Visible = True
////////////////////////////////////////
........................................
ExlDb.activeWorkbook.Close
ExlDb.close
Set WrkSht = Nothing
Set WrkBk = Nothing
set ExlDb = nothing
|