Excel VBA質問箱 IV

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

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


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

19573 / 76732

←次へ　｜　前へ→


	【62589】Re:巨大なCSVファイルの読み込みに関して

kosuke - 09/8/3(月) 10:09 -


	引用なし

	パスワード

▼kanabun さん：
あと、
>>　　'------- 配列に読み込み
>の部分↓ですが、
>
>>　　ReDim v(1 To maxRow, 1 To maxCol)
>>　　Open myCSV For Input As io
>>　　For i = 1 To maxRow
>>　　　　For j = 1 To maxCol
>>　　　　　　Input #io, v(i, j)
>>　　　　Next
>>　　Next
>
>このままですと、
>"0123" のような文字列はシートに展開したとき数値化されて 123 になって
>しまいますので、そういうデータがあるときは、
>以下のようにしてください。
>
>　　For i = 1 To maxRow
>　　　　For j = 1 To maxCol
>　　　　　　Input #io, v(i, j)
>　　　　　　If VarType(v(i, j)) = vbString Then
>　　　　　　　　If IsNumeric(v(i, j)) Then
>　　　　　　　　　　v(i, j) = "'" & v(i, j)
>　　　　　　　　End If
>　　　　　　End If
>　　　　Next
>　　Next

ご教示ありがとうございます。
当初、ご教示いただいたVBAで実行しましたが、下記→の箇所で、
インデックスが有効範囲にありません。と表示されました。

　 '------- 配列に読み込み
→ ReDim v(1 To maxRow, 1 To maxCol)
　　Open myCSV For Input As io
　　For i = 1 To maxRow
　　　　For j = 1 To maxCol
　　　　　　Input #io, v(i, j)
　　　　Next
　　Next

再度、ご教示いただいたVBAを実行しましたが、下記→の箇所で、
コンパイルエラー。SubまたはFunctionが定義されていません。
と表示されました。

　For i = 1 To maxRow
　　　　For j = 1 To maxCol
→　　　　 Input #io, v(i, j)
　　　　　　If VarType(v(i, j)) = vbString Then
　　　　　　　　If IsNumeric(v(i, j)) Then
　　　　　　　　　　v(i, j) = "'" & v(i, j)
　　　　　　　　End If
　　　　　　End If
　　　　Next
　　Next

ご連絡が遅くなり、申し訳ありません。
VBAは勉強中の初心者ですので、よろしくお願いいたします。

570 hits

▼

【56405】巨大なCSVファイルの読み込みに関して アヒルペンギン 08/6/16(月) 15:36