راهنمايي در مورد اكسپورت داده هاي گريد داخل اكسل

[A_1397]

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

[joker_pok]

از اینکه خودم تونستم به این کد دست پیدا کنم و یاد بگیرم میزارم تو هم استفاده کن بهترین تبدیل رو انجام میده

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

[vbhamed]

سلام

بهتره از vsFlexGrid استفاده كني، خودش امكان ايجاد خروجي اكسل داره