Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Базы";
Текущий архив: 2002.12.26;
Скачать: [xml.tar.bz2];

Вниз

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)
но не зная чего ты хочеш и для чего невозможно давать конкретные советы на неопределенные вопросы, одному, тут помошник требуется с высшим телепатическим образованием.
а давать тебе вариант за вариантом пока тебе не попрет, влом, ты уж извини.


 
NetKnight   (2002-12-05 12:39) [7]

А если Записей больше 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;
у меня это работает.



Страницы: 1 вся ветка

Форум: "Базы";
Текущий архив: 2002.12.26;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.57 MB
Время: 0.033 c
14-86145
RV
2002-12-05 10:48
2002.12.26
Задачка :)


3-85846
ДМ
2002-12-06 07:09
2002.12.26
BLOB- поля в базах Microsoft


3-85826
volph7777
2002-12-05 11:29
2002.12.26
Кодировка и DBF


1-85891
DeMoN-777
2002-12-16 20:05
2002.12.26
Ini files


1-85887
harismatik
2002-12-16 19:36
2002.12.26
Кнопке Browse...





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский