Экспорт из Access в Excel с последующим форматированием

Public Sub Prozedur_MB_8()
  
    'definieren ***********
                        
    Dim objExcelApp As Excel.Application
    Dim objWorkbook As Excel.Workbook
    Dim objSheet As Excel.Worksheet
    Dim strPath As String
    Dim i As Integer
    Dim r As String
    Dim N As String
                            
                        
    r = Format(Now, "yyyy.mm.dd_hh.mm")
    Forms!MAINMENU.varTime = r
    
    If Forms!MAINMENU.varBST = "M" Then
            N = "\MB-Vorschlag_SITTENSEN_" & r
            Else
    If Forms!MAINMENU.varBST = "T" Then
            N = "\TB-Vorschlag_SITTENSEN_" & r
            Else
    End If
    End If
    
    
   
    'lцschen (alte Datei), speichern(neue Datei) ***********
    
    If Dir(CurrentProject.Path & N & ".xlsx") <> "" Then
       Kill CurrentProject.Path & N & ".xlsx"
         
         DoCmd.TransferSpreadsheet transfertype:=acExport _
     , spreadsheettype:=acSpreadsheetTypeExcel12Xml _
     , TableName:="0180_xSITTENSEN", FileName:=CurrentProject.Path & N & ".xlsx"
     
    Else: DoCmd.TransferSpreadsheet transfertype:=acExport _
     , spreadsheettype:=acSpreadsheetTypeExcel12Xml _
     , TableName:="0180_xSITTENSEN", FileName:=CurrentProject.Path & N & ".xlsx"
    
    End If
        
    
        
    'цffnen ***********
        
'    Set objExcelApp = CreateObject("Excel.Application")
'    strPath = CurrentProject.Path & "\MB-Vorschlag_SITTENSEN_" & r & ".xlsx"
'    Set objWorkbook = objExcelApp.Workbooks.Open(strPath)
'    objExcelApp.Visible = False         '!!! zeigen oder ausblenden die Datei
    
    Set objExcelApp = New Excel.Application
    strPath = CurrentProject.Path & N & ".xlsx"
    Set objWorkbook = objExcelApp.Workbooks.Open(strPath)
    Set objSheet = objWorkbook.Worksheets(1)
    objExcelApp.Visible = False '!!! zeigen oder ausblenden die Datei
                        
    ' formatieren ***********
    
    With objSheet
         
             'EXCELMAKROs_XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
          
             'Makro1 Makro ARBEITSBEREICH (START)***
 
              Columns("A:K").Select
              objExcelApp.Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, _
                  Formula1:="=0"
                  
               objExcelApp.Selection.FormatConditions(objExcelApp.Selection.FormatConditions.Count).SetFirstPriority
              With objExcelApp.Selection.FormatConditions(1).Font
                  .ThemeColor = xlThemeColorDark1
                  .TintAndShade = 0
              End With
 
' на этом месте продолжается процедура форматирования. она огромная, более 3000 строк поэтому я ее конечно всю не вставляю сюда...
 
 
                                 
          Range("A1:K2").Select
            ' Makro10 Makro BESCHRIFTUNGEN (STOP)****
       
            
   End With
           ' schließen ******************
  objWorkbook.Close True
  Set objWorkbook = Nothing
  objExcelApp.Quit
  Set objExcelApp = Nothing
           
                       
MsgBox "Sittensen - fertig!", , "System-Info"
 
'E-MAIL VERSCHICKEN  XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
 
With NeueThunderbirdEMail
 
'     .EmailFormat = 2
'     .SendenVonKonto = 4
 
     .Empfaenger = "d.zhurba@tiemann-landtechnik.de"
     .KopieAn = "d.zhurba@tiemann-landtechnik.de"
       If Forms!MAINMENU.varBST = "M" Then
            .Betreff = "MONATS-Bestell-/Umlagerungsvorschlag_SITTENSEN"
            Else
    If Forms!MAINMENU.varBST = "T" Then
            .Betreff = "TAGES-Bestell-/Umlagerungsvorschlag_SITTENSEN"
            Else
    End If
    End If
     
'     .EMailText = "Hallo Kollegen<br>Im Anhang ist der Bestellvorschlag<br><br>GruЯ,<br>Dima Zhurba"
     .Anhang = CurrentProject.Path & N & ".xlsx"
 
 
End With
 
Call CreateThunderbirdEmailObject
  
 
 
 
End Sub

sub Proc1(objExcelApp as object, objWorkbook as object, objSheet as object)

Proc1 objExcelApp, objWorkbook, objSheet

'это онсновная процедура,
 
Public Sub Prozedur_MB_8()
    Dim objExcelApp As Excel.Application
    Dim objWorkbook As Excel.Workbook
    Dim objSheet As Excel.Worksheet
'на этом месте производится экспорт из access, открытие эксель и самая большая процедура - форматирование в ексель
'в конце форматирование, которое с вашей помощью теперь происходит корректно, запусклся процесс
 
'call UML
'эта процедура была создана как продолжение форматирования так как в форматировании у меня не осталось места.
'здесь и находится основная проблема. програма не понимает чего я от нее хочу пытаясь выполнить какой то "with .range("bla bla") так далее.

Public Sub ExcelProc(objExcelApp As Object, objWorkbook As Object, objSheet As Object)
 
End Sub

Public Sub ExcelProc(objExcelApp As Excel.Application, objWorkbook As Excel.Workbook, objSheet As Excel.Worksheet)
    'Текст процедуры
End Sub

ExcelProc objExcelApp, objWorkbook, objSheet

Public Sub FormatSpalte_BESTELLEN_SIT(objExcelApp As Excel.Application, objWorkbook As Excel.Workbook, objSheet As Excel.Worksheet)

FormatSpalte_BESTELLEN_SIT objExcelApp, objWorkbook, objSheet

With objExcelApp.Range("B14")

With objSheet.Range("B14")

Public Sub Freeze(objExcelApp As Object, objWorkbook As Object, objSheet As Object)
 
With objSheet
 
With .Range("A1")
.Select
End With
        With objExcelApp.Windows(1)
            .SplitColumn = 0
            .SplitRow = 13
            .FreezePanes = True
        End With
  
End With
 
End Sub