اكسپورت داده هاي گريد به اكسل؟

[A_1397]

چطوري مي تونم داده ها رو كه داخل گريد نشون داده شده رو منتقل كنم به يه فايل اكسل؟

[mohammadriano]

سلام سوال واضح نیست
اگه از ole استفاده کردید و در ole از اکسل استفاده می کنید این کار رو انجام بدین
OLEname.object.worksheets(1).range("A1") = "tehran" 'o

[A_1397]

سلام. ديتابيسم SQL هستش كه برنامم با يه QUERY يه سري از ركوردها را داخل يه گريد نمايش ميده. حالا ميخام به Button بزارم كه با كليك روي اون ركوردهايي كه داخل گريد نمايش داده شدند تبديك به يه فايل اكسل بشن.

[mffaymffay]

باید یک فانکشن بنویسی تا بتوانی دادههای داخل گرید را بصورت تک تک و رکورد به رکورد به یک فایل اکسل منتقل نمایید

[sehm67]

سلام دوست عزیز

ببین این کار شما رو راه میندازه

http://up.iranblog.com/images/imayurv2yy3jixelo43m.rar

[joker_pok]

اینم Export اطلاعات به اکسل بروح الشو ببر


Private Sub Command1_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("Info_ID")
DataArray(r, 2) = Adodc1.Recordset.Fields("Name")
DataArray(r, 3) = Adodc1.Recordset.Fields("Family")
DataArray(r, 4) = Adodc1.Recordset.Fields("Code_meli")
DataArray(r, 5) = Adodc1.Recordset.Fields("phone")

Adodc1.Recordset.MoveNext
Next
Set oSheet = oBook.Worksheets(1)
oSheet.Range("A1:E1").Font.Bold = True

oSheet.Range("A1 :E1").Value = Array("˜Ï ÓåÇã ÏÇÑ", "äÇã", "äÇã ÎÇäæÇϐí", "˜Ï ãáí", "ÊáÝä")

oSheet.Range("A2").Resize(NumberOfRows, 5).Value = DataArray
cmds.Filter = "ÝÞØ ÏÑ ÝÇíá ǘÓá ÐÎíÑå ÔæÏ (*.xls)"
cmds.FileName = "Export.xls"
cmds.ShowSave
oBook.SaveAs cmds.FileName

Adodc1.Recordset.MoveFirst
MsgBox "ÇäÊÞÇá ÏÇÏå åÇ Èå ǘÓá ÈÇ ãæÝÞíÊ ÇäÌÇã ÔÏ", 64, "Info"
oExcel.Quit
End
End Sub


Dim DataArray(1 To 500, 1 To 5) As Variant
تو این قسمت عدد 1 تا 500 تعداد رکورد Export هستش و 1 تا 5 تعداد فیلد های دیتابیست که می تونی عوض کنی

oSheet.Range("A1 :E1").Value = Array("˜Ï ÓåÇã ÏÇÑ", "äÇã", "äÇã ÎÇäæÇϐí", "˜Ï ãáí", "ÊáÝä") این قسمت می تونی نام فیلد هاتو به فارسی عوض کنی .مثلا : "نام"و"نام خانوادگی")و.....

بقیه اعداد رو هم باید بسته به دلخواه خودت عوض کنی .