実行時バインディングSub Test()    Dim MyExcel As Object    Set MyExcel = CreateObject("Excel.Application")    MyExcel.Visible = True    MyExcel.workbooks.Add    MyExcel.ActiveWorkbook.Sheets(2).select    MyExcel.Quit        Set MyExcel =