Допустим, источником формы является таблица "Company" с полем "Company", тогда так:

Dim rs As Object Set rs = CurrentDb.OpenRecordset("SELECT Company FROM Company") .Range("a1").CopyFromRecordset  rs

Не совсем допонимаю к чему все это?
Вот код. Работает на кнопку в форме. В ней подчиненными формами в данном случае сводные таблицы.
If Me.НаборВкладок249.Value = 1 Then
Forms!Обследования![Сводная таблица статистики1].SetFocus
Else
If Me.НаборВкладок249.Value = 2 Then
Forms!Обследования![Сводная таблица2].SetFocus
Else
End If
End If
DoCmd.RunCommand (acCmdPivotTableExportToExcel)

Тут 2 вкладки с разными сводными таблицами. Не суть. Последняя строка переводит то, что на экране в экслель без замечаний. Или у вас шаблон в экселе, а в необходимые места вставляются данные? Если так, то хотелось бы глубже в тему вникнуть.

Попробуйте так:

Dim objExcel As Object, wb As Object, rng As Object     Set objExcel = CreateObject("Excel.application")    objExcel.Visible = True    Set wb = objExcel.Workbooks.Add    Set rng = wb.WorkSheets(1).Range("A1")    rng.Value = "Компания" With rng.Offset(,1)    .EntireColumn.ColumnWidth = 23.29    .Value = "Название" End With    Set rng = Nothing    Set wb = Nothing    Set objExcel = Nothing

к сожалению не помогает при первой загрузке все цвета как должны быть при закрытии и при втором открытии все цвета теряются...закрываю акс, открываю вновь, при первой загрузке все цвета на месте, при второй пропадают, не пойму почему....

Dim objExcel As Excel.Application
Dim rs As Object
Set rs = CurrentDb.OpenRecordset("SELECT Company FROM Company")
Set objExcel = New Excel.Application

With objExcel
.Visible = True
.Workbooks.Add
.Range("a1").CopyFromRecordset rs
.Range("a1").ColumnWidth = 23.29
.Range("a1").Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 65535
.TintAndShade = 0
.PatternTintAndShade = 0
End With
End With

дело в том что он мне в первый раз выдает все как надо, цвет желтый, а во второй раз не выдает...

огромное спасибо, все встало на свои места!

я делаю вот так...

Dim jkl As String
jkl = CurrentProject.Path 'считываем путь проекта
Dim dfr As Object
Dim dfg As Object
Set dfg = CreateObject("Excel.Sheet")
Set dfr = dfg.Parent
dfr.Workbooks.Add jkl & "\ШаблонОтчета.xls" 'открываем шаблон
dfr.Visible = False 'True если показать окно Excel, но лучше потом когда всю инфу выгрузишь
dfr.ActiveWindow.WindowState = xlMaximized

'далее dfr. и чего хочешь сделать dfr.cells(1,1)="Всякая ерунда" запишет в ячейку А1 фразу всякая ерунда

и еще один вопросик есть следующее:

Dim Company As Object
Set Company = CurrentDb.OpenRecordset("SELECT Company,Project FROM Company")

я незнаю как много будет компаний будет, project предположим это какая то сумма, как мне в последней строчке вписать сумму этих значений...
Знаю вот так выводиться сумма, но незнаю на каком значении "В"
.Range("B7") = "=SUM(R[-4]C:R[-1]C)"

пробую Dim nRow

nRow=nRow+1
но что то не так...

а есть какие нибудь примеры, что то не получается

этой строчкой он вырывает из запроса company последнюю компанию и Project соответственно, а мне нужен весь список, и в последней строчке предположим разместить тот же recordcount пробую так:

Dim countrow As Long
Company.MoveLast
countrow = Company.RecordCount
.Range("B" & countrow) = "20"

на всякий случай прикрепил файл, может я по кривому объясняю...

Подскажите, что не так ? есть таблица, есть экселевский файл, но в эксель не экспортирует... заранее благодарю.

Dim objXls As Object
Dim rst As Recordset
Dim i As Long
Set rst = CurrentDb.OpenRecordset("Company")
Set objXls = GetObject("C:\Documents and Settings\vasiliy.OMT\Мои документы\ERTE.xls")
objXls.Worksheets("Лист1").Activate
i = 2
Do While Not rst.EOF
objXls.Worksheets("Лист2").Cells(i, 2) = rst![Company1]
objXls.Worksheets("Лист2").Cells(i, 3) = rst![Project]
rst.MoveNext
i = i + 1
Loop
objXls.Worksheets("Лист2").Cells(i, 2).Formula = "=SUM(B2" & i - 1 & ")"
objXls.Worksheets("Лист2").Cells(i, 3).Formula = "=SUM(C2:C" & i - 1 & ")"
rst.Close
Set rst = Nothing
objXls.Application.Workbooks("Книга1.xls").Save
objXls.Application.Quit
Set objXls = Nothing

пытаюсь выгрузить таблицу Company, с полями Company1 и Project в excel, необходимо чтоб в конце поля Project выдавал сумму значений (в excel) так как я не силен в этом прочел на форуме о таком способе но выгрузка не идет...

ошибок не каких не выдает, как будто грузит, песочные часы появляются, и все...захлебывается

Excel вообще не грузится, файл точно есть, перенес файл, ничего не изменилось, я думаю где то в написании кода ошибка.

Конечно, не грузится, т.к. Вы используете GetObject, т.е. файл уже должен быть загружен. ;-)

я видел, все у меня получилось, большое спасибо, пытаюсь другие методы освоить
А подскажите если в форме имеется подчиненная форма, ее в тот же запрос прописывать нужно? или можно другой записать? например :
dim flightsZap As Object
Set flightsZap = CurrentDb.OpenRecordset("SELECT JS, Flights FROM Companies")

или добавлять к companies?
Dim Companies As Object
Set Companies = CurrentDb.OpenRecordset("SELECT Company1, Project FROM Companies")

Пытаюсь сделать фильтр в запросе, что то вроде:

Set rs = CurrentDb.OpenRecordset("SELECT Company FROM Company WHERE company = Forms!Company! Company1")

не фурыжит , а в запросе получается, вписываешь в условие отбора Forms!Company! Company1 и все... вопрос почему не получается в vba ?

Спасибо! Пробел я случайно при копировании поставил.

неужели никто не подскажет где косяк?

Спасибо за ответ, только ту же самую ошибку выдает

Спасибо, получилось, только вот так:

WHERE Data BETWEEN #" & Format(Forms!Otchet![Na4].Value, "mm-dd-yyyy") & "# AND #" & Format(Forms!Otchet![Kon].Value, "mm-dd-yyyy") & "#