Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.06.05;
Скачать: CL | DM;

Вниз

Как перевести свою базу в формат Excel?????   Найти похожие ветки 

 
gary5555   (2003-05-18 14:04) [0]

Я сразу извеняюсь, может такой вопрос и был уже не однократно, но я не могу найти ответа, и тем более быстро!!! Заранее благодарен!!!!!!


 
edicon ©   (2003-05-18 14:23) [1]

Сам ищу ответ на этот вопрос. Быстро не найдешь.
Вот чего сам нашел:
Работаем через OLE
var
OVStr,
xlApp:OleVariant;
begin
xlApp:=CreateOleObject("Excel.Application");
OVStr:="\1.xls";
xlApp.WorkBooks.Open(OVStr);
xlApp.Cells[3,1].value:=12.03;
xlApp.Cells[4,1].value:=145.01;
xlApp.Cells[5,1].value:=12.41;
xlApp.Cells[6,1].value:=1465.01;
xlApp.Cells[3,2].value:=14.01;
xlApp.Cells[4,2].value:=16.01;
xlApp.Cells[5,2].value:=12.61;
xlApp.Cells[6,2].value:=16.678;

OVStr:="E:\3.xls";
xlApp.ActiveWorkBook.SaveAs(OVStr);
xlApp.Quit;
//FreeAndNil(xlApp);
end;

Это поячеечное заполнение





А вот так через массив

var
WorkBk : _WorkBook; //


 
edicon ©   (2003-05-18 14:27) [2]

Извини за коммтарии кодировка почему-то не поддерживается!


 
sniknik ©   (2003-05-18 17:22) [3]

edicon © (18.05.03 14:27)
> Извини за коммтарии кодировка почему-то не поддерживается!
когда копируеш в буфер следи чтобы руская раскладка была включена.

перевести базу (данные) в Excel не проблема, ADO + Jet все что нужно допускаются перекрестные запросы/подключения к разным базам. или если одноразово импорт в Access экспорт в Excel. короче не проблема.
информация в файле хелпа от офиса 2000/XP JETSQL40.CHM (иши на своей машине).



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

Текущий архив: 2003.06.05;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.018 c
14-13424
Карелин Артем
2003-05-19 14:22
2003.06.05
Дети Билли не любили..


1-13320
Вопрошающий
2003-05-25 12:52
2003.06.05
LowerCase + русский язык


14-13378
babun
2003-05-15 21:04
2003.06.05
Фильтр для поля типа date


3-13041
alleb
2003-05-16 17:44
2003.06.05
ADO и ClientDataSet


14-13429
Style
2003-05-19 09:49
2003.06.05
DelphiChallenge: Завершен 1-й тур соревнований.