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

Вниз

Опять Excel   Найти похожие ветки 

 
KPY   (2003-02-13 15:19) [0]

Нужно заполнить таблицу Excel
Делаю

procedure TForm1.Button1Click(Sender: TObject);
var
vExcel, xlvariant: OLEVariant;
begin
vExcel := CreateOleObject("Excel.Application");
vExcel.Workbooks.Add(EmptyParam);
vExcel.Cells[1, 1].Value := 124512;
vExcel.Cells[1, 2].Value := "С добрым утром";
vExcel.ActiveWorkBook.SaveAs("c:\Test");
vExcel.ActiveWorkBook.Close;
vExcel.Visible := False;
end;

В результате создается книга данные записываются но видно что Excel открылся и закрылся. Подскажите пожалуйста что творить.


 
Steven   (2003-02-13 15:22) [1]

Могу кинуть компонентик с исходниками =)


 
KPY   (2003-02-13 15:33) [2]

Плиз
Krivtsov@nnc.kz


 
KPY   (2003-02-13 16:16) [3]

У тебя в примере точно так-же открывается Excel а потом закрывается.Это заметно.Может как нибудь можно записать не запуская Excel (например в шаблон) или так чтобы этого хотябы не было видно.


 
mate   (2003-02-13 16:22) [4]

Попробуй вот так:
uses
ComObj, ActiveX;
var
Excel: Variant;
begin
Excel := CreateOleObject("Excel.Application");
Excel.Visible := False;


 
KPY   (2003-02-13 16:29) [5]

Только что попробовал, то-же самое
Хотя теперь не видно что это именно Excel открывается, просто экран моргает. Может это вообще невозможно?


 
mate   (2003-02-13 16:53) [6]

Попробуй последнее
Excel.Enabled := False;


 
Pakshin A. S.   (2003-02-13 18:29) [7]

Есть компонент F1BOOK1 во вкладке ActiveX...


 
KPY   (2003-02-14 13:42) [8]

mate ©
Такого метода у Excel нет
Pakshin A. S.
А это может решить проблему! Спасибо!


 
Alik   (2003-02-16 23:26) [9]

Я вот тут тоже занимался с Экселькой, нашел хороший компонент - FlexCel! В результате забацал клевую базу данных! Скачай его и проблемы твои решаться!



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

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

Наверх





Память: 0.57 MB
Время: 0.044 c
1-17104
Opera
2003-02-26 01:34
2003.03.06
Едиты и текст


1-17103
MikeFW
2003-02-25 13:06
2003.03.06
как запустить файл, который присоединен в качестве рессурса?


1-17129
Konstantin
2003-02-22 19:12
2003.03.06
Иконки в FileListBox


3-16875
roadrunner
2003-02-18 10:06
2003.03.06
составной Filter на AdoDataSet


1-17137
msoftware
2003-02-22 06:03
2003.03.06
Вопрос на счет DLL





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