التصدير لاكسل وفق قالب معين

استخدم هذا الكود

    rs.Open "select  * from  اسم الجدول المراد تصديره", con, adOpenStatic, adLockReadOnly
    
    
    
    Dim objXLApp As Object
    Set objXLApp = CreateObject("Excel.Application")
    Dim objXLBook As Excel.Workbook

Set objXLBook = objXLApp.Workbooks.Open(Application.CurrentProject.Path & "\اسم ملف الاكسيل.xlt")
   
    Dim Worksheet As Object
    Set Worksheet = objXLBook.Worksheets("اسم ورقة الاكسيل")

'n1 اسم صف فى جدول الاستعلام المراد تصديره , sRow رقم الصف فى صفحة الاكسيل و sCol رقم الخلية'

Dim sRow As Integer, sCOl As Integer
sRow = 8
sCOl = 4
Do While Not rs.EOF
  Worksheet.Rows.Cells(sRow, sCOl) = rs!N1  
' عند الرغبة فى الانتقال لصف جديد 
If sRow > رقم صف الاكسيل Then
sCOl = رقم خلية جديدة
sRow = رقم صف جديد
End If

sRow = sRow + 1
rs.MoveNext
Loop

objXLBook.Saveas (Application.CurrentProject.Path & "\اكتب اسم ملف الاكسيل الذى سيخزن به .xls")


    objXLApp.Visible = True
End Sub