amiralex
شنبه 12 دی 1394, 10:46 صبح
سلام به همه
من از این طریق یه خروجی به اکسل میریزم.... لطفا یه نگاه بندازید
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
لطفا یه راهنمایی بکنید. متشکرم
من از این طریق یه خروجی به اکسل میریزم.... لطفا یه نگاه بندازید
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
لطفا یه راهنمایی بکنید. متشکرم