Привет всем уважаемым участникам форума!
Проблема такая, когда то делал экспорт из Excel в dbf, для использования dfb в 1С. Делал вроде через Delphi 7, используя DataBase desktop. Сейчас стоит Delphi 2009 там нет DataBase Desktop. Как можно выкрутиться быстро из этой ситуации?

PS как вариант можно просто считать из Excel в справочник, подскажите код ,как подключиться к Excel. Спасибо

(0) http://connectionstrings.com/

(0) ВК RiK_SQL

ЗагрузитьТаблицуИзЕкселя(<?>,,,,,,);
Синтаксис:
ЗагрузитьТаблицуИзЕкселя(<ИмяФайла>,<ТаблицаЗначений>,<Область>,<СписокНомеровКолонок>,<ИмяЛиста>,<СсылкаНаExcel>,<ЗакрыватьExcel>)
Назначение:
Считывает в таблицу значений данные из файла Excel.
Возвращает: 1 в случае удачного выполнения метода, 0 - в случае ошибки.
Параметры:

<ИмяФайла> - строка, файл, из которого будут извлекаться данные.
<ТаблицаЗначений> - ПУСТАЯ таблица значений, в которой будут возвращены данные из файла. Колнки результирующей таблицы будут иметь названия Колонка<НомерКолонкиВТаблицеЗначений> (например - Колонка2).
<Область> - строка, адрес области (ЛевыйВерхнийУгол : ПравыйНижнийУгол, либо числами в формате <КолонкаНачала|СтрокаНачала|КолонкаКонца|СтрокаКонца>) из которой необходимо считать данные. Если в адресе правого нижнего угла вместо количества строк указан знак ? - будут считаны все строки до конца файла. Например: 'A1:D?'.
<СписокНомеровКолонок> - необязательный параметр, список значений, содержащий номера колонок результирующей выборки, которые необходимо поместить в таблицу значений. Если данный параметр опущен - в ТЗ будут помещены все колонки выборки.
<ИмяЛиста> - необязательный параметр, строка, имя листа Excel. Значение по умолчанию - 'Лист1'.
<СсылкаНаExcel> - необязательный параметр, ссылка на созданный в 1С объект Excel.Application. Если этот параметр не пустой, компонента Excel создавать не будет, а будет пользоваться переданным ей из 1С.
<ЗакрыватьExcel> - необязательный параметр, 1 - после выполнения метода Excel будет закрыт, 0 - нет.

Пример:

   ТабТемп = СоздатьОбъект(''ТаблицаЗначений'');
   Спис    = СоздатьОбъект(''СписокЗначений'');
   Спис.ДобавитьЗначение(2);
   Спис.ДобавитьЗначение(4);
   Сообщить(ОбъектП.ЗагрузитьТаблицуИзЕкселя(''C:\Temp\Удалить\Все файлы для Паши Зотова\ПоляТаблицыСкоринга1.xls'',ТабТемп,''A1:D?'',Спис,''СправочникиДляПолей''));

Пример 2:
Процедура ЗагрузкаРиК_1С()
   ОбъектП.ОткрытьОкноСообщения(''Загружаем данные...'');
   НачВыгрузки = _GetPerformanceCounter();
   ТемпТаб    = СоздатьОбъект(''ТаблицаЗначений'');
   
   Попытка
       // запускаем Excel-Server
       ExProg = СоздатьОбъект(''Excel.Application'');
   Исключение      
       Сообщить(ОписаниеОшибки(),''!'');
       Возврат;
   КонецПопытки;
   Попытка
       НужныйФайл  = ExProg.Workbooks.Open(СокрЛП(ФайлДляЗагрузки));
       НужныйЛист  = НужныйФайл.Sheets(''Лист1'');
       ExProg.Visible    = 0;
   Исключение
       Предупреждение(''Произошла ошибка при загрузке информации !!!'');
       Возврат;
   КонецПопытки;
   
   Если ОбъектП.ЗагрузитьТаблицуИзЕкселя(СокрЛП(ФайлДляЗагрузки),ТемпТаб,''A1:AX?'',,,ExProg) <> 1 Тогда
       ОбъектП.ЗакрытьОкноСообщения();
       Предупреждение(''Произошла ошибка при загрузке информации !!!'');
       Возврат;
   КонецЕсли;

   КонВыгрузки = _GetPerformanceCounter();
   Сообщить(''Время загрузки РиК составило ''+Цел((КонВыгрузки-НачВыгрузки)/1000)+'' секунд'');
   
   ОбъектП.ЗакрытьОкноСообщения();
   //ТемпТаб.ВыбратьСтроку();
КонецПроцедуры

Excel штатно умеет сохранять файлы в формате дбф

(3) Ну кто мешает изобретать велосипед, даже полезно иногда))

(0) в екселе: Файл - Сохранить как... - Тип файла (dBase IV)

Что касаемо клюшек, то грузить туда можно и из екселя через оле, а не только через объект xbase если что...

(0) Месье знает толк в извращениях :))

из Excel можно сохранить в dBase IV, но файл не открывается в 1С!

Подскажите более простой и надежный способ, без извращеньев!

(7) Что значит не открывается? Он читается и этого достаточно. А зачем из Экселя сохранять в ДБФ, что бы потом открывать его из 1С.
Почему Эксель сразу не открыть в 1С?

(7) А почему IV?

(7) ак ка ты его пытаешься открыть в 1с? О_о

(7) не "не открывается в 1С", а "не открывается штатными средствами 1С". И открывается и читается совершенно замечательно :)

хорошо, сохранил как в dBase4, нужно посмотреть поля или нет? Открываю прогой FildWin (для просмотра dbf файлов)- выдает ошибку, как поля считать, и занести в справочник 1с, не зная названий полей?

