импорт данных в dbf из файлы excel

← →
Zloy © (2004-12-17 12:31) [0]

Приветствую!!! поделитесь плиз опытом в этой области...

← →
Александр Иванов © (2004-12-17 12:33) [1]

А что опыт, когда нужно беру, выгружаю, и радуюсь ...
А в чем загвоздка?

← →
Zloy © (2004-12-17 12:37) [2]

загвоздка в том, что не знаю как...

← →
Соловьев © (2004-12-17 12:37) [3]

http://www.delphikingdom.com/asp/viewitem.asp?catalogid=502

← →
ЮЮ © (2004-12-17 12:37) [4]

MS Excel
File > Save as... > *.dbf :)

← →
Zloy © (2004-12-17 12:46) [5]

> MS Excel
> File > Save as... > *.dbf :)

Мне нужно чтобы прога сама это делала, тем более так нормально он не сохраняется

← →
Zloy © (2004-12-17 12:54) [6]

> http://www.delphikingdom.com/asp/viewitem.asp?catalogid=502

Там функция позволяет записывать в файл экселя, а мне нужно наоборот, чтобы прога из экселя в dbf записывала

← →
Соловьев © (2004-12-17 12:59) [7]

прогнал :)

← →
Соловьев © (2004-12-17 13:02) [8]

юзай ODBC источник

Ворд, эксель и другие средства из Микрософт Офис поддерживают Ole Automation
В Delphi есть на панели компонент даже закладка Servers

ADO + Jet поддерживает оба исама (ексель/dbase если изать как базы/данные без форматирований и т.д.) и гетерогенные запросы между ними, бери и пользуйся.

← →
SerSar (2004-12-17 15:57) [11]

var FileNameIn,FileNameOut : string;
i,len : integer;
ExcelApp, Workbook, Sheet: Variant;
CellValue1,CellValue2 : Real;
begin
FileNameIn := "ExcelFile.xls";
FileNameOut := "DbfFile.dbf"
// Запустить приложение Excel
ExcelApp := CreateOleObject("Excel.Application");
Workbook := ExcelApp.WorkBooks.Add(FileNameIn);
Sheet := Workbook.WorkSheets[1];
len := Sheet.Cells.SpecialCells(11).Row; //xlLastCell - последняя строка
Table1.TableName := FileNameOut;
Table1.Active := True;
for i := 2 to len do begin
CellValue1 := Sheet.Cells[i, 1].Value; // Читаем значение
CellValue2 := Sheet.Cells[i, 2].Value;
Table1.Append;
Table1.FieldValues["Barkod"] := CellValue1;
Table1.FieldValues["Barkod_Old"] := CellValue2;
Table1.Post;
end;
Table1.Close;
ExcelApp := Unassigned;
end;

импорт данных в dbf из файлы excel Найти похожие ветки