回答編集履歴
1
コード修正
test
CHANGED
|
@@ -24,7 +24,7 @@
|
|
|
24
24
|
|
|
25
25
|
i = i + 1 ' こちらに移動
|
|
26
26
|
|
|
27
|
-
Cells(i, 1) = k
|
|
27
|
+
Cells(i, 1) = k '=k.path ファイル名だけなら k.Name
|
|
28
28
|
|
|
29
29
|
Next
|
|
30
30
|
|