Excelファイルのオープン、クローズ、等を伴う他のエクセルを開いて、処理をするマクロのひな形です。

●フォルダを指定し、その中のExcelファイルをOpenし有効行を操作して、Close次のエクセルファイルへ

'***対象フォルダ内のエクセルファイルを探し、開く

Sub xlOpneSample()

    '---対象フォルダを指定

    targetDir = "C:\temp\"

    '---エクセルオブジェクト生成

    Set xlApp = CreateObject("Excel.Application")

    '---対象ファイルの検索

    targetXl = Dir(targetDir & "*.xls*")

    '---対象ファイルが空になるまで

    Do Until targetXl = ""

        '---エクセルオープン(読み取り専用)

        xlApp.Workbooks.Open targetDir & targetXl, ReadOnly:=ture

        '---表示

        xlApp.Visible = True

        '---最終セルの取得

        xlApp.Range("a1").Select

        Set LASTCELL = xlApp.ActiveCell.SpecialCells(xlLastCell)

        i = 1

        '---最終行まで繰り返す

        Do Until LASTCELL.Row() < i

            '---次の行

            i = i + 1

        Loop

        '---エクセルクローズ

        xlApp.ActiveWorkbook.Close

        '---対象ファイルの検索（続き）

        targetXl = Dir()

    Loop

    Set xlApp = Nothing

End Sub