Excel VBA質問箱 IV

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

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


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

19575 / 76732

←次へ　｜　前へ→


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

kanabun - 09/8/2(日) 23:22 -


	引用なし

	パスワード

あと、
>　　'------- 配列に読み込み
の部分↓ですが、

>　　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

561 hits

▼

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