Static exel As Object
Set exel = GetObject(,  "excel.application" )
With exel
n = .Workbooks.Count
For I =  1  To n
.ActiveWorkbook.Save
.ActiveWorkbook.Close
Next I

.Workbooks.Open ( "C:\Documents and Settings\Bigboss\Мои документы\Шаблоны базы\zapr.xlt" )
.ActiveWorkbook.SaveAs ( "Заправочная карточка_"  & DATE &  "_.xls" )

a1$ =  "a"  & LTrim(Str$(i1% -  1 ))
.Range(a1$).Formula = Forms!prosmotr!DATES
b1$ =  "b"  & LTrim(Str$(i1% -  1 ))
.Range(b1$).Formula =  ""
c$ = " c " & LTrim(Str$(i1% - 1 ))
.Range(c$).Formula = Forms!prosmotr!COL_OF_GAZOLINE

i1% = i1% +  1 


a0$ = "a " & LTrim(Str$(i1%))
.Range(a0$).Select
.Selection.EntireRow.insert
a1$ = " a " & LTrim(Str$(i1% - 1 ))
.Range(a1$).Formula = s1
b1$ = "b " & LTrim(Str$(i1% - 1 ))
.Range(b1$).Formula = s2
c$ = "c " & LTrim(Str$(i1% - 1 ))
.Range(c$).Formula = s3
d1$ = "d " & LTrim(Str$(i1% - 1 ))
.Range(d1$).Formula = s4
e1$ = "e " & LTrim(Str$(i1% - 1 ))
.Range(e1$).Formula = m
f$ = "f " & LTrim(Str$(i1% - 1 ))
.Range(f$).Formula = s5
i1% = i1% +  1 

GoTo  1 
 2  .Workbooks( 1 ).Activate
ss$ = LTrim(Str$(i1% -  1 )) & ": " & LTrim(Str$(i1% - 1 ))
For I =  1  To  2 
.Rows(ss$).Select
.Selection.Delete Shift:=- 4162 
Next I
b1$ = "b " & LTrim(Str$(i1% - 1 ))
.Range(b1$).Formula = "Дата:  " & DATE
.Range(" a5").Select
.ActiveWorkbook.Save

.Visible = True
End With