Как экспортировать записи из таблицы Excel в Paradox ?

← →
Sairex © (2006-07-17 12:02) [0]

Здраствуйте, Мастера.
У меня вопрос, Как экспортировать записи из таблицы Excel в Paradox ? Поскольку в Excel таблице содержиться около 4,5 тыс. записей, а переписывание из одной в другую займет уйму времени.

← →
sniknik © (2006-07-17 12:08) [1]

в екселе, "сохранить как" и выбираеш тип Paradox.

← →
rosl (2006-07-18 01:40) [2]

выгрузка данных из excel в файл *.dbf
кусок из моей программки. корявенько, но работает.

uses
COMObj, Excel2000, Excel97;

var
Excel: variant;
i, n, s, p, v, c, vi, kl, dkl, os: word;
nam, shet, podr, ved, c_st, vr, klass, dklass, ost: string;
x : Integer;

Excel := CreateOleObject("Excel.Application");
Excel.Workbooks.Open(OpenDialog.FileName);
Excel.ActiveCell.SpecialCells(xlLastCell).Select;
x := Excel.ActiveCell.Row - 4;

for i := 8 to x do
for n := 1 to 1 do
for s := 2 to 2 do
for p := 3 to 3 do
for v := 4 to 4 do
for vi := 5 to 5 do
for c := 6 to 6 do
for kl := 7 to 7 do
for dkl := 8 to 8 do
for os := 14 to 14 do
begin
nam := Excel.Sheets[1].Cells[i,n].Text;
shet := Excel.Sheets[1].Cells[i,s].Text;
podr := Excel.Sheets[1].Cells[i,p].Text;
ved := Excel.Sheets[1].Cells[i,v].Text;
c_st := Excel.Sheets[1].Cells[i,c].Text;
vr := Excel.Sheets[1].Cells[i,vi].Text;
klass := Excel.Sheets[1].Cells[i,kl].Text;
dklass:= Excel.Sheets[1].Cells[i,dkl].Text;
ost := Excel.Sheets[1].Cells[i,os].Text;

begin
DM_dat.T_proverka.Insert;
DM_dat.T_proverka.FieldByName("name").AsString:=nam;
DM_dat.T_proverka.FieldByName("shet").AsString:=shet;
DM_dat.T_proverka.FieldByName("podr").AsString:=podr;
DM_dat.T_proverka.FieldByName("ved").AsString:=ved;
DM_dat.T_proverka.FieldByName("cst").AsString:=c_st;
DM_dat.T_proverka.FieldByName("vr").AsString:=vr;
DM_dat.T_proverka.FieldByName("klass").AsString:=klass;
DM_dat.T_proverka.FieldByName("dklass").AsString:=dklass;
DM_dat.T_proverka.FieldByName("ost").AsCurrency:=strtocurr(ost);
DM_dat.T_proverka.Next;
end;
Excel.DisplayAlerts := false;
Excel.Workbooks.close;

← →
Медведъ (2006-07-18 08:59) [3]

вот это да

Спасибо ребята выручили...

Как экспортировать записи из таблицы Excel в Paradox ? Найти похожие ветки