|
はじめまして。
今マクロを作成し悩み中なんですが、
あるブックに10枚近いシートを作成し、
シート名で保存するという作業をしています。
下のマクロでは全てのシート保存されてしまうのですが、
実は10枚のシートの内、2枚に関しては保存したくないのですが、
シート名が毎回同じとは限らないので下のマクロを実行したあと
手作業で出来上がった10個のブックのうち2個を削除するという
操作をしています。
対象ブックが1個ならいいのですが、いくつかのブック
(各シートは10枚近くからなる)に対して削除という操作が
面倒なので、お聞きしたいのです。
不必要なシートは右端2枚なのですが、
位置から指定することは可能でしょうか?
どなたか良い方法をご存知の方
教えてください。
Sub シート名で保存する()
Dim strName As String
Dim Wst As Worksheet
'On Error Resume Next
Application.ScreenUpdating = False
For Each Wst In ThisWorkbook.Worksheets
strName = "C:\" & Wst.Name & ".xls" '保存先を指定
Wst.Copy
ActiveWorkbook.Close True, strName
Next Wst
Application.ScreenUpdating = True
End Sub
|
|