автор Dim rs_ssp2 As ADODB.Recordset
Set rs_ssp2 = New ADODB.Recordset
rs_ssp2.ActiveConnection = cnn
rs_ssp2.CursorLocation = adUseClient
cmd.CommandType = adCmdStoredProc
cmd.CommandText = "sp_ssp2"
rs_ssp2.Open cmd, , adOpenDynamic, adLockOptimistic
Set objExcel = New Excel.Application
objExcel.Visible = True
objExcel.Workbooks.Open ("c:\Templates\ssp2.xls")
objExcel.Cells.ClearContents
For iCols = 0 To rs_ssp2.Fields.Count - 1
objExcel.Cells(1, iCols + 1).Value = rs_ssp2.Fields(iCols).Name
Next
objExcel.Range(objExcel.Cells(1, 1), _
objExcel.Cells(1, rs.Fields.Count)).Font.Bold = True
objExcel.Range("A2").CopyFromRecordset rs_ssp2
Range("A1:Z1").Select
Selection.AutoFilter
Rows("2:2").Select
ActiveWindow.FreezePanes = True
rs_ssp2.Close

При первом запуске все нормально, но когда запускаешь второй раз(не перегружая приложение), то выскакивает эта ошибка в выделенной строке. Что посоветуете? Пробовал к objExcell метод . Close, говорит, что нет такого.

И еще где можно посмотреть методы и свойства елселевскокго объекта, так как в привычном выпадающем списке его нет.

vkodor

Set objExcel = Nothing не помогает.

vkodorа ругается на какой строке?

Range("A1:Z1").Select