回答編集履歴
1
修正
test
CHANGED
|
@@ -16,7 +16,7 @@
|
|
|
16
16
|
|
|
17
17
|
For i = st To ed
|
|
18
18
|
|
|
19
|
-
ThisWorkbook.SaveAs "c:\temp\" & i & ".xls
|
|
19
|
+
ThisWorkbook.SaveAs "c:\temp\" & i & ".xlsx"
|
|
20
20
|
|
|
21
21
|
Next
|
|
22
22
|
|