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

[mahdi.fa]

سلام دوستان اگ امکانش هس این کد رو یکم توضیح بدید ممنون میشم من میخام اطلاعات دیتا گرید رو ازش خروجی اکسل بگیرم این کد رو پیدا کردم اما هیچی اشنایی باهاش ندارم ممنون
دیتاگریدم نامش : 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

[isaac23]

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

[h1and1saman]

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

[m.4.r.m]

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

[siyn71]

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