Private Sub Komut6_Click()

Dim exceldosyasi As Object

Set exceldosyasi = CreateObject("Excel.Application")

With exceldosyasi

.Workbooks.Open FileName:=CurrentProject.Path & "\deneme.xlsx"

.Cells(2, 3).Value = Me.AdSoyad

.Cells(4, 3).Value = Me.Cep

.Cells(6, 4).Value = Me.Ev_Tel

.Sheets("tel").PrintOut

.Workbooks.Close 'Burasını ekleyiniz...................................................

End With



End Sub