|
4枚のSheetからなるBookの操作に関してです。
4枚のSheetを4つのBookとして保存するというマクロです。
下記の様に記述した場合にはアクティブシートのみが保存されます。
Sheet1,Sheet2,Sheet3,Sheet4をSheet1.xls,Sheet2.xls,Sheet3.xls,Sheet4.xls
で保存する記述を教えてください。
Sub NameSheetCopy()
Dim strName As String
Dim Wst As Worksheet
On Error Resume Next
Application.ScreenUpdating = False
For Each Wst In ActiveWindow.SelectedSheets
strName = Wst.Name
Wst.Copy
With ActiveWorkbook
.SaveAs "C:\担当\" & strName & ".xls"
.Close SaveChanges:=True
End With
Next Wst
Application.ScreenUpdating = True
End Sub
|
|