Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

20009 / 76737

←次へ　｜　前へ→


	【62153】Re:CSVファイルの読み込みについて

neptune - 09/6/25(木) 11:20 -


	引用なし

	パスワード

▼困り猫さん：

>やはり"|"以降のデータが削除される
は既に他の方からアドバイスがありますよね。
>　　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ステートメントまでの間を考えながら
見直して見てください。

0 hits

▼

【62143】CSVファイルの読み込みについて 困り猫 09/6/24(水) 16:23