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

[amiralex]

سلام به همه

من از این طریق یه خروجی به اکسل میریزم.... لطفا یه نگاه بندازید




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

Dim i As Integer
Dim j As Integer


X_Excel.Visible = True
With VSFlexGrid12
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




قبل از این کار من یه سری ستونها مو که لازم ندارم از طریق این کدها مخفی میکنم



If Me.txtjam1.Text = 0 Then
Me.VSFlexGrid12.ColHidden(9) = True
End If



If Me.txtjam2.Text = 0 Then
Me.VSFlexGrid12.ColHidden(10) = True
End If



سوالم اینجاست وقتی خروجی اکسل میگیرم اون ستون هایی که مخفی کردم تو خروجی اکسل میاد و من نمیخوام اینطور باشه چیکار باید بکنم؟

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




VSFlexGrid12.SaveGrid "D:\Rabet.xls", flexFileExcel





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

[ایلیا آخوندزاده]

سلام
پایگاه داده شما اکسس هستش؟

[amiralex]

سلام. بله اکسس هست.

[amiralex]

لطفا اگه کسی میدونه یه راهنمایی بکنه. باتشکر

[ایلیا آخوندزاده]

خب چرا مستقیم از پایگاه داده خروجی نمیگیرین ؟
هم عنوان ها مرتب نشون داده میشه همم داده ها راحت میشه روشون مانور داد

[amiralex]

ببنید من این گریدم یه سری ستون داره. که با یک کد جمع ستون و میگیرم. حالا موقع خروجی گرفتن میخوام جمع ستون هایی که صفر هستند تو اکسل نیاد.
چیکار باید بکنم؟
ستون رو مخفی میکنم با دستور vs. Save هم خروجی میگیرم اما ستون تو اکسل وجود داره فقط مخفی شده. من میخوام اصلا نیاد. مشکل این هست.

[ایلیا آخوندزاده]

خب دستور شرطی نمیتونید بزارید که از اون فیلد ها اگر صفر بودن خروجی نگیره؟

[amiralex]

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