VBAでCSVのファイル名から日付とファイルのサイズを抽出をしたいです。
VBAでCSVのファイル名から日付とファイルのサイズを抽出をしたいです。
実際にしたい出力後のシート
このように、ファイル名は下に出力していき日付は日付ごとに横に伸び、ファイルサイズはファイルと、日付に当てはまるところに出力される。
現在の進捗
(模範データ)
date |file |size
20220101|a_file|250
20220101|b_file|300
20220101|c_file|350
20220101|d_file|400
20220101|e_file|450
20220101|f_file|500
20220101|g_file|550
20220101|h_file|600
20220101|i_file|650
20220101|j_file|700
20220102|a_file|250
20220102|b_file|300
.
.
20220103|j_file|700
(模範処理)
Sub 開始()
j = 2
f = 6
k = 4
c = 8
d = 3
h = 4
a = 8
For i = 1 To 3
'date
Sheets("模擬データ").Cells(j, 1).Copy
Sheets("模擬処理").Cells(f, k).PasteSpecial xlPasteValues
Cells(f, k).Offset(0, 3).Select
k = k + 3
'file
Sheets("模擬データ").Cells(j, 2).Copy
Sheets("模擬処理").Cells(c, d).PasteSpecial xlPasteValues
Cells(c, d).Offset(0, 1).Select
c = c + 1
'size
Sheets("模擬データ").Cells(j, 3).Copy
Sheets("模擬処理").Cells(a, h).PasteSpecial xlPasteValues
Cells(a, h).Offset(0, 0).Select
a = a + 1
j = j + 1
Next i
自分で試したこと
上記のコードで実行した結果、同じファイル名や同じ日付が立て続けに出力され、ファイルサイズは("D8")から始まり、'実際にしたい出力後のシート'のように次の行に行かず、下に全部出力されてしまう…
どのようにすれば、'実際にしたい出力後のシート'のように出力できますでしょうか?
よろしくお願いいたします。