回答編集履歴
2
配列へ格納するものをExcelファイル（フルパス）に変更
answer
CHANGED
|
@@ -1,4 +1,4 @@
|
|
|
1
|
-
以下のように修正し、Excelファイル
|
|
1
|
+
以下のように修正し、Excelファイル（フルパス）で取得してはどうでしょうか。
|
|
2
2
|
```VBA
|
|
3
3
|
Dim FSobjfile as Object
|
|
4
4
|
For Each fn In FSO.GetFolder(FilePath).SubFolders
|
|
@@ -6,7 +6,7 @@
|
|
|
6
6
|
If FSO.GetExtensionName(FSobjfile.Name) = "xlsx" Then
|
|
7
7
|
cnt = cnt + 1
|
|
8
8
|
ReDim Preserve FileNames(cnt)
|
|
9
|
-
FileNames(cnt) = FSobjfile.Name
|
|
9
|
+
FileNames(cnt) = fn.Name & "\" & FSobjfile.Name
|
|
10
10
|
End If
|
|
11
11
|
Next FSobjfile
|
|
12
12
|
Next fn
|
1
<> を = に変更
answer
CHANGED
|
@@ -3,7 +3,7 @@
|
|
|
3
3
|
Dim FSobjfile as Object
|
|
4
4
|
For Each fn In FSO.GetFolder(FilePath).SubFolders
|
|
5
5
|
For Each FSobjfile In fn.Files
|
|
6
|
-
If FSO.GetExtensionName(FSobjfile.Name)
|
|
6
|
+
If FSO.GetExtensionName(FSobjfile.Name) = "xlsx" Then
|
|
7
7
|
cnt = cnt + 1
|
|
8
8
|
ReDim Preserve FileNames(cnt)
|
|
9
9
|
FileNames(cnt) = FSobjfile.Name
|