シートを他のブックに貼付けたい

質問

Excel2007でマクロ作成中の初心者です。
やりたいことは
1）本ブックの中の「当月売上」シートを他ブックに貼付けたいです。
2）他ブックに貼り付けた「当月売上」シート名は、セルK1の日付に変更したいです。
すると、他ブックのシートが毎月順に、売上(2012年4月)　売上(2012年5月)　売上(2012年6月)というふうに増えます。
3）何月に作成しても、ブックの「当月売上」シートを貼り付けます。
四苦八苦して以下のコードをつくりましたが、「同じ名前のシート名に変更できません。」
というエラーがでるので、このエラーが出ないように、名前が同じ時は上書き保存し、違うときは新しいシート名を作るという
コードにしたいです。困ってます。どうかご指導お願いします。

Sub 売上シートの貼付け()

Dim WBK1 As Workbook ' 本ブックの
Dim WBK2 As Workbook ' 貼付け先他ブック

ChDir ThisWorkbook.Path + "\売上"
On Error Resume Next
Set WBK2 = Workbooks("24年度売上.xls")
On Error GoTo 0
If WBK2 Is Nothing Then
Set WBK2 = Workbooks.Open(ThisWorkbook.Path & "\売上\24年度売上.xlsm")
End If
Worksheets("当月売上").Copy After:=Workbooks("24年度売上.xlsm").Sheets(Workbooks("24年度売上.xlsm").Sheets.Count)
ActiveSheet.Name = Format(Range("K1").Value, "売上(yyyy年mm月)")
Application.DisplayFormulaBar = True
WBK2.Close SaveChanges:=True
Application.DisplayAlerts = True
Set WBK2 = Nothing

End Sub

回答No.2

watabe007 · ベストアンサー

Workbooks("24年度売上.xls")の有無を確認して処理を分けているように
シートも有無を確認して処理を分ければ

On Error Resume Next
　　Set SH = Workbooks("24年度売上.xls").Worksheets(Format(Range("K1").Value, "売上(yyyy年mm月)"))
On Error GoTo 0
If SH Is Nothing Then
　　'シートが無い場合の処理

Else
　　'シートが有る場合の処理

End If

回答No.1

bin-chan

> 名前が同じ時は上書き保存し、違うときは新しいシート名を作るという
「名前が同じシートがあるか？を判定し、あれば削除する」を加えれば
ほぼ今のままで行けませんか？

お礼

ご回答ありがとうございます。ご指摘を参考にしてほぼ思い通りにできました。

補足

「当月売上」シートは、まちがいが有った時修正します。同じ「当月売上」シートという名でも修正後の
シートで貼り付けたいので、上書きは絶対条件なのですが・・。