SheetやRangeオブジェクトからブック名を取得する方法 – VBA

SheetやRangeオブジェクトからブック名を取得する方法
SheetやRangeオブジェクトから今開いているブック名って何だっけ?という時にParentを使ってWorkbookオブジェクトから取得します。
開いているブックが一つしかないのであれば、Thisworkbook.Nameで取得できます。

   Dim sht As Worksheet 'シートオブジェクト
   Dim rng As Range     'レンジオブジェクト

   Set sht = Workbooks("Book1.xlsm").Sheets("Sheet1")
   Set rng = Workbooks("Book1.xlsm").Sheets("Sheet1").Range("A1:B1")

   MsgBox rng.Parent.Parent.Name
   MsgBox sht.Parent.Name

You may also like

コメントを残す

メールアドレスが公開されることはありません。 が付いている欄は必須項目です

CAPTCHA


このサイトはスパムを低減するために Akismet を使っています。コメントデータの処理方法の詳細はこちらをご覧ください