Главная страница
    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
9-1092490542
CoolProger:DWORD;
2004-08-14 17:35
2004.12.12
курсор мышки в дирекст


14-1101213427
pasha_golub
2004-11-23 15:37
2004.12.12
МВД: Человеческие качества


3-1100200640
GL00m
2004-11-11 22:17
2004.12.12
что делать с файлами _qsq*.db


14-1100852166
msguns
2004-11-19 11:16
2004.12.12
"Потрепанный орешник"


14-1101200631
Nikolay M.
2004-11-23 12:03
2004.12.12
Excel повисает при открытии внешних данных :(





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