خروجی اکسس به اکسل با فرمتی مرتب

[Mohsen0025]

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

[karasystem]

سلام

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

Dim xl As Excel.Application



Private Sub Command1_Click()



    Set xl = New Excel.Application



    With xl



        .Workbooks.Add

        .Worksheets(1).Name = "تست"

        Call .ActiveSheet.Range("A1").CopyFromRecordset(Adodc1.  Recordset)

        .Visible = True



    End With



End Sub

[ایلیا آخوندزاده]

با این کد آیا میشه اندازه فیلد های excel رو تظیم کرد؟

[Mohsen0025]

با عرض سلام،،
خودم همچین کدی دارم یه چند تا دیگه هم دارم اما یا به صورت نا مرتب میریزن تو اکسل یا همینطوری هرچی که تو اکسس هست رو همه رو جمع میکنن و میریزن تو اکسل!!!! میخوام فقط همونی که توصفحه هست بره تو اکسل یا خودم انتخاب کنم بگم این فیلد یا این یکی و...
تشکر

[ایلیا آخوندزاده]

Dim oExcel As ObjectDim oBook As Object
Dim oSheet As Object





Set oExcel = CreateObject("Excel.Application")

Set oBook = oExcel.Workbooks.Add

Dim RS As Long

RS = Adodc1.Recordset.RecordCount

ReDim DataArray(1 To RS, 1 To 3) 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("meli_code")







Adodc1.Recordset.MoveNext

Next

Set oSheet = oBook.Worksheets(1)

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





oSheet.Range("A1 :c1").Value = Array("äáã æ äáã ÎÇäæÇϐí", "ÊÇÑíÎ ËÈÊ", "˜Ïãáí")







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



oBook.SaveAs "c:\report.xls"

oExcel.Quit

Adodc1.Recordset.MoveFirst





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

[ایلیا آخوندزاده]

کد ها به ترتیب از لاین 4 تا 39 میباشد.