Private Sub Komut30_Click()
On Error GoTo Err_Komut30_Click
Dim trz As Object
Set trz = CreateObject("Shell.Application"). _
           browseForFolder(0, "Klasör seçiniz...", 0)
If trz Is Nothing Then Exit Sub
Dim Kayit As New ADODB.Recordset
Dim Sayfa As Worksheet, UygExcel As Object, SW, SQ, SutSy As Long
Dim Kitap As Workbook
Set UygExcel = CreateObject("Excel.Application")
UygExcel.Visible = True
If UygExcel.Workbooks.Count = 0 Then Set Kitap = UygExcel.Workbooks.Add
Kayit.Open "select * from girisler ", CurrentProject.Connection, adOpenKeyset, adLockReadOnly
SutSy = Kayit.Fields.Count
Set Sayfa = UygExcel.Sheets(1)
Sayfa.Cells(1, 1).Value = "Giris bilgileri"
Sayfa.Cells(2, 1).Value = ""
Sayfa.Cells(3, 1).Value = "Tablonuz Asagidadir"
Kayit.MoveFirst
SW = 0
 
For SW = 1 To 4
Sayfa.Cells(5, SW).Value = Kayit.Fields(SW).Name
Next SW
SW = 6
Do Until Kayit.EOF
    For SQ = 0 To SutSy - 1
        Sayfa.Cells(SW, SQ + 1).Value = Kayit(SQ)
    Next SQ
    SQ = 0
Kayit.MoveNext
SW = SW + 1
Loop
Kayit.Close: Set Kayit = Nothing
 
Sayfa.SaveAs trz.Self.Path & "\" & Format(Now, "mm-yyyy-") & "girisler.xls"
Kitap.Close
UygExcel.Application.Quit
Set UygExcel = Nothing
Set Sayfa = Nothing
Set Kitap = Nothing
 
 MsgBox "Ýþlem Gerçekleþti"
Exit_Komut30_Click:
    Exit Sub
 
Err_Komut30_Click:
    MsgBox Err.Description
    Resume Exit_Komut30_Click
 
End Sub