[haniblack]

وعليكم السلام
أخي الكريم هذا الكود يقوم بسحب البيانات من قاعدة بيانات مربوطة بالاكسس على برنامجك وفتحها على ملف اكسل

أرجوا ان تستفيد منه



    Dim xl As Excel.Application
Dim fldCount As Integer
Dim recCount As Long
Dim iCol As Integer
Dim iRow As Integer

   Set xl = New Excel.Application
   With xl
       .Workbooks.Add
       .Worksheets(1).Name = "Export Daily"
                     ' Copy field names to the first row of the worksheet
               fldCount = Adodc1.Recordset.Fields.count
                For iCol = 1 To fldCount
                   xl.Cells(1, iCol).value = Adodc1.Recordset.Fields(iCol - 1).Name
               Next
     
       
       Call .ActiveSheet.Range("A2").CopyFromRecordset(Adodc1.Recordset)
       .Visible = True


   End With
Else
  
End If