Excel VBA質問箱 IV

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

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


48894 / 76737 ←次へ | 前へ→

【32772】Redimの代用
質問  裕紀 E-MAIL  - 05/12/21(水) 22:06 -

引用なし
パスワード
   こんばんは、VBAを勉強中の者です。
CSVファイルを開いて読み込み、指定された場所に
値を入れるアプリを作っています。
ですが、以下のReDimを使った部分がよくわかりません。
多少長くなったり、遠回りしてもReDimを使わず書いてみたいです。
ヒントでも結構です。ご助言お願い致します。
----------------------------
For page = 1 To pgCnt
    For l = 1 To 14
    Line Input #fno, strCsv

      strCsv = strCsv & ","
       ReDim MyVar(0)
       MyCount = 1
    
      ' len strCsvの文字列数
      For s = 1 To Len(strCsv)
      ' Mid(文字列式,抽出開始位置,抽出文字数)
        If Mid(strCsv, s, 1) = "," Then
          MyVar(UBound(MyVar())) = Mid(strCsv, MyCount, s - MyCount)
          MyCount = s + 1
          If s <> Len(strCsv) Then ReDim Preserve MyVar(UBound(MyVar()) + 1)
        End If
      Next s
        
      For j = 0 To 24
        ActiveSheet.Cells(j + k + 3, i + 1) = MyVar(j)
      Next j

      i = i + 1
      
      
    Next l
    m = m + i - 1
    k = k + 28
    i = i - 14
  Next page

0 hits

【32772】Redimの代用 裕紀 05/12/21(水) 22:06 質問
【32773】Re:Redimの代用 やっちん 05/12/21(水) 22:48 発言
【32775】Re:Redimの代用 裕紀 05/12/21(水) 23:10 お礼
【32778】Re:Redimの代用 やっちん 05/12/21(水) 23:38 発言
【32774】Re:Redimの代用 やっちん 05/12/21(水) 22:51 発言
【32777】Re:Redimの代用 裕紀 05/12/21(水) 23:35 質問
【32779】Re:Redimの代用 やっちん 05/12/21(水) 23:42 発言
【32780】Re:Redimの代用 裕紀 05/12/21(水) 23:54 お礼

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