ник: час
Dim ExlDb As New Excel.Application
Dim WrkBk As Workbook, WrkSht As Worksheet, _
Set WrkBk = ExlDb.Workbooks.Add
Set WrkSht = WrkBk.ActiveSheet
ExlDb.Visible = True
////////////////////////////////////////
........................................
ExlDb.activeWorkbook.Close
Set WrkSht = Nothing
Set WrkBk = Nothing