[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
      Timer1.Enabled = False
      Frame1.Visible = False
  End With
Else

لكن اريده عندما اقوم بتحديدبعض البيانات داخل الجدول
ان يقوم بتصدير البيانات المحددة فقط وليش كل الجدول
مع العلم انني اعرف طريقة عمل تحديد والغاء التحديد
لكن احتاج الكود لتصدير المحدد فقط وشكرا لكم