回答編集履歴
2
不足追加
test
CHANGED
@@ -16,6 +16,8 @@
|
|
16
16
|
Dim New_fol As String ‘num置換後のサブフォルダ
|
17
17
|
|
18
18
|
Const Path As String = ” C:\AAA\BBB\CCC\DDD\保存フォルダ\
|
19
|
+
|
20
|
+
Set fso = CreateObject("Scripting.FileSystemObject")
|
19
21
|
|
20
22
|
With Application
|
21
23
|
.ScreenUpdating=False
|
1
誤字修正
test
CHANGED
@@ -60,11 +60,6 @@
|
|
60
60
|
If Not fso.FolderExsists(New_fol) Then
|
61
61
|
Name Path & buf & As New_fol
|
62
62
|
wb.SaveAs New_wb
|
63
|
-
wb
|
64
|
-
|
65
|
-
‘ファイル名を変更して保存
|
66
|
-
wb.SaveAs New_wb
|
67
|
-
wb.Close False
|
68
63
|
wb.Close False
|
69
64
|
Kill New_fol & “\【資料】” & buf & “.xlsx”
|
70
65
|
|