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

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

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

Как перевести свою базу в формат Excel????? [D5, Paradox]

gary5555 © (2003-05-18 14:04:00)
Я сразу извеняюсь, может такой вопрос и был уже не однократно, но я не могу найти ответа, и тем более быстро!!! Заранее благодарен!!!!!!

sniknik (2003-05-18 17:22:00) [1]
edicon © (18.05.03 14:27)
> Извини за коммтарии кодировка почему-то не поддерживается!
когда копируеш в буфер следи чтобы руская раскладка была включена.

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

edicon (2003-05-18 14:27:00) [2]
Извини за коммтарии кодировка почему-то не поддерживается!

edicon (2003-05-18 14:23:00) [3]
Сам ищу ответ на этот вопрос. Быстро не найдешь.
Вот чего сам нашел:
Работаем через 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; //

Наверх

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