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