Возможна ли выгрузка перекрестного запроса в Excel шаблон?
Сейчас реализовано так.

DoCmd.OpenWQuerry "name", acViewNormal, acReadOnly ' этот запрос создает новую табличку
DoCmd.OpenWQuerry "name1", acViewNormal, acReadOnly ' этот запрос создает перекресный запрос
DoCmd.Close acQuerry, "name1" ' это закрывает 2й запрос, почему то 1й формирует таблицу но не открывается а второй открывается (странность)
DoCmd.TransferSpreadSheet acExport, acSpreadSheetTypeExel5, "name1", "c:\test\test.xlsx"

В принципе такая выгрузка устраивает.
НО!
Перекрестный запрос не умеет (или я просто не знаю об этом) считать сумму по колоночно.
Поэтому хочется сделать готовый эксель файл с строчкой суммирования по колонкам.
Или при существующей выгрузке как то добавить кодом что бы в последней строке после выгрузки вставлялась формула суммирования.
_________________
кроме того интересует вопрос как заставить в данной конструкции выгружаться данные в нужный мне лист? так как почему то сейчас при экспорте в книге Excell создается лист с именем выгружаемого запроса, если такой лист есть создается такое же имя с добавлением циферки 1, при чем потом в последующем он ее перезатирает и новый лист не создает (прям полтергейст).
________________
2й вопрос, почему то при создании перекрестного отчета колокни определяются как формат даты 25_07_2015 (хочется привычный вид иметь как 25.07.2015)
Кроме того почему то навание колонок при выгрузке имеют название полей в перекрестном отчете, хотя по всем полям занесены описания, и хотелось бы вместо "Name_pol" видеть "наименование".
_______________
3й вопрос) как заставить в конце формирования отчета открывать файлик отчета сформированный в Excell)
__________________

Нашел примерный код:

Private Sub testexcel_Click()
'Объявляем переменные
Dim XL As Object
Dim XLT As Object
Dim newrow As Object
Dim rsd As ADODB.Recordset
Dim strSQL As String
Set rsd = New ADODB.Recordset
'Запрос к базе данных
strSQL = "select * from dbo.table where kod = " & Me.kod & ""
rsd.open strSQL, CurrentProject.Connection
'Создаем необходимые объекты
Set XL = CreateObject("Excel.Application")
'для примера показываю, как можно сразу загружать шаблон без выбора
Set XLT = XL.Workbooks.open("C:\testfile.xls")
'1 способ если источнике данных всего одна строка
With XLT.Worksheets("Лист1")
              .[a1] = rsd.Fields("field1")
              .[b1] = rsd.Fields("field2")
              .[c1] = rsd.Fields("field3")
              .[d1] = rsd.Fields("field4")
            End With
'2 способ если строк в источнике несколько
'причем мы учтем то, что у нас есть шапка и примечание в Excel
'и мы не знаем, сколько строк у нас вставится 
'и поэтому строки будем добавлять в случае необходимости
'зададим, с какой строки будем начинать вставлять данные
Rowss = 10
'для нумерации
numrow = 1
'запускаем цикл до тех пор, пока не закончатся строки в нашем источнике
While Not (rsd.EOF)
    'смотрим, если строк больше чем мы задали в шаблоне
     If Rowss >= 12 Then
	 'то добавляем строку
         XLT.Worksheets("Лист1").Rows(Rowss).Insert
	 'Запомним нашу строку
         Set newrow = XLT.Worksheets("Лист1").Rows(Rowss)
	 'и вставим туда копию предыдущей строки
	 'для того если вдруг у вас там есть объединенные ячейки или какие-то нужные данные
	 'так как новая строка создастся без всяких объединений и значений
         XLT.Worksheets("Лист1").Rows(Rowss - 1).Copy newrow
	 'это просто для примера как можно очистить некий диапазон внутри документа
         'XLT.Worksheets("Лист1").Range("A10:F10").ClearContents
         'динамически формируем адрес нужной ячейки
	 cell = "a" & Rowss
	 'и задаем ей значение
         XLT.Worksheets("Лист1").Range(cell) = numrow
         cell = "b" & Rowss
         XLT.Worksheets("Лист1").Range(cell) = rsd.Fields("field5").Value
         'переходим на следующую строку
	 Rowss = Rowss + 1
	 'переходим на следующую строку в источнике данных
         rsd.MoveNext
     Else
	 'а это выполняется до тех пор, пока не закончатся заданные строки в шаблоне
	 'т.е. если строк в источнике всего 1 то в код, который выше мы даже не попадем
         cell = "a" & Rowss
         XLT.Worksheets("Лист1").Range(cell) = numrow
         cell = "b" & Rowss
         XLT.Worksheets("Лист1").Range(cell) = rsd.Fields("field5").Value
         Rowss = Rowss + 1
         rsd.MoveNext
     End If
	'для нумерации
         numrow = numrow + 1
'конец цикла
Wend
'это просто пример как можно удалить строку целиком
'XLT.Worksheets("Лист1").Rows(20).Delete
'делаем Excel видимым
XL.Visible = True
'Очищаем переменные
Set XL = Nothing
Set XLT = Nothing
Set newrow = Nothing
End Sub

но в данном случае он берет данные из SQL, а я из перекресного запроса. И не понятно как его переделать для моего запроса =(

http://www.sql.ru/forum/1167592/vygruzka-perekrestnogo-zaprosa-v-xcell-shablon