|
▼困り猫 さん:
>やはり"|"以降のデータが削除される
は既に他の方からアドバイスがありますよね。
> Dim X(1 To 43) As Variant ' 読み込んだレコード内容
Dim X(1 To 43) As String ※先ずはこれ。
途中省略
> fNum = FreeFile()
> ' 指定ファイルをOPEN(入力モード)
> Open strFILENAME For Input As #fNum
> Line Input #fNum, sBuf
> sLine = Split(sBuf, ",")
sLineがどこにも出力されていない。だから
>・CSVファイルの1行目のデータが読み飛ばされる
do loopの中では最初のVariant型が変更されていないので
>Input #fNum, X(RETSU)
としているが、これでは何も変わっていない。全ての行を1行ずつ読み込むなら
それで最後までやった方がわかり易い。
ぱっと見た感じでも以上が指摘できます。
中途半端に改造するより
open ステートメントからCloseステートメントまでの間を考えながら
見直して見てください。
|
|