Экспорт в EXCEL

AlexDE
Дата: 29.01.2016 17:43:34
пытаюсь экспортировать в готовый файл который отформатирован как мне надо с определенной строки.

DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, "LagerListeDIB_Export", ZielFile, False, "Tabelle1!A8:L150000"

Выдает ошибку 3010 Таблица "Tabelle1!A8:L150000" уже сущестбует

как ее обойти??
Анатолий ( Киев )
Дата: 29.01.2016 17:59:35
А файл при этом закрыт?
AlexDE
Дата: 29.01.2016 18:09:30
закрыт, если убираю "Tabelle1!A8:L150000" , то создает новый лист с именем таблицы и копирует туда.
А мне надо что но именно в отформатированный лист копировал.
guest_rusimport
Дата: 29.01.2016 19:51:42
AlexDE,
а если использовать альтернативный вариант ?
Dim xl As Object, xlWb As Object
Dim rs As DAO.Recordset
z = ZielFile
Set xl = CreateObject("Excel.Application")
Set xlWb = xl.Workbooks.Open(z)
xl.Visible = True
Set rs = CurrentDb.OpenRecordset("select * from LagerListeDIB_Export")
xl.Workbooks(1).Worksheets("Tabelle1").Cells(8, 1).CopyFromRecordset rs
xlWb.Save
xlWb.Close
Set xlWb = Nothing
Set xl = Nothing
rs.Close
Set rs = Nothing
AlexDE
Дата: 02.02.2016 17:49:09
guest_rusimport,

Спасибо , только сегодня протестировал. Работает без проблем.