Extract only first 10 rows

Question

Hi friends,

I've a code which copy data from SAP table from the top to bottom. If the table for each account have 1000 rows then this will copy each cell but may I know if the below code can be edited to copy only 10 rows only which saves a lot of time or copy rows when it finds specific text in 3rd column.

This is the code -

    Set myGrid = session.findById("wnd[0]/usr/cntlGRID1/shellcont/shell/shellcont[1]/shell") 

    allRows = myGrid.RowCount - 1 'number of SAP rows 

    allCols = myGrid.ColumnCount - 1 'number of SAP Columns 

    Dim SAPCOL As Object 

    Set SAPCOL = myGrid.ColumnOrder 'SAP column names in order in SAP window 

     For J = 0 To allRows 

        myGrid.firstVisibleRow = J 

            For i = 0 To allCols 

            ActiveSheet.Cells(J + 1, i + 1).Value = myGrid.GetCellValue(J, SAPCOL(i)) 'starts in cell "A1" 

        Next i 

     Next J

Answer 1

Hi,

Your J loop starts from 0 . . so, 10 rows will be completed when J = 9 . . I have added a line that should exit the J loop when J = 10.

Hope it helps.

Set myGrid = session.findById("wnd[0]/usr/cntlGRID1/shellcont/shell/shellcont[1]/shell")

allRows = myGrid.RowCount - 1 'number of SAP rows

allCols = myGrid.ColumnCount - 1 'number of SAP Columns

Dim SAPCOL As Object

Set SAPCOL = myGrid.ColumnOrder 'SAP column names in order in SAP window

For J = 0 To allRows

If J = 10 Then Exit For

myGrid.firstVisibleRow = J

For i = 0 To allCols

ActiveSheet.Cells(J + 1, i + 1).Value = myGrid.GetCellValue(J, SAPCOL(i)) 'starts in cell "A1"

Next i

Next J

If I was able to help You, please mark My response as answer and helpful.

Thank You!

Answer 2

Thank you very much :) It's working. You are awesome.