Private Sub Command7_Click()
Dim dbs As Database
Dim tabl As Recordset
Dim a, a1, a2, a3, a4, a5, a6, a7, a8, a9, a10 '' это все variant
Dim a11 As String
Dim objXL As Object
Dim objWB As Object
Dim objWS As Object

Set objXL = CreateObject("Excel.Application")
objXL.Visible = False
Set objWB = objXL.Workbooks.Open("C:\Templates\test.xlsx")
Set objWS = objWB.Worksheets("form")

Set dbs = CurrentDb()
'TotalBalance2  --не нашла --заменила на TotalBalance1
Set tabl = dbs.OpenRecordset("TotalBalance1", dbOpenTable)
tabl.MoveLast
tabl.MoveFirst
a = tabl("SumOfA_001")
a1 = tabl("SumOfA_005")
a2 = tabl("SumOfA_007")
a3 = tabl("SumOfA_011")
a4 = tabl("SumOfA_019")
a5 = tabl("SumOfA_020")
'a6 = tabl("SumOfA_022")
'a7 = tabl("SumOfA_023")
'a8 = tabl("SumOfA_005")
'a9 = tabl("SumOfA_005")
'a10 = tabl("SumOfA_005")
'a11 = tabl("SumOfA_005")


With objWS
.Cells(14, 3).Value = a
.Cells(15, 3).Value = a
.Cells(16, 3).Value = a1 + a2
.Cells(17, 3).Value = a1
.Cells(18, 3).Value = a2
.Cells(19, 3).Value = a3 + a4 + a5 + a6 + a7
.Cells(20, 3).Value = a3
.Cells(21, 3).Value = a4
.Cells(22, 3).Value = a5
.Cells(23, 3).Value = a6
.Cells(24, 3).Value = a7

End With
MsgBox "Export sucesfuly."
'' закрытие книги и екселя
objXL.ActiveWorkbook.Close True
objXL.Quit
'' повторное открытие
Shell "excel.exe C:\Templates\test.xlsx", vbMaximizedFocus
'End Sub
End Sub