|
分類:[Microsoft Office 全般]
Excel2007のマクロ機能で名前定義を追加するプログラムを 作成しています。
最初にシート単位の名前定義を追加して、 そのあとに同一名でブック単位の名前を追加した場合に ブック単位の名前が追加されないでシート単位の名前定義が更新されてしまいます。 シートを追加・削除した後に実行すると正常に追加されるのですが、 シートを追加・削除しなくても正常に追加する方法は あるのでしょうか?
↓(失敗するパターン) -------------------------------------------------------- ActiveWorkbook.Names.Add Name:="Sheet1!NewName", RefersToR1C1:="=TEST!R8C6" ActiveWorkbook.Names.Add Name:="NewName", RefersToR1C1:="=TEST!R8C4" --------------------------------------------------------
↓(成功するパターン) -------------------------------------------------------- Dim obj As Excel.Worksheet
Set obj = ActiveWorkbook.Sheets.Add()
ActiveWorkbook.Names.Add Name:="Sheet1!NewName", RefersToR1C1:="=TEST!R8C6" ActiveWorkbook.Names.Add Name:="NewName", RefersToR1C1:="=TEST!R8C4"
obj.Delete --------------------------------------------------------
|