sOutput = CurrentProject.path & "\dokumanlar" & "\" & "VESTEL-EXCEL_" & Format(Now(), "dd.mm.yyyy") & ".xlsx"
 
....
...
   Loop
 
rst.Close
wbk.Save
wbk.SaveAs CurrentProject.path & "\dokumanlar" & "\" & "VESTEL-EXCEL" & [Forms]![FRM_SIPARIS00]![DIS_IRSNO], xlCSV
wbk.Close True
Set wks = Nothing
...
...

Dim appExcel As Excel.Application
   Dim wbk As Excel.Workbook
   Dim wks As Excel.Worksheet
 
   Dim sTemplate As String
   Dim sTempFile As String
   Dim sOutput As String
 
   Dim dbs As DAO.Database
   Dim rst As DAO.Recordset
   Dim sSQL As String
   Dim lRecords As Long
   Dim iRow As Integer
   Dim iCol As Integer
   Dim iFld As Integer
 
 
   Const cStartRow As Byte = 14
   Const cStartColumn As Byte = 2
 
   DoCmd.Hourglass True
 
   Application.SetOption "Error Trapping", 0
 
   sTemplate = CurrentProject.path & "\sablonlar" & "\" & "orjinal.xlsx"
   sOutput = CurrentProject.path & "\dokumanlar" & "\" & "VESTEL-EXCEL_" & Format(Now(), "dd.mm.yyyy") & ".xlsx"
   If Dir(sOutput) <> "" Then Kill sOutput
   FileCopy sTemplate, sOutput
 
   Set appExcel = Excel.Application
   Set wbk = appExcel.Workbooks.Open(sOutput)
    Set wks = appExcel.Worksheets("Sayfa1")
 
 
   sSQL = "select * from VESTELİRSALİYEEXCEL"
   Set dbs = CurrentDb
   Set rst = dbs.OpenRecordset(sSQL, dbOpenSnapshot)
   If Not rst.BOF Then rst.MoveFirst
 
   iCol = cStartColumn
   iRow = cStartRow
 
   Do Until rst.EOF
      iFld = 0
      lRecords = lRecords + 1
      Me.Repaint
 
      For iCol = cStartColumn To cStartColumn + (rst.Fields.Count - 1)
         wks.Cells(iRow, iCol) = rst.Fields(iFld)
 
         If InStr(1, rst.Fields(iFld).Name, "Date") > 0 Then
            wks.Cells(iRow, iCol).NumberFormat = "dd.mm.yyyy"
         End If
 
         wks.Cells(iRow, iCol).WrapText = False
         iFld = iFld + 1
      Next
 
      wks.Rows(iRow).EntireRow.AutoFit
      iRow = iRow + 1
      rst.MoveNext
   Loop
 
rst.Close
wbk.Save 'ekledim
wbk.SaveAs CurrentProject.path & "\dokumanlar" & "\" & "VESTEL-EXCEL" & [Forms]![FRM_SIPARIS00]![DIS_IRSNO], xlCSV, , , , , , , , , , True 'ekledim
wbk.Close True ' ekledim..
Set wks = Nothing
Set wbk = Nothing
Set appExcel = Nothing
Set rst = Nothing
Set dbs = Nothing
DoCmd.Hourglass False
 
MsgBox (lRecords & " adet kayıt aktarılmıştır."), vbInformation, "bilgi"