Sub main()
Dim xlApp                  As Excel.Application
Dim xlWb                   As Excel.Workbook
Dim xlWs                   As Excel.Worksheet

Set xlApp = New Excel.Application
Set xlWb = xlApp.Workbooks.Open(App.Path & "\FILE.xls")
Set xlWs = xlWb.Worksheets( 1 )

    xlApp.Visible = False
    xlApp.ScreenUpdating = False
    xlApp.Calculation = xlCalculationManual

    xlApp.ActiveWorkbook.Close False
    xlApp.Quit
Set xlWs = Nothing
Set xlWb = Nothing
Set xlApp = Nothing

End Sub

    xlWb.Close False
    xlApp.Quit

Sub main()
Dim xlApp As Excel.Application
Dim xlWb As Excel.Workbook
Dim xlWs As Excel.Worksheet

    Set xlApp = New Excel.Application
    Set xlWb = xlApp.Workbooks.Open("C:\FILE.xls")
    Set xlWs = xlWb.Worksheets( 1 )

    xlApp.ScreenUpdating = False
    xlApp.Calculation = xlCalculationManual

    xlWb.Close False
    xlApp.Quit
    Set xlWs = Nothing
    Set xlWb = Nothing
    Set xlApp = Nothing
End Sub

Sub main()
    Dim xlApp As Excel.Application
    Dim xlWb As Excel.Workbook
    Dim xlWs As Excel.Worksheet

    Set xlApp = New Excel.Application
    Set xlWb = xlApp.Workbooks.Open("C:\FILE.xls")
    Set xlWs = xlWb.Worksheets( 1 )

    xlApp.ScreenUpdating = False
    xlApp.Calculation = xlCalculationManual

    Set xlWs = Nothing
    xlWb.Close False
    Set xlWb = Nothing
    xlApp.Quit
    Set xlApp = Nothing
End Sub

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

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

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

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

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