1: 2: 3:
Dim xlaTest As Excel.Application = CType(CreateObject("Excel.Application"), Excel.Application) 'xlaTest.Visible = True Dim wbkFrom As Excel.Workbook = xlaTest.Workbooks.Open("D:\Tests\VB Trials\ExcelRunApp\book1.xls")