●ファイルを開く
Option Explicit
Dim objExcel, bk
Set objExcel = CreateObject("Excel.Application")
Set bk = objExcel.Workbooks.Open("ファイルパス")
●すでに開いているファイルを取得する
Option Explicit
Dim objExcel, bk
Set objExcel = GetObject(,"Excel.Application")
Set bk = objExcel.Workbooks("ブック名")