سئوال راجع به vsflexfrid(فوری)

با سلام خدمت اساتید محترم.
چطور می توانم اطلاعات flexgrid را بدون اتصال به شئی ado مستقیماً ارسال به اکسل کنم.
یعنی دستوری که رکوردهای خود flex را داخل اکسل نمایش دهد.
((با تشکر فراوان))

FG.SaveGrid "c:\book1.xls", flexFileExcel

فایل خروجی اکسل را خراب نشان میدهد
لطفا به ضمائم توجه فرمایید.

میشه راهنمایی کنید ؟

سلام

مطمئنید که تو دستور زیر نوع فایل رو اکسل تعیین کردید؟

FG.SaveGrid "c:\book1.xls", flexFileExcel

دقیقا همین دستور را اجرا کردم ولی فرمت خروجی همانطور که در ضمائم مشاهده میکنید ، است.
موقع باز کردن فایل اکسل پیغام زیر را میدهد:
This File Is Not Recognizable Format

نقل قول:

---

نوشته شده توسط dell816

دقیقا همین دستور را اجرا کردم ولی فرمت خروجی همانطور که در ضمائم مشاهده میکنید ، است.
موقع باز کردن فایل اکسل پیغام زیر را میدهد:
This File Is Not Recognizable Format

---

امکانش هست کل برنامه( منظورم کد + بانکِ ) رو بذارید؟

نه متاسفانه دیتا بیس بسیار حجیم است.
چیزی به نظرتان نمیرسد.
ایا میشود با توجه به دستور select و بدون vsflex اطلاعات را به اکسل انتقال داد؟
خیلی لطف می کنید.

اینم نمونه!

یه مقاله در مورد کار با فایل هایی از نوع Excel و Word هم براتون ضمیمه کردم.

البته این دو مورد رو از بخش رفرنس ها به پروژتون اضافه کنید.

Microsoft Activex Data Object 2.8 Library

Microsoft Excel 9.0 Object Library

خیلی ممنون از توجهتان.

در مورد مشکل من راهی به نظرتان نمیرسد؟
vb6+sql server
آیا باید به رفرنسها چیزی اضافه کنم.
در مورد فایل خروجی اکسل میگویم؟

فکر کنم ......
کانکشن برنامه ای که گذاشتم رو باید تغییر بدید!

ببخشید
منظورتان را متوجه نشدم.

میشه بیشتر توضیح بدید؟

شما تو برنامتون برای برقراری با (بانک sql - جدول) از چه دستوری استفاده می کنید؟

فایل ضمیمه شد.

لطفا اگر امکان دارد ایمیلتان را بدهید

کانکشن را بررسی کردید؟

خیلی ممنون از راهنماییتون.
آیا میشه sheet مورد نظر را right2Left کرده وcell ها را به اندازه اعداد ریخته شده تغییر سایز داد.

سلام

با کدوم روش به جواب رسیدید؟

Dim X_Excel As Excel.Application
Dim X_WorkSheet As Excel.Worksheet
Dim i As Integer
Dim j As Integer

Set X_Excel = New Excel.Application
Set X_WorkBook = X_Excel.Workbooks.Add
Set X_WorkSheet = X_WorkBook.Worksheets(1)

With dg
For i = 0 To .Rows - 1
For j = 0 To .Cols - 1
X_WorkSheet.Cells(i + 1, j + 1) = .TextMatrix(i, j)
Next j
Next i
End With

X_WorkBook.SaveAs FileName:="D:\Ali.xlsx"

X_Excel.Visible = True

موفق باشید. http://upload.iranblog.com/6/1246757033.gif