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