在VBA中循环以获取Excel中单元格中的值

Question

用户选择文件的路径并单击是，每个路径文件都插入工作表（Column1）。

我尝试创建循环以在工作表（Column1）中读取此路径文件，直到记录结束

这是我尝试的代码，但是效果不好，因为当路径=“”时，我收到错误。所以我想在文件路径=“”（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

谢谢弗兰克

Answer 1

为什么不在第一行检查Trim $（Cell.Value）=“”而不是Null？