Dim ExcelApp As Excel.Application Dim Book As Excel.WorkBook ExcelApp = New Excel.Application() Book = ExcelApp.WorkBooks.Add()