ترحيل requête من أكسس إلى ملف اكسل مهيأ مسبقا

[Abouwadia]

المرجو منكم شرح كيفية ترحيل requête من الأكسس إلى ملف اكسل مهيأ مسبقا وجزاكم الله خيرا 

[SEMO.Pa3x]

تفضل:

DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel12Xml, "Table Or Query Name", "C:\Users\Orbit\Desktop\a.xlsx", -1, "Name WorkSheet"

 

[صالح حمادي]

في ٢‏/٦‏/٢٠٢١ at 11:27, SEMO.Pa3x said:

تفضل

السلام عليكم

دكتورنا هذا الكود يقوم بالتصدير لمف أكسل جديد دون التحكم في شكله

و هذا الكود يمكننا من إرسال بيانات إلى ملف أكسل موجود لأي خلية و في أي ورقة نشاء

On Error Resume Next

    Dim xlApp As Object  'Excel.Application
    Dim xlWB As Object   'Excel.Workbook
    Dim xlWs As Object   'Excel.Sheet
    Dim curPath As String
    
    curPath = CurrentProject.Path & "\1988.xlsx"    'مسار ملف الأكسل

    'open excel template
    Set xlApp = CreateObject("Excel.Application")
    xlApp.Visible = False   'True
    
    Set xlWB = xlApp.Workbooks.Open(curPath)
    Set xlWs = xlWB.Worksheets(1)   ' 1 هو رقم الورقة في ملف الأكسل
       
    xlWs.Cells(3, 2).Value = "2020/2021"    ' 3 رقم السطر   و 2 هي رقم العمود
    xlWB.Save
    xlApp.Quit

    Set xlWs = Nothing
    Set xlWB = Nothing
    Set xlApp = Nothing
    MsgBox "انتهت المهمة بنجاح"