(1): 2: 3:
Ciemnawy xlaTest Jako Excel.Application = CType (CreateObject ("Excel.Application"), Excel.Application) 'xlaTest.Visible = Prawdziwy Ciemnawy wbkFrom Jako Excel.Workbook = xlaTest.Workbooks.Open ("D:\Tests\VB Próba \ ExcelRunApp \ book1.xls")