Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

импорт данных в dbf из файлы excel [D7, dBase, FoxPro]

Zloy © (2004-12-17 12:31:00)
Приветствую!!! поделитесь плиз опытом в этой области...

SerSar (2004-12-17 15:57:00) [1]
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;

sniknik (2004-12-17 13:20:00) [2]
ADO + Jet поддерживает оба исама (ексель/dbase если изать как базы/данные без форматирований и т.д.) и гетерогенные запросы между ними, бери и пользуйся.

Anatoly Podgoretsky (2004-12-17 13:09:00) [3]
Ворд, эксель и другие средства из Микрософт Офис поддерживают Ole Automation
В Delphi есть на панели компонент даже закладка Servers

Соловьев (2004-12-17 13:02:00) [4]
юзай ODBC источник

Соловьев (2004-12-17 12:59:00) [5]
прогнал :)

Zloy (2004-12-17 12:54:00) [6]

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

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

Zloy (2004-12-17 12:46:00) [7]

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

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

Zloy (2004-12-17 12:37:00) [8]
загвоздка в том, что не знаю как...

Соловьев (2004-12-17 12:37:00) [9]
http://www.delphikingdom.com/asp/viewitem.asp?catalogid=502

ЮЮ (2004-12-17 12:37:00) [10]
MS Excel
File > Save as... > *.dbf :)

Александр Иванов (2004-12-17 12:33:00) [11]
А что опыт, когда нужно беру, выгружаю, и радуюсь ...
А в чем загвоздка?

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »