Макрокоманда «ВыполнитьСохраненныйИмпортЭкспорт»

[Avalia]

Здравствуйте! Работаю в 2007 офисе и не могу найти в аксе макрокоманду «ВыполнитьСохраненныйИмпортЭкспорт» . Подскажите, пожалуйста, как ее добавить в список макрокоманд?
Здесь написано, что есть такая макрокоманда. Или я что-то не поняла?

[Teslenko_EA]

Здравствуйте
замечательная ссылка, но Вы очевидно не заметили См.также - еще три ссылки 1, 2, 3, там можно найти интересующую Вас информацию.
Евгений.

[Avalia]

Сообщение от Teslenko_EA

Здравствуйте
замечательная ссылка, но Вы очевидно не заметили См.также - еще три ссылки

Спасибо!
Прежде чем опубликовать свой вопрос, я ознакомилась с этой информацией, но, после произведенных манипуляций, результат остался тот же.
Но есть более легкий путь
В 2003 аксе есть макрокоманда "Преобразовать текст", при помощи которой можно экспортировать/импортировать в csv и др.
Так же просто как:

DoCmd.OutputTo acOutputTable, "имяТаблицы", acFormatXLS, "ПолныйПутьФайла\ИмяФайла.xls" ' экспорт

и

DoCmd.TransferSpreadsheet acImport, , "имяТаблицы", "ПолныйПутьФайла\ИмяФайла.xls", True ' импорт

но, с явными приемуществом в том, что нет потери данных.
А в отличии от других методов для выгрузки/загрузки - простота в использовании, игнор ошибок и выгрузка без заголовков.

[Teslenko_EA]

Здравствуйте Avalia.
Экспортировать данные (рекордсет) можно с применением VB(A):

Sub SqlToExel()
On Error GoTo 9
Dim XL As Excel.Application
Dim XLT As Object, rs As Recordset, s As String, i As Integer
Err.Clear
    s = "select * from TBL"
    Set rs = CurrentDb.OpenRecordset(s)
    Set XL = CreateObject("Excel.Application")
    XL.Workbooks.Add
    Set XLT = XL.Worksheets(1)
    XLT.Range("A2").CopyFromRecordset rs
    For Each fld In rs.Fields
        i = i + 1
        XLT.Cells(1, i) = fld.Name
    Next
    XL.Application.Visible = True
9
Set XLT = Nothing
Set XL = Nothing
Set rs = Nothing
End Sub

подключив к проекту библиотеку Excel.
Евгений.

[Avalia]

Сообщение от Teslenko_EA

Экспортировать данные (рекордсет) можно с применением VB(A):

Спасибо за код, обязательно им воспользуюсь