|
こんばんは、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
|
|