Option Explicit
Dim objExcel
Dim objSheet
Dim fileName
fileName = Array("test.xlsx","test2.xlsx")
'エクセルオブジェクトを作成します
Set objExcel = CreateObject("Excel.Application")
'ワークブックを開きます
'filePath = "C:\Users\oomori\Desktop\" & fileName(0)
objExcel.Workbooks.Open "C:\Users\oomori\Desktop\" & fileName(0),,,,"1234",,"true"
'①エクセル画面を表示し、2秒待機します
objExcel.Visible = True
Set objSheet = objExcel.Sheets(2)
objSheet.Range("A10").Value = "AAAAbbbbcccc"
objExcel.Workbooks(1).Close(true)
'エクセルを終了します
objExcel.Quit
'エクセルオブジェクトの破棄
Set objExcel = Nothing