Excel에서 셀의 값을 가져 오려면 VBA에서 루프하십시오.

Question

사용자가 파일의 경로를 선택하고 예를 클릭하면 각 경로 파일이 워크 시트 (Column1)에 삽입됩니다.

나는 내가 ""= 기록

이 내가 시도하지만 경로가있을 때 때문에 잘 작동하지 않는 코드가 끝날 때까지 워크 시트 (열 1)이 경로의 파일을 읽을 루프를 만들려고 오류가 발생합니다. 파일 경로 = ""(셀 = "")

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

이유는 바로 트림 $ (Cell.Value) = "확인하지

"이 때 그래서 나는 오히려 종료 할 첫 줄에 Null보다?