PDA

View Full Version : سئوال راجع به vsflexfrid(فوری)



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

فاطمه وطن دوست
چهارشنبه 05 فروردین 1388, 15:48 عصر
FG.SaveGrid "c:\book1.xls", flexFileExcel

dell816
پنج شنبه 28 خرداد 1388, 14:05 عصر
فایل خروجی اکسل را خراب نشان میدهد
لطفا به ضمائم توجه فرمایید.

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

فاطمه وطن دوست
جمعه 29 خرداد 1388, 17:43 عصر
سلام

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

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

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

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

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

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

فاطمه وطن دوست
شنبه 30 خرداد 1388, 18:08 عصر
اینم نمونه!

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

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




Microsoft Activex Data Object 2.8 Library


Microsoft Excel 9.0 Object Library

dell816
یک شنبه 31 خرداد 1388, 01:02 صبح
خیلی ممنون از توجهتان.

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

فاطمه وطن دوست
یک شنبه 31 خرداد 1388, 01:44 صبح
فکر کنم ......
کانکشن برنامه ای که گذاشتم رو باید تغییر بدید!

dell816
یک شنبه 31 خرداد 1388, 15:44 عصر
ببخشید
منظورتان را متوجه نشدم.

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

فاطمه وطن دوست
یک شنبه 31 خرداد 1388, 16:48 عصر
شما تو برنامتون برای برقراری با (بانک sql - جدول) از چه دستوری استفاده می کنید؟

dell816
سه شنبه 02 تیر 1388, 15:07 عصر
فایل ضمیمه شد.

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

dell816
پنج شنبه 04 تیر 1388, 08:55 صبح
کانکشن را بررسی کردید؟

dell816
چهارشنبه 10 تیر 1388, 22:00 عصر
خیلی ممنون از راهنماییتون.
آیا میشه sheet مورد نظر را right2Left کرده وcell ها را به اندازه اعداد ریخته شده تغییر سایز داد.

فاطمه وطن دوست
پنج شنبه 11 تیر 1388, 13:47 عصر
سلام

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

dell816
شنبه 13 تیر 1388, 09:47 صبح
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

فاطمه وطن دوست
شنبه 13 تیر 1388, 21:56 عصر
موفق باشید. http://upload.iranblog.com/6/1246757033.gif