1: 2: 3:
Тусклое xlaTest как Excel.Application = CType (CreateObject («Excel.Application»), Excel.Application) 'xlaTest.Visible = True Тусклое wbkFrom как Excel.Workbook = xlaTest.Workbooks.Open («пробы D:\Tests\VB \ ExcelRunApp \ book1.xls»)