|
ユーザーフォームで読み込みたいファイル名(フルパス)をテキストボックスに入れ、
実行を押すとそのファイルを読み込みたいと思い、以下のように書きました。
Dim intFF As Integer ' FreeFile値
Dim I(1 To 9) As Variant ' 読み込んだレコード内容
' FreeFile値の取得(以降この値で入出力する)
intFF = FreeFile
' 指定ファイルをOPEN(入力モード)
Open Me.SelectFileName For Input As #intFF
GYO = 1
' ファイルのEOF(End of File)まで繰り返す
Do Until EOF(intFF)
' レコードを読み込む
Input #intFF, I(1), I(2), I(3), I(4), I(5), I(6), I(7), I(8), I(9)
' 行を加算しA〜I列にレコード内容を表示
Range(Cells(GYO, 1), Cells(GYO, 9)).Value = I
GYO = GYO + 1
Loop
' 指定ファイルをCLOSE
Close #intFF
実行したところ、Input #intFF, I(1), I(2), I(3), I(4), I(5), I(6), I(7), I(8), I(9)
で「ファイルにこれ以上データがありません。」とエラーが出てしまいます。
原因がわからないのですが、どなたか教えていただけませんでしょうか?
|
|