|
13枚のSheetからなるブック上での操作です。
13枚のSheetのうち6枚のSheetだけをシート名別でブックに保存したいのですが、
今ひとつ記述がわかりません。
下記のように書いても全部保存されてしまいます。6枚のシートだけを保存したいのですが。教えてください。
Sheetあをコピーして「Sheetあ.xls」で保存
Sheetかをコピーして「Sheetか.xls」で保存
Sheetさをコピーして「Sheetさ.xls」で保存
Sheetたをコピーして「Sheetた.xls」で保存
Sheetなをコピーして「Sheetな.xls」で保存
Sheetはをコピーして「Sheetは.xls」で保存
Sub Sheet名で保存()
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 "D:\見込み\集計DB\国内\DB\" & strName & ".xls" .Close SaveChanges:=True
End With
Next Wst
Application.ScreenUpdating = True
Application.DisplayAlerts = False
ActiveWindow.Close
End Sub
|
|