☆超私的☆ニュース・備忘録・作業ログ

‘### 現在のアクティブを記憶
Set ReturnBook = ActiveWorkbook
Set OUTPUT = Sheets(“OUTPUT”)

‘### EXCELのブックをＯＰＥＮ
Set EXCELBook = Workbooks.Open(EXCELファイル名)
Set EXCEL一覧 = EXCELBook.Sheets(“リンクサイト一覧”)
‘### 元のアクティブに戻す
ReturnBook.Activate

——————————————-
EXCELBook.Close SaveChanges:=False
Set EXCEL一覧 = Nothing
Set EXCELBook = Nothing