Dim oExcel As New Excel.Application Dim oWorkBook As New Excel.Workbook oWorkBook = oExcel.Workbooks