Я делал сам, вот, если интересно

// ===============================
Функция глПолучитьИмяВремФайла() Экспорт
     ИмяФ = 0;
     Для Сч=1 По 100 Цикл
           ВремИмяФ = КаталогИБ()+"tmp"+Строка(Сч)+".dbf";
           Если ФС.СуществуетФайл(ВремИмяФ)=0 Тогда
                 ИмяФ = "tmp"+Строка(Сч);
                 Прервать;
           КонецЕсли;
     КонецЦикла;
     глСписокВременныхФайлов.ДобавитьЗначение(ИмяФ);
     Возврат ИмяФ;
КонецФункции


//Функция выгружает список объектов (СО) во внешний ДБФ-файл с заданным именем (ИмяФ)
//в каталог ИБ, в качестве СО может быть передан либо список значений, либо ТЗ, во
//втором случае необходимо передать номер или идентификатор колонки, которую надо выгрузить
//Если Дописать=1 тогда дописываем данные в переданный файл
Функция глУложитьСписокОбъектов(СО,ИмяФ=0,НомКол=0,БезГрупп=0,Дописать=0) Экспорт
     Если Дописать=1 Тогда
           Если ИмяФ=0 Тогда
                 Сообщить("Функция глУложитьСписокОбъектов","i");
                 Сообщить("Если флаг Дописать=1, должно передаваться имя существующего DBF файла!","!");
           КонецЕсли;
     Иначе
           Если ИмяФ=0 Тогда
                 ИмяФ = глПолучитьИмяВремФайла();
           КонецЕсли;
           Если ИмяФ=0 Тогда
                 Сообщить("Функция 'УложитьСписокОбъектов'","i");
                 Сообщить("Не удалось создать временный файл!","!");
                 Возврат 0;
           КонецЕсли;
     КонецЕсли;
     Уложено = 0;
     Попытка
           Ф = СоздатьОбъект("XBase");
           Если Дописать=1 Тогда
                 Ф.ОткрытьФайл(КаталогИБ()+ИмяФ);
                 Если Ф.Открыта()=0 Тогда
                       Сообщить("Не удалось открыть файл!","!");
                       Возврат 0;
                 КонецЕсли;
                 Если Ф.НомерПоля("Val")=0 Тогда
                       Сообщить("Файл неверной структуры!","!");
                       Возврат 0;
                 КонецЕсли;
           Иначе
                 Ф.ДобавитьПоле("Val","C",9,0);
                 Ф.СоздатьФайл(КаталогИБ()+ИмяФ);
           КонецЕсли;
           Ф.АвтоСохранение(1);
           Если ТипЗначенияСтр(СО)="СписокЗначений" Тогда
                 Для Сч=1 По СО.РазмерСписка() Цикл
                       Зн = СО.ПолучитьЗначение(Сч);
                       Если (БезГрупп=1)и(Зн.ЭтоГруппа()=1) Тогда
                             Продолжить;
                       КонецЕсли;
                       Уложено = Уложено + 1;
                       Ф.Добавить();
                       Ф.Val = глМета.ЗначениеВСтрокуБД(Зн.ТекущийЭлемент());
                 КонецЦикла;
           ИначеЕсли ТипЗначенияСтр(СО)="ТаблицаЗначений" Тогда
                 Для Сч=1 По СО.КоличествоСтрок() Цикл
                       Зн = СО.ПолучитьЗначение(Сч,НомКол);
                       Если (БезГрупп=1)и(Зн.ЭтоГруппа()=1) Тогда
                             Продолжить;
                       КонецЕсли;
                       Уложено = Уложено + 1;
                       Ф.Добавить();
                       Ф.Val = глМета.ЗначениеВСтрокуБД(Зн.ТекущийЭлемент());
                 КонецЦикла;
           КонецЕсли;
           Ф.ЗакрытьФайл();
     Исключение
     КонецПопытки;
     Возврат Уложено;
КонецФункции      // глУложитьСписокОбъектов

А Прямой доступ через OLE DB не устраивает?
Там есть:
УложитьСписокОбъектов / PutObjectList сохраняет Объект (или список объектов, если передан список значений) во временную таблицу. Имя временной таблицы генерируется методом и возвращается через второй параметр (именем является GUID). Временная таблица имеет поле VAL CHAR(9) и служебное поле ISFOLDER NUMERIC(1,0).