Option Compare Database
Option Explicit

Private Declare Function timeGetTime Lib  "winmm.dll"  () As Long
Private Sub Test1()
    Dim i           As Long
    Dim t           As Long
    t = timeGetTime

    For i =  1  To  10 
        Dim xl      As Excel.Application
        Dim wb      As Excel.Workbook
        Dim ws      As Excel.Worksheet
        Set xl = New Excel.Application
        Set wb = xl.Workbooks.Add
        Set ws = wb.Worksheets( 1 )    'хоть одно да создалась
        'без with специально
        ws.Range( "A1" ).Value =  1 
        ws.Range( "A2" ).Value =  11 
        ws.Range( "A3" ).Value =  111 
        ws.Range( "A4" ).Value =  1111 
        ws.Range( "A5" ).Value =  11111 
        ws.Range( "A6" ).Value =  111111 
        ws.Range( "A7" ).Value =  1111111 
        ws.Range( "A8" ).Value =  11111111 
        ws.Range( "A9" ).Value =  111111111 
        ws.Range( "A10" ).Value =  111111111 
        ws.Range( "A11" ).Formula =  "=Sum(A1:A10)" 
        Set ws = Nothing
        wb.Close SaveChanges:=False
        Set ws = Nothing
        xl.Quit    ' вообще-то тут я не уверен в правильности расчетов. Поидее сильно завииитот диска и ОП
        Set xl = Nothing
    Next i
Debug.Print (timeGetTime - t) / 1000

    'Первый запуск после рестарта Акеса   3 , 812  (с)
    '3,546
    '3, 687 
    '3,391
    '3, 734 
    '3,406
    '
    '
End Sub
Private Sub Test2()
    Dim i           As Long
    Dim t           As Long
    t = timeGetTime

    For i = 1 To 10
        Dim xl      As Object
        Dim wb      As Object
        Dim ws      As Object
        Set xl = CreateObject("Excel.Application")
        Set wb = xl.Workbooks.Add
        Set ws = wb.Worksheets(1)    'хоть одно да создалась
        'без with специально
        ws.Range("A1").Value = 1
        ws.Range("A2").Value = 11
        ws.Range("A3").Value = 111
        ws.Range("A4").Value = 1111
        ws.Range("A5").Value = 11111
        ws.Range("A6").Value = 111111
        ws.Range("A7").Value = 1111111
        ws.Range("A8").Value = 11111111
        ws.Range("A9").Value = 111111111
        ws.Range("A10").Value = 111111111
        ws.Range("A11").Formula = "=Sum(A1:A10)"
        Set ws = Nothing
        wb.Close SaveChanges:=False
        Set ws = Nothing
        xl.Quit    ' вообще-то тут я не уверен в правильности расчетов. По идее сильно зависит от диска и ОП
        Set xl = Nothing
    Next i
Debug.Print (timeGetTime - t) /  1000 
    'Первый запуск после рестарта Акеса   3,546
    '3, 5 
    '3,234
    '3, 485 
    '3,219
    '3, 5 
End Sub

Позднее связывание  1 , 671875  Раннее связывание  0 , 1875 
Позднее связывание  1 , 65625   Раннее связывание  0 , 203125 
Позднее связывание  1 , 671875  Раннее связывание  0 , 1875