خروجی اکسل از دیتا گرید

سلام دوستان اگ امکانش هس این کد رو یکم توضیح بدید ممنون میشم من میخام اطلاعات دیتا گرید رو ازش خروجی اکسل بگیرم این کد رو پیدا کردم اما هیچی اشنایی باهاش ندارم ممنون
دیتاگریدم نامش : datagrid3 هست و با adodc4 هم وصل میشم دیتامم اکسس هستش .اگ این کد رو با این اسمها مطابق کنید ممنون میشم:لبخندساده:

Private Sub cmdexcel_Click()

Dim oExcel As Object

Dim oBook As Object

Dim oSheet As Object

  

  

Set oExcel = CreateObject("Excel.Application")

Set oBook = oExcel.Workbooks.Add

  

Dim DataArray(1 To 500, 1 To 5) As Variant

  

Dim r As Integer

Dim NumberOfRows As Integer

NumberOfRows = Adodc1.Recordset.RecordCount

Adodc1.Recordset.MoveFirst

  

For r = 1 To NumberOfRows

DataArray(r, 1) = Adodc1.Recordset.Fields("name")

DataArray(r, 2) = Adodc1.Recordset.Fields("Date")

DataArray(r, 3) = Adodc1.Recordset.Fields("address")

DataArray(r, 4) = Adodc1.Recordset.Fields("Work")

DataArray(r, 5) = Adodc1.Recordset.Fields("Details")

  

Adodc1.Recordset.MoveNext

Next

Set oSheet = oBook.Worksheets(1)

oSheet.Range("A1:E1").Font.Bold = True

  

  

oSheet.Range("A1 :E1").Value = Array("ID", "Date", "address", "Work", "Details")

  

  

  

oSheet.Range("A2").Resize(NumberOfRows, 5).Value = DataArray

  

oBook.SaveAs "C:\Report.xls"

oExcel.Quit

Adodc1.Recordset.MoveFirst

MsgBox "Report File Saved", 64, "Info"

  

End Sub

اگه از من میشنوی از کامپونت VSFlexGridاستفاده کن خروجی اکسل بصورت مستقیم با یه تکیه خط کد رو داره بدون دردسر

گریدت رو vs flexgrid استفاده کن خودش داره بسیار راحت انجام میشه و امکانات بسیار زیادتری هم داره که مجذوبش میشی

vsflexgrid با اینکه امکانات خوبی داره ولی با unicode مشکل داره اطلاعات فارسی رو کامل بر نمی گردونه باید با پسوند xls ذخیره کنی نه پسوند xlsx اول فایل اکسل رو تولید می کنید بعد آدرس همون فایل رو میدین به تابع Savegrid تا براتون تبدیل کنه

سلام من یه سورس مناسب برای انتقال اطلاعات دیتا گرید اکسس به اکسل براتون توی ضمیمه میزارم.
با آرزوی موفقیت:لبخندساده: