質問編集履歴
1
誤字の修正をいたしました。
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -23,6 +23,7 @@
|
|
|
23
23
|
Dim FSO As Object
|
|
24
24
|
Dim Folder As Variant
|
|
25
25
|
Dim File As Variant
|
|
26
|
+
Dim FilePath As Variant
|
|
26
27
|
|
|
27
28
|
'フォルダ指定用のダイアログを表示します
|
|
28
29
|
With Application.FileDialog(msoFileDialogFolderPicker)
|