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

Вниз

Измениить большое количество Excel.Application на WorkBook   Найти похожие ветки 

 
Andrey02   (2003-07-02 01:37) [0]

Экспорт данных через Excel.Application происходит несколько раз, и при каждом вызывается новое приложение Excel (Excel.Application), и когда вызывается больше 5-10 приложений система затыкается. А по хорошему каждый раз должна открывться только новая книга (WorkBook).

у меня работа с Excel.Application организована:
...
Excel, WorkBook: Variant;
...
Excel := CreateOleObject("Excel.Application");
Excel.SheetsInNewWorkBook := 1;
Excel.WorkBooks.Add;
Workbook := Excel.WorkBooks[1];
...


1. Как организовать работу с Workbook? Т.е. когда Excel открыт - то создавать новую Workbook, когда нет - создавать Excel.Application.

2. возможно стоит воспользоваться компонентами TExcelApplication, TExcelWorkBook? как?


 
Rol   (2003-07-02 08:26) [1]

1. GetActiveOLEObject + F1, MSExcel.Workbooks.Add.
2. Может и стоит, но для начала следует узнать, чем раннее связывание отличается от позднего.


 
Edward   (2003-07-02 09:44) [2]

Запуск Excel:

var
Excel: OLEVariant;
...
try
//Поключение к текущему экземпляру если он запущен
Excel := GetActiveOleObject("Excel.Application");
except
//Создание нового
Excel := CreateOleObject("Excel.Application");
end;


Работа с Workbook:

var
Workbook: OLEVariant;
...
Workbook := Excel.WorkBooks.Add;
или

Workbook := Excel.WorkBooks.Add("c:\template.xls");


 
Andrey02   (2003-07-02 18:11) [3]

спасибо. WorkBook работатет идеально.

но при каждом новом запуске Excel.Application (Excel.Visible := True;) оно запускалось поверх всех приложений. А WorkBook лишь добавляется внизу к Excel, если главный Excel свёрнут или неактивен.

Можно сделать чтобы каждый новый WorkBook при запуске перекрывал поверх другие приложения?

Заранее благодарен.


 
Vitek   (2003-07-03 07:28) [4]

ExcelApplication1.WindowState[0] := xlMaximized;
ExcelApplication1.ScreenUpdating[0] := true;



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

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

Наверх





Память: 0.45 MB
Время: 0.009 c
14-55804
Andryk
2003-06-30 17:35
2003.07.17
Однако даже в билетах экзаменов ПДД есть юмор :о))


1-55511
EgorKA
2003-07-04 17:01
2003.07.17
Изменение размеров формы с borderstyle=bsNone...


1-55528
Mishenka
2003-07-02 23:46
2003.07.17
Где у Application указывать события?


6-55688
velsi
2003-05-13 11:13
2003.07.17
idFTPserver


8-55667
Rip
2003-03-26 13:24
2003.07.17
Регулятор звуга в проге





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