実況 Excel VBAセミナー４（ファイルの保存）

４枚のシート

（１月、２月、３月、４月）を

それぞれ別の４枚のファイルにコピーし、

シート名をファイル名にして保存。





Sub Sample_1() 'シートごとにシート名を名前にしてブックを保存



For i = 4 To 6



Worksheets(i & "月").Copy

ActiveWorkbook.SaveAs Filename:="C:¥Excel_work¥" & i & "月"

ActiveWorkbook.Close



Next i

End Sub



Worksheets(i & "月").Copyで、別ファイルが作れるのか。