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)。ワークシート(3).Trim $(Cell.Value)= "" ??? – FrankSharp
IM new in vb .... – FrankSharp
トリム$(ブック1)。ワークシート(3)。セル(cnt、1)。値)= "" –