КоличествоПолей()
Синтаксис:
КоличествоПолей()
Назначение:
Возвращает количество полей в записи.

ОписаниеПоля(<?>,,,,)
Синтаксис:
ОписаниеПоля(<НомерПоля>,<НазваниеПоля>,<Тип>,<Длина>,<Точность>)
Назначение:
Возвращает в параметрах описание поля с заданным номером.
Параметры:
<НомерПоля> - номер поля для которого требуется получить описание,
<НазваниеПоля> - идентификатор переменной для названия поля,
<Тип> - идентификатор переменной для типа поля в соответствии с инструкциями CodeBase,
<Длина> - идентификатор переменной для длины поля,
<Точность> - идентификатор переменной для числа знаков после десятичной точки (только для числовых полей).
Подробнее см. в документации, глава ''Работа с базами данных DBF формата''

(12) Здравствуй Света

(12) при сохранении в дбасе4 ты структуру файла блюдел? типа: первая строка - заголовки полей на инглише и не более 8 допустимых символов. Не должно быть пустых строк и т.д.?

>Достижения (опыт)    1С77,MSSQL2k
и другие страшные слова

Пипец...

а ф т а р - м у д а к.....

аткравенный....

P.S. сохранить как - ДБФ-III.  Эти файлы одноэсина прекрасно читает

(18) на... иду урод!

Неужели? Сам уже идешь? Как в (19)?

P.S. формат ДБФ-4 одноЭсина не поддерживает.....

(7) Почему Эксель сразу не открыть в 1С?
как можно сразу считать Excel в 1C?

"но если туп как дерево - родишься баобабом. И будешь баобабом тыщщу дет, пока помрешь."©

(20) ДБФ-4 поддерживает даже семерка (через АДО и небольшой патч реестра)

(23) Прекрасно читает и через ХБэйс

(24) в лоб далеко не все, например фоксовый формат....

2007 эксель не поддерживает экспорт в dBase

мля, вас не поймешь то поддерживает то нет....
есть нормальные ссылки на нормальный хэлп, на этом форуме ,киньте кому не трудно? Задолбался искать....

PS мануал по теме...

Севда Гудратовна Гюльмамедова

"ДБФ-4 поддерживает даже семерка (через АДО и небольшой патч реестра)"

типично через.опное решение от вде69.
любит челаэк драть гланды как всегда, через одно место....


(21)
"Почему Эксель сразу не открыть в 1С?"


при 40 тыс строчек в экселе сохранить в ДБФ (программно, прямо из 1С) а потом протрясти ДБФ будет быстрее, чем просто трясти эксель...


(21)
"как можно сразу считать Excel в 1C?"


тетю Олю позвать западло?

(28) а хрен чищеный не надо? А то есть... Даром....

db=CreateObject("ADODB.Connection");
   rs=CreateObject("ADODB.Recordset");
   db.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="+НазваниеФайла+";Extended Properties=""Excel 8.0;"+?(флХедер=1,"","HDR=NO;")+"IMEX=1;""";
   //db.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="+НазваниеФайла+";Extended Properties=""Excel 8.0;HDR=NO; IMEX=1;""";
   //HDR=NO - Имена полей имеют вид "F1, F2, F3..." то-есть буква "F" и порядковый номер колонки. Если данный параметр опустить
   // имена полей беруться из первой строки - для таблиц Экселя норма.
   db.Open();
   rs.ActiveConnection = db;
   rs.CursorType = 3; //3
   rs.LockType = 1;//2
   rs.Source = "Select * from ["+строка(test)+"$"+"]";
   rs.Open();

(29) "при 40 тыс строчек в экселе сохранить в ДБФ (программно, прямо из 1С) а потом протрясти ДБФ будет быстрее, чем просто трясти эксель" - Петь, ты не прав...

(32) Прав.... Ибо это верно для любой машины у клиентов, а твои решения с АДО или 1С++ у клиента могут
- не запуститься
- могут быть запрещены групповой политикой
- и т.д.

(33) Петь, фигню говоришь. Если у клиента такая картина, то надо админу с ноги в любое место да несколько раз.

Зря... не все вещи определяет свой админ....
есть клиенты, у которых голова в Мск и все диктуют оттель....

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

(36) :))

накуй, накуй - пусть курятник распугивают тамошние идиоты... Мое дело сторона....

(35) +100

(29) А сразу в Экселе сохранить 40000 в ДБФ-4 тоже дольше будет? А вообще, я через буфер предпочитаю гонять загрузки/выгрузки.

Мдя..ну наворотили то)) Из екселя в дбф с помощью делфи... сохранить ексел как дбф...(не всегда все хорошо проходит)
Ни...
Подключаемся к ексель, создаем пустой дбф с колонками нужными, а потом данные из екселя перекачиваем в дбф...

создание дбф
ДБФ1 = СоздатьОбъект("XBASE");    
   
 ДБФ1.ДобавитьПоле("NOMER","N",15,0);
 ДБФ1.ДобавитьПоле("DATA","D",10,0);    
 
ДБФ1.СоздатьФайл("аааа.dbf");
  ДБФ1.ЗакрытьФайл();    


заполнение дбф (есстесно в цикле)
 ДБФ1.Добавить();    
ДБФ1.УстановитьЗначениеПоля("DATA",б);// б -эт переменная с нужной инфой
ДБФ1.Записать();

(0)
всегда сохранял в dbf из Excel - Сохранить как..
и всегда работало, что я делаю не так?

(42)+1
хотя копейки могут потеряться

Изречение: В умной беседе быть – ума прикупить, а в глупой – и свой растерять.

Спасибо, всем кто посчитал правильным ответить без выпендрежа, честь таким и хвала. А тем, флудильщикам-просто делать было нечего, да и сказать им особо нечего!