回答編集履歴
1
コード修正
test
CHANGED
|
@@ -16,7 +16,7 @@
|
|
|
16
16
|
|
|
17
17
|
Worksheets("Sheet1").Copy
|
|
18
18
|
|
|
19
|
-
ActiveSheet.Name =
|
|
19
|
+
ActiveSheet.Name = s
|
|
20
20
|
|
|
21
21
|
ActiveWorkbook.SaveAs Filename:="C:\test\" & s & ".xlsx"
|
|
22
22
|
|