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

Вниз

Работа с Excel без левых компонент.   Найти похожие ветки 

 
Илайдж   (2002-11-29 15:03) [0]

Кто-нибудь осуществлял?
В частности, необходимо следующее
Открыть файл, из первого листа выдернуть область и загнать ее в MSSQL.
С SQL проблем нету, а вот как получить данные из области...

Подскажите кто знает.

ps. Куда грузить - значения не имеет.
Скажем надо выдрать область A1:Z50 в двумерный массив A.

Заранее благодарен, тока просьба писать не общие фразы типа "юзай ОЛЕ и т.д.", а текст программы.


 
Илайдж   (2002-11-29 15:24) [1]

Прошу прощения, вопрос снят.
Ответ найден в "UBPFD - бесплатная база готовых решений для Delphi" ;)


 
Илайдж   (2002-11-29 16:49) [2]

Появилась другая проблема
делаю

procedure TForm1.Button1Click(Sender: TObject);
begin
Excel := CreateOleObject("Excel.Application");
Excel.Visible := True;
ShowMessage("ok");
Excel.Quit;
end;

Появляется Excel, потом как нажимаю кнопку появляющегося мессаджбокса, Excel исчезает и вроде все нормально.
НО! Ctrl+Alt+Del показывает что EXCEL.EXE все еще в памяти.


Причем если вызвать процедуру нажатия несколько раз, в диспетчере задач EXCEL.EXE перемещается по списку, новых копий не появляется, но и эта висит в памяти.
Как убрать?


 
Darkwin   (2002-11-29 16:52) [3]

делай Excel.Destroy


 
Илайдж   (2002-11-29 16:57) [4]

Метод Destroy не поддерживается.
Зато кстати, Excel:=0 отлично пашет.


 
Илайдж   (2002-11-29 16:58) [5]

Все. Вопрос закрыт полносью.
Сорри, что стока нафлудил )


 
Darkwin   (2002-11-29 17:02) [6]

сорри за невнимательность, я думал ты с TExcelApplication работаешь



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

Форум: "Основная";
Текущий архив: 2002.12.09;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.45 MB
Время: 0.008 c
14-28208
delpher_gray
2002-11-13 14:45
2002.12.09
Всем кто занимается заподлостроением (пишет вирусы, трояны и т.п)


14-28269
wandp
2002-11-19 04:44
2002.12.09
HELP с Картой


1-28051
valerchik
2002-11-22 22:11
2002.12.09
Подсчет уникальных слов в массиве..............


3-27819
NeyroSpace
2002-11-20 11:38
2002.12.09
Как добраться до списока параметров в IBUpdateSQL?


1-27995
ec
2002-11-29 15:00
2002.12.09
TDrawGrid





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