Como se vasculha uma planilha do excel? Existe algum comando do tipo eof?

 

Sds

Beleli

Acho que não, eu faco o fim da planilha quando o campo fica em branco.

Não tem nada mais eficiente que esse tipo de instrução?

 

    Dim xlsApp As Excel.Application
    Dim xlsBook As Excel.Workbook
    Dim xlsSheet As Excel.Worksheet

    Dim iAux as Integer
    
    Set xlsApp = New Excel.Application
    Set xlsBook = xlsApp.Workbooks.Open(Me.txt_origem, ReadOnly:=True)
    Set xlsSheet = xlsApp.Worksheets(1)
   
    iAux = 1
   
    While xlsSheet.Cells(iAux, 1) <> ""
        iAux = iAux + 1
    Wend
    
    xlsBook.Close
    xlsApp.Quit
   
    Set xlsSheet = Nothing
    Set xlsBook = Nothing
    Set xlsApp = Nothing

beleli, veja esse link, vc acha muita coisa aqui sobre execel...