Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.12.12;
Скачать: CL | DM;

Вниз

Закрытие OLe объекта   Найти похожие ветки 

 
Майя   (2004-12-01 10:47) [0]

Работаю с екселем, потом закрываю его, но процесс остается висеть. Как его еще можно закрыть? Делаю вот как:
RangeMatrix := Unassigned;
  XLApp.Workbooks.Close;  
    XLApp.Quit;
    XLAPP := Unassigned;
    XLAPP := Null;

Уже все испробовала - не помогает :((


 
YurikGL ©   (2004-12-01 11:38) [1]

Кроме  XLAPP больше никаких объектов не создавала? Типа  XLWorkSheet?

Если создавала, то их тоже надо очищать.


 
olookin ©   (2004-12-01 12:24) [2]

А я делаю так:

 if not VarIsEmpty(Excel) then begin
 Excel.Quit;
 VarClear(Excel);
 end;

И ничего не висит в списке процессов. Насчет [1] про создание листов и тому подобного. Если имеется в виду создание в рамках объекта ExcelApplication, то это можно делать как угодно долго и ничего очищать дополнительно не приходится.


 
Майя   (2004-12-01 13:18) [3]

Создавала
XLApp := CreateOleObject("Excel.Application");
try
  // Hide Excel
  XLApp.Visible := False;

  // Open the Workbook
  XLApp.Workbooks.Open(AXLSFile);

   // Sheet := XLApp.Workbooks[1].WorkSheets[1];
  Sheet := XLApp.Workbooks[ExtractFileName(AXLSFile)].WorkSheets[list];  //номер листа, с которого читаем данные

  Sheet.Cells.SpecialCells(xlCellTypeLastCell, EmptyParam).Activate;
  // Get the value of the last row
  x := XLApp.ActiveCell.Row;
  // Get the value of the last column  
  y := XLApp.ActiveCell.Column;

  // Set Stringgrid"s row &col dimensions.

  AGrid.RowCount := x;
  AGrid.ColCount := y;  

  // Assign the Variant associated with the WorkSheet to the Delphi Variant  

  RangeMatrix := XLApp.Range["A1", XLApp.Cells.Item[X, Y]].Value;  
  //  Define the loop for filling in the TStringGrid

Но я уже написала
Sheet:=Unassigned;
и все равно процесс остается


 
Майя   (2004-12-01 13:29) [4]

Да, действительно, после VarClear(Excel);  процесс исчезает
Но после этого я пытаюсь вновь создать объект и обратиться к другому листу того же самого документа.
Если обращаюсь к тому же что и раньше - все ок
А если к другому - выдается ошибка
Метод Activate объекта Range отработал некорректно
На вот этой строке:
Sheet.Cells.SpecialCells(xlCellTypeLastCell, EmptyParam).Activate;



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

Текущий архив: 2004.12.12;
Скачать: CL | DM;

Наверх




Память: 0.45 MB
Время: 0.035 c
1-1101636741
Bobby Digital
2004-11-28 13:12
2004.12.12
ItemIndex


3-1100008965
Волу-Пизрак
2004-11-09 17:02
2004.12.12
Все проблемы растут из Access?....


3-1100532193
keymaster
2004-11-15 18:23
2004.12.12
Вопрос по QuickReport


3-1100407007
Black
2004-11-14 07:36
2004.12.12
Ошибка при попытке изменения свойства ADOConnection


14-1100981122
Piter
2004-11-20 23:05
2004.12.12
Почему ВЫ не используете клиент?





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