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は勉強中の初心者ですので、よろしくお願いいたします。

569 hits

【56405】巨大なCSVファイルの読み込みに関して アヒルペンギン 08/6/16(月) 15:36 質問
【56406】Re:巨大なCSVファイルの読み込みに関して kanabun 08/6/16(月) 15:56 発言
【56408】Re:巨大なCSVファイルの読み込みに関して アヒルペンギン 08/6/16(月) 16:22 回答
【56432】Re:巨大なCSVファイルの読み込みに関して Yuki 08/6/17(火) 10:58 発言
【56434】Re:巨大なCSVファイルの読み込みに関して アヒルペンギン 08/6/17(火) 13:01 お礼
【56438】Re:巨大なCSVファイルの読み込みに関して Yuki 08/6/17(火) 15:50 発言
【56440】Re:巨大なCSVファイルの読み込みに関して アヒルペンギン 08/6/17(火) 16:28 お礼
【62580】Re:巨大なCSVファイルの読み込みに関して kosuke 09/8/1(土) 16:42 質問
【62581】Re:巨大なCSVファイルの読み込みに関して kanabun 09/8/1(土) 19:27 発言
【62582】Re:巨大なCSVファイルの読み込みに関して kosuke 09/8/2(日) 10:52 発言
【62585】Re:巨大なCSVファイルの読み込みに関して kanabun 09/8/2(日) 19:15 発言
【62587】Re:巨大なCSVファイルの読み込みに関して kanabun 09/8/2(日) 23:22 発言
【62589】Re:巨大なCSVファイルの読み込みに関して kosuke 09/8/3(月) 10:09 発言
【62590】Re:巨大なCSVファイルの読み込みに関して kanabun 09/8/3(月) 11:00 発言
【62591】Re:巨大なCSVファイルの読み込みに関して kosuke 09/8/3(月) 11:40 発言
【62592】Re:巨大なCSVファイルの読み込みに関して kanabun 09/8/3(月) 12:00 発言
【62593】Re:巨大なCSVファイルの読み込みに関して kosuke 09/8/3(月) 13:07 お礼

19573 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free