アクティブブック、シート名取得

VBAで必須なアクティブブック、シート名取得と、記述の簡潔化の記事です

• 状況

  現在開いているExcelbook名、sheet名を取得したい。

• 実施
  ActiveWorkbook.Nameによる名前取得
ActiveSheet.Nameによる名前取得
Set定義によるbook名、sheet名記述簡潔化

• シート画像
  

• VBA記述

Sub test()
Dim Name1, Name2 As String
Dim Name3, Name4 As Worksheet

Name1 = ActiveWorkbook.Name
Name2 = ActiveSheet.Name

Workbooks(Name1).Sheets(Name2).Cells(1, 1) = 1
Sheets(Name2).Cells(1, 1) = 1 


Set Name3 = Workbooks(Name1).Sheets(Name2)
Set Name4 = Sheets(Name2)

Name3.Cells(2, 1) = 2
Name4.Cells(3, 1) = 3
End Sub