انتقال اطلاعات Datagrid به اکسل به صورت فیلتر شده

[hamed_vb]

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

[isaac23]

از کامپونت VSFlexGrid استفاده کن به یک خط کد می تونی اطلاعات روبه اکسل انتقال بدی.


VSFlexGrid1.SaveGrid CommonDialog1.InitDir & CommonDialog1.FileName & ".xls", flexFileExcel

[hamed_vb]

بله دوست عزیز متوجه هستم ولی من برای دیتا گرید میخوام وگرنه مطمئناً برای سهولت کارم از کامپوننت پیشنهادی شما استفاده می کردم

[isaac23]

من قبلا از این دستور برای انتقال اطلاعات به اکسل استفاده می کردم . چک کنید شاید بکارت اومد.


On Error Resume Next
Set CN = New ADODB.Connection ''''''ÏÓÊæÑ ÐÎíÑå ÏÑ Ç˜Ó
CN.Provider = "Microsoft.Jet.OLEDB.4.0"
CN.ConnectionString = App.Path & "\Dbase.mdb"
CN.Open
''''''''''''''''''''''
Dim i, J, rtot, m
Dim ctot(1 To 4)
'rtot = 0

Dim objExcl As Excel.Application
Set objExcl = New Excel.Application
objExcl.Visible = True
objExcl.SheetsInNewWorkbook = 1
objExcl.Workbooks.Add
objExcl.ActiveSheet.Cells(1, 3).Value = "ÊÇÑíÎ ß"
objExcl.ActiveSheet.Cells(1, 4).Value = "ÔãÇÑå ß"
objExcl.ActiveSheet.Cells(1, 5).Value = "äÇã ÈÇäß"
objExcl.ActiveSheet.Cells(1, 6).Value = "ãÈáÛ ß"
objExcl.ActiveSheet.Cells(1, 7).Value = "ÔÑÍ ß"
objExcl.ActiveSheet.Cells(1, 8).Value = "äæÚ ß"
objExcl.ActiveSheet.Cells(1, 9).Value = "æÖÚíÊ ß"
objExcl.ActiveSheet.Cells(1, 10).Value = "ÊæÖíÍÇÊ"
Set rs = New ADODB.Recordset
rs.Open "select * from T1 ORDER BY Tch", CN, adOpenKeyset
J = 3
Do Until rs.EOF
For i = 2 To rs.Fields.Count - 1
objExcl.ActiveSheet.Cells(J, i + 1).Value = rs.Fields(i)
If i > 2 Then
tot = crtot + rs.Fields(i)
End If
Next
objExcl.ActiveSheet.Cells(J, i + 1).Value = rtot
rs.MoveNext
J = J + 1
Loop
Dim k
k = 1
rs.MoveFirst
Do Until rs.EOF
For k = 1 To 4
ctot(k) = ctot(k) + rs.Fields(k + 2)

Next
rs.MoveNext
Loop

[hamed_vb]

سلام دوست عزیز من از این کد های شما سر در نیاوردم چون دستخط تعریف دیتا بیس من با شما فرق داره لطفا یه چیز ساده در حد 2 تا فیلد که انتقال داده بشه به اکسل پست بزارید فقط لطفا در نظر داشته باشید من فقط میخوام اطلاعات فیلتر شده به اکسل منتقل بشه
آیا واقعا کسی نیست در زمینه انتقال اطلاعات از دیتاگرید به اکسل کمکم کنه