مشکل در خروجی اکسل VSFlexGrid

[samiasoft]

سلام دوستان

من یه جدولی درVSFlexGrid بصورت مقابل دارم.

http://samisoft.ir/1/images/5yf6O.gif
وقتی میخوام ازش خروجی اکسل بگیرم بطور زیر تبدیل میشه :

http://samisoft.ir/1/images/WTA9q.gif

یعنی ردیف هارو درست مقادیرشونو خروجی نگرفته و بجاش 00/01/1900 زده. اخه چرا؟!!

[isaac23]

On Error Resume NextSet 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, 1).Value = "ÑÏíÝ"
objExcl.ActiveSheet.Cells(1, 2).Value = "äÇã ÝÑæÔäÏå"
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 = "äÇã ÎÑíÏÇÑ"
objExcl.ActiveSheet.Cells(1, 11).Value = "åÒíäå ÊæÒíä"
objExcl.ActiveSheet.Cells(1, 12).Value = "ÌãÚ ˜á"


Set rs = New ADODB.Recordset
rs.Open "select * from T1 ORDER BY fo", CN, adOpenKeyset
J = 3
Do Until rs.EOF
For i = 0 To rs.Fields.Count - 3
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

[samiasoft]

در مورد این کدهایی که قرار دادی یه توضیحی میدی؟

[isaac23]

فایل آموزش پیوست شد.

http://s4.picofile.com/file/8178433234/Acc_To_Ex.rar.html

[samiasoft]

فایل آموزش پیوست شد.

http://s4.picofile.com/file/8178433234/Acc_To_Ex.rar.html

بابت فایلی که قرار دادید سپاسگزارم.

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

درحالی که اطلاعات رو بصورت دستی من داخلVSFlexGrid وارد میکنم و نمیخوام که اینارو دوباره داخل اکسس ذخیره کنم . برای همین ایا روشی وجود ندارد که اطلاعاتی که داخل VSFlexGrid نمایش داده میشن بطور مستقیم وارد اکسل بشن؟ (بدون اینکه جایی ذخیره بشن)

[vbhamed]

سلام
نمونه پروژه به همراه دیتابیس رو بزارید