On Error GoTo ExAcHata
  '-------------------------------------------------
  Dim yol, deger As String
  yol = Application.CodeProject.Path 'excel dosyasının kaydedileceği yol
  deger = "ayd yapı" 'excel dosyasının ve sayfasının adı
  Kill yol & deger & ".xls" 'excel dosyasının varsa sil
  '-------------------------------------------------
  ExAc = False
  Set ExC = New Excel.Application
  ExC.Visible = True
  Set ExW = ExC.Workbooks.Add
  Set ExS = ExW.Worksheets(1)
  ExAc = True
      '-------------------------------------------------
With ExC
.Sheets("Sayfa2").Delete 'sayfa sil
.Sheets("Sayfa3").Delete 'sayfa sil
.Sheets("Sayfa1").Name = deger 'sayfa adı
ExC.Application.ActiveWorkbook.SaveAs FileName:=yol & deger & ".xls"
End With
  '-------------------------------------------------
  Exit Function
ExAcHata:
  ExAc = False
  Set ExC = Nothing