Loop in VBA for get values in cells in Excel

Question

The user select a path for a file and click yes, each path file are inserted in a worksheet(Column1).

I try to make a loop to read this path file in the worksheet(Column1) until the end of records

This is the code I try but do not work well because when the path is ="" I get an error. So I want to quit the when the file path is =""(cell = "")

    Do Until Workbooks(1).Worksheets(3).Cells(cnt, 1).Value = Null

    fileName = Workbooks(1).Worksheets(3).Cells(cnt, 1).Value


    Set oFS = oFSO.OpenTextFile(fileName) //If fileName="" I get error

    Do Until oFS.AtEndOfStream
        sText = sText & oFS.ReadLine
    Loop
    Debug.Print sText
    cnt = cnt + 1

RE6 sText, fileName

Loop

Thanks Frank

Trevor Tippins · Accepted Answer · 2012-02-03 21:17:35Z

1

Why not just check for Trim$(Cell.Value) = "", rather than Null, on the first line?

answered Feb 3, 2012 at 21:17

Trevor Tippins

2,86715 silver badges11 bronze badges

Sign up to request clarification or add additional context in comments.

2 Comments

Trevor Tippins Over a year ago

Do Until Trim$(Workbooks(1).Worksheets(3).Cells(cnt, 1).Value) = ""

FrankSharp Over a year ago

Do Until Workbooks(1).Worksheets(3).Cells(cnt, 1).Value = EmptySting Is the cleanest way thanks

Collectives™ on Stack Overflow

Loop in VBA for get values in cells in Excel

1 Answer 1

2 Comments

Your Answer

Hot Network Questions

Collectives™ on Stack Overflow

1 Answer 1

2 Comments

Your Answer

Sign up or log in

Post as a guest

Related