回答編集履歴
1
コード修正
answer
CHANGED
|
@@ -11,7 +11,7 @@
|
|
|
11
11
|
|
|
12
12
|
Dim i As Long ' Longに修正
|
|
13
13
|
i = i + 1 ' こちらに移動
|
|
14
|
-
Cells(i, 1) = k
|
|
14
|
+
Cells(i, 1) = k '=k.path ファイル名だけなら k.Name
|
|
15
15
|
Next
|
|
16
16
|
End Sub
|
|
17
17
|
```
|