Sub Extract_All_From_GRID(grid_id As String, wsName As String)
    Dim ws As Worksheet
    Set ws = Worksheets(wsName)
    ws.Cells.ClearContents

    Dim grid
    Set grid = Session.findById(grid_id)
    
    Dim clmsName() As String
    ReDim clmsName(grid.columncount)
    
    Dim x
    Dim i As Long
    
    grid.SelectAll
    For Each x In grid.SelectedColumns
        i = i + 1
        clmsName(i) = CStr(x)
        ws.Cells(1, i).Value = clmsName(i)
        ws.Cells(2, i).Value = grid.GetDisplayedColumnTitle(clmsName(i))
    Next
        
    Dim r As Long
    Dim c As Long
    For r = 0 To grid.RowCount - 1
        grid.firstVisibleRow = r
        For c = 1 To grid.columncount
            ws.Cells(r + 3, c).Value = grid.GetCellValue(r, clmsName(c))
        Next
    Next r
    
    Set ws = Nothing
    Set grid = Nothing
End Sub