هل من حل لنسخ بيانات الداتا جريد

ده مثال بسيط حتى لا اثقل كاهل الاخوة الاعضاء

من خلاله اتمنى من المحترفين ايجاد طريقه اقدر انسخ بيانات الداتا جريد ثم لصقها فى ملف اكسيل

شكرا للاعضاء المهتمين بمشكلتى

datagrid1.rar

السلام عليكم

ضع الكود التالي في أمر النسخ أو التصدير

On Error GoTo errxcel
Dim i, j, k, l As Integer
Dim xlo As Object
Set xlo = CreateObject("Excel.Application")
DoEvents
xlo.Visible = True
xlo.workbooks.Add
xlo.Range("A1:F1").Font.Bold = True
xlo.Range("A1:F1").Font.Size = 10

i = Adodc1.Recordset.RecordCount
j = DataGrid1.Columns.Count
For k = 0 To j - 1
	   xlo.workbooks(1).sheets(1).Cells(l + 1, k + 1) = DataGrid1.Columns(k).Caption
Next k
l = 0
Adodc1.Recordset.MoveFirst
Do While Not Adodc1.EOFAction
For k = 0 To j - 1
	   DataGrid1.Col = k
	   xlo.workbooks(1).sheets(1).Cells(l + 2, k + 1) = DataGrid1.Text
Next k
Adodc1.Recordset.MoveNext
l = l + 1
Loop
Exit Sub

errxcel:

بالتوفيق

مش عارف اقولك ايه

لان كلمه شكرا قليله والله

يقول المولى عز وجل ان الله ف عون العبد مادام العبد ف عون اخيه

شكرا اخى العزيز وجعل اهتمامك بالاخرين فى ميزان حسناتك