27-03-17, 11:24 AM
السلام عليكم ورحمة الله وبركاته,,,
اخوتي. عندي كود لتصدير قاعدة البيانات الى ملف اكسل
هذا الكود!
لكن اريده عندما اقوم بتحديدبعض البيانات داخل الجدول
ان يقوم بتصدير البيانات المحددة فقط وليش كل الجدول
مع العلم انني اعرف طريقة عمل تحديد والغاء التحديد
لكن احتاج الكود لتصدير المحدد فقط وشكرا لكم
اخوتي. عندي كود لتصدير قاعدة البيانات الى ملف اكسل
هذا الكود!
كود :
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
ان يقوم بتصدير البيانات المحددة فقط وليش كل الجدول
مع العلم انني اعرف طريقة عمل تحديد والغاء التحديد
لكن احتاج الكود لتصدير المحدد فقط وشكرا لكم