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

[kama2222]

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

[فاطمه وطن دوست]

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

[dell816]

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

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

[فاطمه وطن دوست]

سلام

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

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

[dell816]

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

[فاطمه وطن دوست]

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

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

[dell816]

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

[فاطمه وطن دوست]

اینم نمونه!

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

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

Microsoft Activex Data Object 2.8 Library

Microsoft Excel 9.0 Object Library

[dell816]

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

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

[فاطمه وطن دوست]

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

[dell816]

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

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

[فاطمه وطن دوست]

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

[dell816]

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

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

[dell816]

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

[dell816]

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

[فاطمه وطن دوست]

سلام

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

[dell816]

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

[فاطمه وطن دوست]

موفق باشید.