Paradox в Excel

← →
and_sp (2002-12-03 09:32) [0]

Подскажите, пожалуйста, как преобразовать базу Paradox в файл Excel?
Заранее благодарен!

← →
sniknik © (2002-12-03 10:31) [1]

нашол тоже проблему, сам Excel понимает Paradox файлы, открыть там выбери все файлы *.* и выбирай свою базу. (офис 2000, за < не ручаюсь)

← →
and_sp (2002-12-03 11:41) [2]

Дело в том что нужен именно файл *.xls...

← →
Geka (2002-12-03 11:48) [3]

А потом сохранить как и в путь...

← →
and_sp (2002-12-03 15:15) [4]

Не, такой вариант мне не подходит...

← →
Arhelon © (2002-12-03 15:24) [5]

Открываешь свою базу потом через оле ентот датасет пихаешь построчно в эксел потом ентому оле объекту (эеселю) говоришь сохрани мол там то и все.
Есть ещё куча халявных компонент которые берут датасет и заполняют им эксель.
Или Тебе вообще влом что-то самому делать, думать и тд ???

← →
sniknik © (2002-12-03 15:53) [6]

почему не подходит? слишком просто? можно придумать посложнее см. хотя бы up -> Arhelon © (03.12.02 15:24)
но не зная чего ты хочеш и для чего невозможно давать конкретные советы на неопределенные вопросы, одному, тут помошник требуется с высшим телепатическим образованием.
а давать тебе вариант за вариантом пока тебе не попрет, влом, ты уж извини.

А если Записей больше 1000 ? То Оле или рухнет или будет это делать таааак долго.. Я уже пробовал..

← →
Jeka (2002-12-08 15:53) [8]

короче есть прога Т2Т вроде на http://bubble.pdc.ru
она копирует db в dbf и наоборот короче как захочеш.
dbf открывается при помоще excelя

← →
Jeka (2002-12-08 16:16) [9]

А вот еще, откопал в старых конспектах
короче на форме ставиш компонент табле, датасерс, дбгрид, кнопку и ExcelApplication
со страници Servers. Все соеденяеш кроме ExcelApplication
патом на батонклик пишеш:
procedure TForm1.SpeedButton1Click(Sender: TObject);
var
RangeE:Excel2000.Range;
I, Row:Integer;
Bookmark:TBookmarkStr;
begin
ExcelApplication1.Visible[0]:=True;
ExcelApplication1.Workbooks.Add(NULL,0);
RangeE:=ExcelApplication1.ActiveCell;
for I:=0 to Table1.Fields.Count - 1 do
begin
RangeE.Value:=Table1.Fields [I].DisplayLabel;
RangeE:=RangeE.Next;
end;
try
Bookmark:=Table1.Bookmark;
try
Table1.First;
Row:=2;
while not Table1.Eof do
begin
RangeE:=ExcelApplication1.Range["A"+
IntToStr(Row), "A"+ IntToStr(Row)];
for I:=0 to Table1.Fields.Count - 1 do
begin
RangeE.Value:=Table1.Fields[I].AsString;
RangeE:=RangeE.Next;
end;
Table1.Next;
Inc(Row);
end;
finally
Table1.Bookmark:=Bookmark;
end;
finally
Table1.EnableControls;
end;
RangeE:=ExcelApplication1.Range["A1","E"+ IntToStr (Row-1)];
RangeE.AutoFormat(3,NULL,NULL,NULL,NULL,NULL,NULL);
end;
у меня это работает.

Paradox в Excel Найти похожие ветки