Dim Xl As Excel.Application
dim wb as Excel.WorkBook
dim ws as Excel.WorkSheet

Set Xl = CreateObject("Excel.Application")
set wb = Xl.Workbooks.add (App.Path + "\Связь.xls")
set ws = wb.worksheet( 2 )
ws.Activate

Dim Xl As Excel.Application
dim wb as Excel.WorkBook
dim ws as Excel.WorkSheet

Set Xl = CreateObject("Excel.Application")
set wb = Xl.Workbooks.add (App.Path + "\Связь.xls")
set ws = wb.worksheet( 2 )
ws.Activate

    Dim wb As Workbook
    Set wb = GetObject(App.Path & "\Связь.xls")
    wb.Sheets( 2 ).Select
    Set xl = wb.Application
    xl.Visible = True

На сайте осуществляется обработка файлов cookie, необходимых для работы сайта, а также для анализа использования сайта и улучшения предоставляемых сервисов с использованием метрической программы Яндекс.Метрика.

Продолжая использовать сайт, вы даёте согласие на обработку файлов cookie, необходимых для работы сайта. Другие опции вы можете выбрать по своему усмотрению.

По нижеприведенным ссылкам мы можете ознакомиться с действующим на сайте пользовательским соглашением и политикой конфиденциальности.

Пользовательское соглашение
Политика конфиденциальности

	Необходимые cookie
	Cookie для сбора статистики
	Cookie для маркетинга и рекламы