2012-02-03 12 views
0

ユーザーがファイルのパスを選択し、「はい」をクリックすると、各パスファイルがワークシート(Column1)に挿入されます。Excelのセルで値を取得するためにVBAでループする

私はパスがあるとき、これは「」= I私がしようとしたがうまく機能しないコードで、レコード

の終わりまで、ワークシート(列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 

おかげでフランク

答えて

1

理由だけではなく、「」トリム$(Cell.Value)をチェック=ではない終了したいです最初の行ではNullよりも?

+0

このようにワークブック(1)。ワークシート(3).Trim $(Cell.Value)= "" ??? – FrankSharp

+0

IM new in vb .... – FrankSharp

+0

トリム$(ブック1)。ワークシート(3)。セル(cnt、1)。値)= "" –

関連する問題