回答編集履歴
1
修正
test
CHANGED
|
@@ -1,5 +1,5 @@
|
|
|
1
1
|
上記のコードでは「親フォルダ内のすべてのサブフォルダ」から取得しているが、親フォルダ直下のセル(y,2)からのみ取得したいということでしょうか？
|
|
2
2
|
```vba
|
|
3
|
-
Set f = GetFolder(root_dir & Application.PathSeparator & Cells(y,2))
|
|
3
|
+
Set f = fso.GetFolder(root_dir & Application.PathSeparator & Cells(y,2))
|
|
4
4
|
Call imagesFromSubFolder(f, y)
|
|
5
5
|
```
|