[Кулик Алексей aka kpblc]

Задача - прочитать весь лист Excel'a в лисповой список. Указатели на Excel, Workbook, Worksheet получены. Дальше делаю примерно следующее:

Код:

[Выделить все]

(vlax-for cell (vlax-get-property xls_sheet 'cells)
  (if (vlax-variant-value (vlax-get-property cell 'value))
    ;; Данные есть, их попробуем распечатать
    (princ
      (strcat "\nCol : "
	      (vl-princ-to-string (vlax-get-property cell 'column))
	      "; Row : "
	      (vl-princ-to-string (vlax-get-property cell 'row))
	      "; Value : "
	      (vl-princ-to-string
		(vlax-variant-value (vlax-get-property cell 'value))
		) ;_ end of vl-princ-to-string
	      ) ;_ end of strcat
      ) ;_ end of princ
    ;; Данных нет, меняем row и col
    (progn
      ;; Вот здесь будут ошибки - свойства ReadOnly
      (vlax-put-property cell 'column 1)
      (vlax-put-property cell 'row (1+ (vlax-get-property cell 'row)))
      ) ;_ end of progn
    ) ;_ end of if
  ) ;_ end of vlax-for

Количество строк и столбцов заранее не известно, гарантированно только, что если значения в столбце А нет, то строку не читать (в принципе и дальше проходить не надо). Я понимаю, что представленный вариант будет идти по всем строкам, соответственно скорость выполнения этого куска будет отвратительной, но как выйти из цикла я не представляю. Если еще и с этим подскажете, будет совсем здорово

[Makswell]

Пока нашел такое тупое решение

Код:

[Выделить все]

(startapp "cmd /C taskkill /IM excel.exe /F /T")

работает...
Но хотелось бы как-то изящней.

[Makswell]

Сообщение от Кулик Алексей aka kpblc Если честно, я не стал связываться с процессом Excel'a. Использую другие пути.

Я так понял ADODB?

[Vov.Ka]

Сообщение от Makswell Алексей, хочу тебя спросить: решена ли эта проблема, т.е. убивание процесса Excel именно посредством лиспа. Всё таки больше 2-х лет прошло с момента написания того поста - может ты за это время что-то придумал?..

Код:

[Выделить все]

(gc)

можно два раза

[Кулик Алексей aka kpblc]

Сообщение от Makswell Я так понял ADODB?

И это тоже. Excel (как мне сейчас кажется) не есть панацея.

[Makswell]

Сообщение от Vov.Ka Код: [Выделить все] (gc) можно два раза

Это не помогает. И ко всему прочему с определённого момента начинает тормозить...

[Vov.Ka]

Сообщение от Makswell Это не помогает. И ко всему прочему с определённого момента начинает тормозить...

убить все процессы Excell, перезапустить Acad
проверим

Код:

[Выделить все]

(vl-load-com)
(defun test (/ ExcelObj *error*)
  (setq ExcelObj (vlax-get-or-create-object "Excel.Application"))
  (vl-catch-all-apply
    'vlax-invoke-method
    (list ExcelObj "Quit")
  )
  (vlax-release-object ExcelObj)
;;;  (gc) ;;; не обязательно
)

убился процес? у меня убивается нормально даже без (gc)

[Makswell]

Продолжим твой код. Ведь мало получить указатель на Excel. Главное - открыть в нём xls-файл и продолжить работу с ним.

Код:

[Выделить все]

(defun test (/ ExcelObj xlsFileObj)
  (setq ExcelObj (vlax-get-or-create-object "Excel.Application"))
  (vlax-put-property ExcelObj "Visible" :vlax-false)
  (setq	xlsFileObj
	 (vlax-invoke-method
	   (vlax-get-property ExcelObj "Workbooks")
	   "Open"
	   "D:\\test.xls"
	 )
  )
  (vlax-release-object xlsFileObj)
  (vl-catch-all-apply
    'vlax-invoke-method
    (list ExcelObj "Quit")
  )
  (vlax-release-object ExcelObj)
;;;  (gc) ;;; не обязательно
)

После этого кода процесс не убивается. Но если потом сделать (gc) - то всё проходит нормально.

Т.е. получаются выводы такие:
1. Если где либо пропущен vlax-release-object, то (gc) не поможет - процесс Excel останется висеть в памяти.
2. Если нигде не забыли сделать vlax-release-object, то после этого надо обязательно сделать (gc).

В итоге - во всём опять оказались виноваты мои кривые руки.
... да и Алексей получается оказался не прав в своем посте №13.

ЗЫ Хотя это был простой случай. Всего 2 vlax-release-object. А уменя в лиспе открывается n-е кол-во xls-файлов (точнее один закрывается, другой открывается), и для каждого файла формируются указатели на книгу, лист, ячейки там всякие и т.п. (даже BuiltinDocumentProperties у каждого файла читается). И всё это надо отследить и в нужных местах расставить vlax-release-object. Жесть...

ЗЗЫ И всё равно - иногда (gc) жутко тормозит.

[vladmobile]

А зачем убивать процесс excel, если он при закрытии када убивается сам?

[Кулик Алексей aka kpblc]

Запустив несколько раз подряд (например, 10 раз) лисп, в памяти будет болтаться 10 экземпляров excel.exe, отнимая ресурсы. Или память бездонная?

[vladmobile]

А я перед тем как запускать Excel, проверяю не запущен ли он. Тогда у меня в памяти только один процесс.

[Кулик Алексей aka kpblc]

Не всегда годится такой подход.

[vladmobile]

(defun Exit_excel ()
(vlax-put-property (Excel-object) 'DisplayAlerts "False")
; Diasble notification
(vlax-invoke-method (Active-workbook) 'Close)
; Close active workbook
(vlax-invoke-method (Excel-object) 'Quit); Close Excel application
(vlax-release-object (Excel-object)); Release Excel object
)

[Makswell]

Попробовал.
Всё равно этот процесс-сволочь висит.

В принципе я давно уже об этом не думаю. У меня процесс Excel'а только один висит в списке процессов (как ты и писал в посте №30). И меня это в общем-то не напрягает.