Private Sub ComdExcel_Click() 
Excel_export (Me.fg2) 
End Sub 
 
' ---------------------------------- 
' Modul Code 
' ----------------------------------- 
Public Sub Excel_export(ByRef grid As MSFlexGrid) 
 
Debug.Print Grid.Rows
Debug.Print Grid.Cols 
 
End Sub