' シートを変数に代入 -----------------------------------

Dim my先ファイル名 As String

Dim my基シート As Worksheet

my先ファイル名 = "myマクロ.xls"

Set my基シート = Workbooks(my先ファイル名).Worksheets("Sheet1")

' ファイルを開く-----------------------------------

保存先 = "C:\"

ファイルパス = 保存先 & "ファイル名xls"

'「出勤日数」のファイルを開く

Workbooks.Open ファイルパス

’BOOKをアクティブにする-----------------------------------

Windows("ファイル名").Activate

’BOOKのSheetをアクティブにする-----------------------------------

Windows("ファイル名").Sheets("シート名").Activate