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

Вниз

Как перевести свою базу в формат 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;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.44 MB
Время: 0.009 c
1-13194
microlab
2003-05-26 16:06
2003.06.05
Маниторинг вызова функций приложения


3-13068
pathfinder
2003-05-16 23:22
2003.06.05
Вопрос про IB...


1-13271
Seldon
2003-05-23 21:14
2003.06.05
ExtractIconEx


1-13302
Sandman25
2003-05-22 18:12
2003.06.05
Утечка памяти


6-13350
Opera
2003-04-02 14:41
2003.06.05
Mouse





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский