طریقه ارسال اطلاعات msflaxgirid به فایل اکسل؟؟؟

[ahp_online]

سلام
من چطوری می تونم اطلاعات msflaxgride رو به فایل اکسل برای پرینت گرفتن بفرستیم؟؟ من می خوام از همین روش استفاده کنم.لطفا اگر سورسی دارید بزارید.
تشکر

[محسن واژدی]

سلام علیکم
msflaxgride تابع مستقلی برای خروجی اکسل ندارد، چرا از vsflexgrid استفاده نمیکنید:

VSFlexGrid1.SaveGrid "c:\dlist.xls", flexFileExcel

موفق باشید

[ahp_online]

من با msflaxgride کار کردم .می خواستم بدونم vflexgride طرز کارش با msflaxgrid یکی هستش؟؟

[محسن واژدی]

بله تقریبا همه توابع vsflexgrid با msflexgrid یکی هستند

موفق باشید

[ahp_online]

سلام
من تبدیل اکسل رو انجام دادم و جواب گرفتم.فقط یک مشکل دیگه وجود داره و اون اینه که نام فیلد ها در ستور فایل اکسل قرار نمی گیره و A , b ,c و ... میزنه!!!
چطوری میشه نام فیلد رو در ستون فایل اکسل قرار داد؟؟

[vbhamed]

سلام

اون عناوين A, B, ... رو كه فكر نكنم بشه تغيير داد ولي شما مي‌تونيد تو سطر اول vsFlexGrid عناوين ستونهاتون رو درج كنيد تا تو فايل اكسل هم بياد

[akbarg64]

سلام.اگه بخواهیم یه سری اطلاعات رو از VSFlexGrid به اکسل ارسال کنیم مثلا از بین A و B و Cو D موجود رو میخوایم فقط A و C رو فقط به اکس ارسال کنیم.چطور.یه نمونه ای در این زمینه دوستان لطف کنند.ممنون میشم.من میخوام یه فایل اکسل رو توی VSFlexGrid باز کنم و یه سری اطلاعات رو ازون فایل اکسپورت کنم توی یه اکسل دیگه.باز کردنش که مشکلی نیست.فقط میمونه موردی رو که گفتم.ممنون میشم دوستان کمک کنند.

[vbhamed]

سلام

فرض كنيد مي‌خواين ستون سوم رو اكسپورت نكنيد

With VSFlexGrid1
.ColPosition(2) = .Cols - 1
.Cols = .Cols - 1
.SaveGrid "c:\ssss.xls", flexFileExcel
End With

[akbarg64]

سلام.ممنون.اگه بخواهیم ستون اول اکسپورت نکنیم چه؟؟؟؟؟؟ساده تر نمیشه؟؟؟؟؟؟؟

[vbhamed]

سلام


With VSFlexGrid1
.ColPosition(0) = .Cols - 1
.Cols = .Cols - 1
.SaveGrid "c:\ssss.xls", flexFileExcel
End With

[ahp_online]

سلام
چطور می تونم سطر اول vsflaxgride رو که نام فیلد هستند در ردیف اول فایل اکسل نمایش دهیم؟؟

[vbhamed]

سلام

هميچين كاري نميشه كرد چون بر اساس اون ستون محاسبات و فرمولها انجام ميشه فقط مي‌تونيد از Tools > Options > View گزينه Row & Column Headers رو بي‌علامت كنيد تا اصلا نشون داده نشن

[raminshahmoradi]

سلام
ابتدا از قسمت References گزینه Microsoft Excel 14.0 Object Library را انتخاب نمایید و سپس کدهای زیر را استفاده کنید




Option Explicit
Dim objExcel As Excel.Application
Dim objWorkbook As Excel.Workbook
Private Declare Function ShellExecute Lib "shell32.dll" Alias _
"ShellExecuteA" (ByVal HWnd As Long, ByVal lpOperation _
As String, ByVal lpFile As String, ByVal lpParameters _
As String, ByVal lpDirectory As String, ByVal nShowCmd _
As Long) As Long
Private Sub Command1_Click()
Dim i As Long
Dim n As Long
On Error Resume Next
Set objExcel = GetObject(, "Excel.Application")
If Err.Number Then
Err.Clear
Set objExcel = CreateObject("Excel.Application")
If Err.Number Then
MsgBox "Can't open Excel."
End If
End If
objExcel.Visible = True
Set objWorkbook = objExcel.Workbooks.Add
AppActivate "FlexGrid To Excel Demo"
For i = 0 To 3
MSFlexGrid1.Row = i
For n = 0 To 3
MSFlexGrid1.Col = n
objWorkbook.ActiveSheet.Cells(i + 1, n + 1).Value = MSFlexGrid1.Text
Next
Next
End Sub
Private Sub Form_Load()
Dim i As Integer
Dim n As Integer
Me.Caption = "FlexGrid To Excel Demo"
'Populate the FlexGrid with sample data
With MSFlexGrid1
.Rows = 1
.Cols = 4
'Add field headers
For i = 1 To 3
.Col = i
.Text = "Heading " & i
Next
'Add data
For i = 1 To 3
.Rows = .Rows + 1
.Row = .Rows - 1
.Col = 0
.Text = "Record " & i
For n = 1 To 3
.Col = n
.Text = "Row " & i & ",Col " & n
Next
Next
End With
End Sub
Private Sub Form_Unload(Cancel As Integer)
Set objWorkbook = Nothing
Set objExcel = Nothing
End Sub



موفق باشید

[ahp_online]

سلام
میشه راجب این کد توضیح بدید که چی کار میکنه؟؟