上書き保存されない

質問

saveメソッドを使用しているのですが、上書きされないのです。
最初に名前をつけて保存で保存し、処理の最後にブック名を変数にして、saveで上書き保存しているのですが、なぜか教えてください。

Dim wb集計 As Workbook
ActiveWorkbook.SaveAs Filename:="c:\集計.xls"
集計 = "集計.xls"
Set wb集計 = Workbooks(集計)
～割愛～
wb集計.Save

回答No.1

himajin100000

'Office 2007ではc:\集計.xlsのSheet1のA1に"ほげ"という文字列が出来ていた。
'もちろんマクロ実行前にはc:\集計.xlsは存在していない
'このマクロ自体が集計.xlsでない限り。上書き確認のダイアログは出ない模様。

Option Explicit

Sub Main()

Dim wb集計 As Workbook
Dim 集計 As String

ActiveWorkbook.SaveAs Filename:="c:\集計.xls"
集計 = "集計.xls"
Set wb集計 = Workbooks(集計)
wb集計.Worksheets(1).Cells(1, 1).Value = "ほげ"
wb集計.Save
wb集計.Close

End Sub