|
▼Kein さん:
説明が悪くてすいません。
コードを全部書くと結構長々としてしまうので、一部訂正し省略もして、シンプルなコードに変えて書き込んでみました。
読込み&内容の処理の部分は変えたくなかったので、あえてコードは載せませんでした。
intFF = FreeFile
Open strInFile For Input As #intFF
Do Until EOF(1)
Line Input #intFF, strBUFF
a = Mid(strBUFF, i + 6, 2)
b = Mid(strBUFF, i + 10, 2)
c = Mid(strBUFF, i + 13, 10)
d = Mid(strBUFF, i + 25, 5)
e = Mid(strBUFF, i + 30, 10)
f = Mid(strBUFF, i + 42, 5)
g = Mid(strBUFF, i + 50, 5)
Cells(nCNT, 2).Value = a
Cells(nCNT, 3).Value = b
Cells(nCNT, 4).Value = c
Cells(nCNT, 5).Value = d
Cells(nCNT, 6).Value = e
Cells(nCNT, 7).Value = f
Cells(nCNT, 8).Value = g
nCNT = nCNT + 1
Loop
Close #intFF
実際はstrBUFFからMid関数で必要な情報を処理している箇所はもっと複雑です。
セルにa〜gを書き込んでいる部分だけを修正したいのです。
a〜gに代入後配列に渡し、処理だけを先にしてから書き込みだけ配列から値をもらいまた別のループにするということは可能でしょうか?
よろしくお願いします。
|
|