Grid to Excel
This SubRoutine will print the MSHFlexGrid Content to Excel as it is along with giving borders,colors,bold. Its quiet a small function but useful sometimes.
Original Author: krachit
Inputs
The MSHflexgrid Name which holds the data
Assumptions
Reference has to be set to Excel
Returns
Transfers the Grid Data to Excel
Code
Private Sub Grid2Excel(gridName As MSHFlexGrid)
'This is the function to print from the Grid to Excel
Dim exc As Excel.Application
Set exc = CreateObject("Excel.Application")
exc.Workbooks.Add
exc.Visible = True
With gridName
For i = 0 To .Rows - 1
For j = 1 To .Cols - 1
exc.Cells(i + 1, j) = .TextMatrix(i, j)
exc.Cells(i + 1, j).Borders.LineStyle = xlDouble
exc.Cells(i + 1, j).Borders.Color = vbBlue
Next j
Next i
exc.Range("A1:" & Chr(65 + j) & 1).Font.Bold = True
exc.Columns("$A:" & "$" & Chr(65 + j)).AutoFit
End With
End Sub
Loading Comments ...
Comments
No comments have been added for this post.
You must be logged in to make a comment.