Хотелось бы узнать ваше мнение об этом методе экспорта данных


Public Sub OpenEXCEL(strPathofTmpl As String, strNameofTblQry As String, iRow As Integer, iCol As Integer, iNSH As Integer, vrNofSh As Variant)
'strPathofTmpl - имя вместе с путем файла шаблона
'strNameofTblQry - имя сохраненного запроса
'iRow - начальная строка экспорта в файле шаблона
'iCol - начальныйстолбец экспорта в файле шаблона
'iNSH - номер листа книги в файле шаблона
'vrNofSh - новое имя листа книги шаблона, если null - имя остается старым

Dim db As DAO.Database
Dim rst As DAO.Recordset

Dim xlAPP As Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet
Dim rng As Range

Dim vArr() As Variant

Set db = CurrentDb()
Set rst = db.OpenRecordset(strNameofTblQry)
rst.MoveLast: rst.MoveFirst
vArr = rst.GetRows(rst.RecordCount)

Dim i As Integer, j As Integer
For i = 0 To UBound(vArr, 1)
For j = 0 To UBound(vArr, 2)
vArr(i, j) = Nz(vArr(i, j), Empty)
Next j
Next i


Set xlAPP = New Excel.Application
xlAPP.Visible = True
Set xlBook = xlAPP.Workbooks.Open(strPathofTmpl)
Set xlSheet = xlBook.Worksheets(iNSH)
If Not IsNull(vrNofSh) Then xlSheet.Name = CStr(vrNofSh) 'str$(Date)
Set rng = xlSheet.Cells(iRow, iCol)
Set rng = rng.Resize(UBound(vArr, 2) + 1, UBound(vArr, 1) + 1)
rng.Formula = xlAPP.WorksheetFunction.Transpose(vArr)

rst.Close
Set rst = Nothing
Set db = Nothing
Set rng = Nothing
Set xlSheet = Nothing
Set xlBook = Nothing
Set xlAPP = Nothing

End Sub

формат таблицы word-a по отчету

А можете ли вы дать один пример использования из всех этих функций ??????

А может самому(ой) попробовать??????

вывод в формате НТМ --открывается и в ворде и екселе
пример уже выкладывала

образец мдб-шки не помешал бы
а так отчет простой

А можете ли вы дать один пример использования из всех этих функций ??????

В excel вполне всё решаемо, так же как и в опен оффис
построчно заполняете всё что вам нужно.
Сколько есть строк столько и будет.
научитесь заполнять одну строку, а дальше - как по маслу пойдёт...........
и сохраняёте и печатайте и редактируйте сколько нужно........
http://hiprog.com/index.php?option=com_content&task=view&id=429

нет

при необходимости я решаю загрузкой данных в подготовленный шаблон Икцель

можете ли посоветовать как, если например это счет фактура, у которого есть верхная часть (фиксированная), имена материалов, цена и тд (число строк может изменяться) и нижная часть (тоже фиксированная)

может тогда сделать шаблон (удобнее в excel) и выгружать туда

Бывает так что приходиться вносить некоторые поправки в отчете, а в access-е как вам известно без конструктора не обойтись. Да и не целесообразно каждый раз менять отчет и опять обратно. А в word -е все эти проблемы легко решаемы!

при экспорте данных из отчета Access сами объекты Access не переносятся

Позвольте полюбопытствовать
а зачем в Ворд экспортировать, чем Вам печать отчета из под Акса не по нраву

Добрый день.
Можно ли сделать так чтобы при экспорте отчета в word сохранились и линии форматирования.