Как работать с Excel из LISP

Как работать с Excel из LISP · 01.09.2006, 16:07

Примеры Полещука и другие похожие видел... Но всетаки хочу спросить...

Подскажите пожалуйста как следующие строчки на VBA перевести на LISP?.. Не могу разобраться с vlax-invoke-method и vlax-get-property.

Код:

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

    Worksheets("Sheet1").Activate
    Range("A21").Select
    Range(Selection, Selection.End(xlDown)).Select

Кулик Алексей aka kpblc · 01.09.2006, 16:23

http://dwg.ru/forum/viewtopic.php?t=7640
http://dwg.ru/forum/viewtopic.php?t=9420
http://dwg.ru/forum/viewtopic.php?t=4927

fixo · 02.09.2006, 14:58

Тут делать нужно примерно так:

Код:

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

(defun C:EXM ( / DESRNG EXCELAPP FILEPATH NEXTRNG SELRNG SHT SHTNUM WBK)
  
  (vl-load-com)
    (setq FilePath (getfiled	"Select Excel file to read :"
			(getvar "dwgprefix")
			"xls"
			16
	      )
  )
;;;  (setq FilePath (findfile "C:\\AUTOLISP\\TEST1.xls"));for debug only
  (setq ShtNum (getstring t "\nEnter sheet name OR sheet number <Лист1>: \n"))
  (if (eq ShtNum "")
      (setq ShtNum "Лист1"))
  (setq ExcelApp (vlax-get-or-create-object "Excel.Application"))
  (vla-put-visible ExcelApp :vlax-true)
  (setq Wbk (vl-catch-all-apply 'vla-open
		     (list (vlax-get-property ExcelApp "WorkBooks") FilePath)))
  (vlax-invoke-method Wbk 'Activate)
		 (setq Sht (vl-catch-all-apply 'vlax-get-property
			       (list (vlax-get-property Wbk "Sheets")
				     "Item" ShtNum)))
      (vlax-invoke-method Sht "Activate")
  (setq SelRng (vlax-get-property Sht 'Range "A21"))
  (vlax-invoke-method SelRng "Select")
  (setq NextRng (vlax-get-property ExcelApp "Selection"))
  
  (setq DesRng (vl-catch-all-apply 'vlax-get-property
			       (list NextRng
				     "End" -4121 ))) ; -4121 = xlDown
  
  (vlax-invoke-method DesRng "Select")
  ;;; <тут дальше делаешь чего тебе надо>
      (vl-catch-all-apply
	'vlax-invoke-method
	(list Wbk "Close" :vlax-true)
      )

	(vl-catch-all-apply
	  'vlax-invoke-method
	  (list ExcelApp "Quit")
	)

  (mapcar
    (function (lambda (x)
		(if (not (vlax-object-released-p x))
		
		  (vlax-release-object x)
		)
	      )
    )
    (list DesRng NextRng SelRng Sht Wbk ExcelApp); обязательно в обратном порядке
  )
  (setq	DesRng nil
	NextRng nil
	SelRng nil
	Sht nil
	Wbk nil
	ExcelApp nil
  )
  (gc)
  (gc)
  (gc)
  (prin1)
)

А свойства и методы просматривай с помощью:

Код:

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

(vlax-dump-object <объект> T)

Постоянные Экселя можно просмотреть в Браузере
в редакторе VBAIDE

Fatty

~'J'~

kolobrod · 04.09.2006, 14:36

Спасибо! Оба ответа чень полезны. Буду разбираться...

Holon · 28.08.2007, 09:35

Код:

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

;;; <тут дальше делаешь чего тебе надо>

Можно пример строки присвоения или считывания

VVA · 28.08.2007, 10:24

Еще подборочка. Может кое-что повторяется.

1. http://www.theswamp.org/index.php?topic=18361.0
2. http://web2.airmail.net/terrycad/
3. http://www.jefferypsanders.com/autolisp.html
4. http://www.theswamp.org/index.php?topic=8127.0
5. Рекомендую! KozMos VLXLS Project. By using ActiveX, we can control Microsoft Excel from within Visual LISP. VLXLS is a fully open source project to demonstrate and execute the procedure of data IO (Input/Output) between Excel and AutoCAD.
6. http://forum.dwg.ru/showthread.php?p=244237#post244237
7. http://www.autocad.ru/cgi-bin/f1/board.cgi?t=15857AH
8. http://www.cadforyou.spb.ru/index.ph..._programs_page
9. http://www.cadforyou.spb.ru/index.ph...page%26sri%3D0

Для записи в Excel можно воспользоваться моей ф-цией xls. Брать отсюда http://www.autocad.ru/cgi-bin/f1/boa...31596eW&page=2 с поста VVA (2007-01-08 16:51:13) http://forum.dwg.ru/showpost.php?p=244237&postcount=7 Как пример смотри команды COOR и AREAS

*** Добавлено 2011-07-26 ***
Актуальные ссылки в этой теме

Holon · 08.09.2007, 15:21

Для полного сщастья нехватает функции возвращающей значение колонки и строки по значению

Код:

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

(defun value_xls ( ExcelFile$ SheetName$ FindValue$ / Column# Row#)
........................)

fixo · 12.09.2007, 09:14

Цитата:

Сообщение от Holon

Для полного сщастья нехватает функции возвращающей значение колонки и строки по значению

Код:

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

(defun value_xls ( ExcelFile$ SheetName$ FindValue$ / Column# Row#)
........................)

С год назад я тут покрутил такой вариант,
измени значения по ситуации:

Код:

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

; by Fatty
(defun c:extest (/ adres filename hgt i iCol Row iRows sheetName
x xlApp xlBook xlCell xlRange xlSheet)
(vl-load-com)
(setq sheetName "OUTSIDE WALL"
hgt "93") ; test certain format in Excel
(setq fileName (strcat (getvar "dwgprefix") "shear sizes.xls"))
;;;--- Verify the path to the file
(setq fileName(findfile fileName)) 
(if (not (setq xlApp (vlax-get-object "Excel.Application")))
(setq xlApp (vlax-create-object "Excel.Application"))
)

(if xlApp
(progn
(vlax-put-property xlApp "Visible" :vlax-true)
(if
(not
(vl-catch-all-error-p
(vl-catch-all-apply
(function (lambda ()
(setq
xlBook (vlax-invoke-method
(vlax-get-property xlApp 'WorkBooks)
"Open"
fileName)
)
)
)
)
)
)
(progn
(vlax-invoke-method xlBook "Activate")
(setq xlSheet (vlax-get-property
(vlax-get-property xlBook "WorkSheets") "Item" sheetName))
(vlax-invoke-method xlSheet "Activate")
(setq xlRange (vlax-get-property xlSheet "Range" "B3:B999"))
(vlax-invoke-method xlRange "Select")
(setq iCol (vlax-get-property xlRange "Column"))
(setq iRows (vlax-get-property (vlax-get-property xlRange "Rows") "Count")
iRow (vlax-get-property xlRange "Row"))

(setq xlFRange (vlax-get-property xlsheet "Range" "B3"))
(if
(not
(vl-catch-all-error-p
(vl-catch-all-apply
(function (lambda () 
(setq xlCell (vlax-invoke-method xlRange "Find" (vlax-make-variant hgt)
xlFRange
-4163 1 1 1 nil nil)))))))
(progn
(vlax-invoke-method xlCell "Select") 

(setq acCell (vlax-get-property xlApp "ActiveCell"))
(setq iRow (vlax-get-property acCell "Row")
iCol (vlax-get-property acCell "Column"))
(alert (strcat "Given value " hgt " found at\n"
"column " (itoa iCol) ", row " (itoa iRow) )))
(alert (strcat "Nothing found" )))


(vlax-invoke-method xlBook "Close" :vlax-false)
(vlax-invoke-method xlApp "Quit")
)
)))
(mapcar (function (lambda (x)
(vl-catch-all-apply
(function (lambda ()
(progn
(vlax-release-object x)
(setq x nil)
)
)
)
)
)
)
(list acCell xlCell xlFrange xlRange xlSheet xlBook xlApp)
)

(gc)
(princ)
)

~'J'~

Holon · 18.09.2007, 18:57

Функция c:extest отрабатывает нормально если в столбике имеется разыскиваемое значение, в случае если такого значения не сущетвует то функция вылетает на строке

Код:

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

(vlax-invoke-method xlCell "Select")

и ругается

Код:

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

Command: extest
; error: bad argument type: VLA-OBJECT nil

при этом файл Excel естественно остается открытым.

fixo · 18.09.2007, 20:44

Я конечно могу предположить что можно
искать то, чего в помине нет, всяко бывает,
тогда используй эту конструкцию:

Код:

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

(if 
(not 
(vl-catch-all-error-p 
(vl-catch-all-apply 
(function (lambda () blah-blah-blah...
(progn
blah-blah-blah...

Самому переделать времени нет

~'J'~

Holon · 18.09.2007, 20:50

Цитата:

Сообщение от Fatty

Я конечно могу предположить что можно
искать то, чего в помине нет

А разве ты непредпологал такого варианта заранее зачем тогда

Код:

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

(alert (strcat "Nothing found"))

fixo · 18.09.2007, 22:00

Маштинально, по-привычке

~'J'~

Holon · 19.09.2007, 00:30

Я всего три месяца как разбираюсь с LISP пoэтому мне ход мысли с vlx- функциями
несовсем понятен,

на днях заказал книгу Полищука, вот как дождусь, тогда исправлю код,
а то в сети про эти функции материала практически нет.

fixo · 19.09.2007, 01:13

Завтра будет время - исправлю

~'J'~

Holon · 19.09.2007, 09:11

Зарание большее спасибо

fixo · 19.09.2007, 12:54

Попробуй этот вариант, не смог только решить
для случая повторяющихся одинаковых значений
Это должно работать в случае уникального значения
в искомом диапазоне
Тестировал в A2007eng/MS Office 2003eng/Win XP HE

Код:

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

(defun C:FINDEX	(/	  acCell   adres    filename hgt      i
		 iCol	  Row	   iRows    sheetName	      x
		 xlApp	  xlBook   xlCell   xlRange  xlSheet
		)
  (vl-load-com)
  (defun *error* (msg)
    (if
      (and msg
	   (not
	     (member
	       msg
	       '("console break"
		 "Function cancelled"
		 "quit / exit abort"
		 ""
		)
	     )
	   )
      )
       (princ (strcat "\nError: " msg))
    )

    (vl-catch-all-apply
      (function	(lambda	()
		  (vlax-invoke-method xlBook "Close" :vlax-false)
		)
      )
    )
    (vl-catch-all-apply
      (function	(lambda	()
		  (vlax-invoke-method xlApp "Quit")
		)
      )
    )
    (mapcar (function (lambda (x)
			(vl-catch-all-apply
			  (function (lambda ()
				      (progn
					(vlax-release-object x)
					(setq x nil)
				      )
				    )
			  )
			)
		      )
	    )
	    (list acCell xlCell xlFrange xlRange xlSheet xlBook xlApp)
    )
    (princ)
  ) ;_eof *error*

  ;;============================= main part =======================;; 
  (setq	sheetName "OUTSIDE WALL"
	hgt	  "903"
  )						  ; test certain format in Excel
  (setq fileName (strcat (getvar "dwgprefix") "shear sizes.xls"))
;;;--- Verify the path to the file
  (setq fileName (findfile fileName))
  (if (not (setq xlApp (vlax-get-object "Excel.Application")))
    (setq xlApp (vlax-create-object "Excel.Application"))
  )

  (if xlApp
    (progn
      (vlax-put-property xlApp "Visible" :vlax-true)
      (if
	(not
	  (vl-catch-all-error-p
	    (vl-catch-all-apply
	      (function	(lambda	()
			  (setq
			    xlBook (vlax-invoke-method
				     (vlax-get-property xlApp 'WorkBooks)
				     "Open"
				     fileName
				   )
			  )
			)
	      )
	    )
	  )
	)
	 (progn
	   (vlax-invoke-method xlBook "Activate")
	   (setq xlSheet (vlax-get-property
			   (vlax-get-property xlBook "WorkSheets")
			   "Item"
			   sheetName
			 )
	   )
	   (vlax-invoke-method xlSheet "Activate")
	   (setq xlRange (vlax-get-property xlSheet "Range" "B3:B999"))
	   (vlax-invoke-method xlRange "Select")
	   (setq iCol (vlax-get-property xlRange "Column"))
	   (setq iRows (vlax-get-property
			 (vlax-get-property xlRange "Rows")
			 "Count"
		       )
		 iRow  (vlax-get-property xlRange "Row")
	   )

	   (setq xlFRange (vlax-get-property xlsheet "Range" "B3"))
	   (if
	     (and
	       (not
		 (vl-catch-all-error-p
		   (vl-catch-all-apply
		     (function (lambda ()
				 (setq xlCell (vlax-invoke-method
						xlRange
						"Find"
						(vlax-make-variant hgt)
						xlFRange
						-4163
						1
						1
						1
						nil
						nil
					      )
				 )
			       )
		     )
		   )
		 )
	       )
	       xlCell
	     )
	      (progn
		(vlax-invoke-method xlCell "Select")

		(setq acCell (vlax-get-property xlApp "ActiveCell"))
		(setq iRow (vlax-get-property acCell "Row")
		      iCol (vlax-get-property acCell "Column")
		)
		(alert (strcat "Given value "
			       hgt
			       " found at\n"
			       "column "
			       (itoa iCol)
			       ", row "
			       (itoa iRow)
		       )
		)
	      )
	      (alert (strcat "Nothing found"))
	   )
	 )
      )
    )
    (alert (strcat "Problem with Excel running"))
  )
  (*error* nil)
  (gc)
  (princ)
)
(princ "\n\t\t  * Type FINDEX to execute... *")
(princ)

~'J'~

Holon · 19.09.2007, 17:18

Цитата:

Сообщение от Fatty

не смог только решить
для случая повторяющихся одинаковых значений

я думаю, что для поиска одинаковых значений нужно будет добавить еще одну функцию,
а в этой функции перенести переменные hgt sheetName sheetName iCol iRow в аргументы,
новая функция будет запускать FINDEX и после получения результата, добавлять
к возвращенному значению колонки единицу и запускать функцию FINDEX с новыми
параметрами границ колонки.

tujn08 · Регистрация: 26.12.2013

Привет.
Можно код с комментариями?
Не смог разобраться, что для чего.
Моя задача:
а) сущ экселька (шаблон) - остается вбить данные
б) нет эксельки - создать и в фоне(без открытия эксельки) записать данные в нужный лист и ячейку.

Литературу работы с экселькой я не нашел. На примерах практически не разобраться т.к. задачи разные.

pad · 13.10.2022, 14:24

Добрый день.
Ни как не получается достучаться до свойства Application.EnableEvents (Excel).
Пишу:

Код:

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

(vlax-put-property xlApp 'EnableEvents "False")
;или
(vlax-put-property xlApp 'EnableEvents :vlax-False")

что не так, есть мысли?

Кулик Алексей aka kpblc · 13.10.2022, 14:46

А по дампу объекта оно вообще видно?

----- добавлено через 49 сек. -----
И что вернет (vlax-get-property xlaapp 'enablevents) ?

pad · 14.10.2022, 08:30

Цитата:

Сообщение от Кулик Алексей aka kpblc

И что вернет (vlax-get-property xlaapp 'enablevents) ?

Показывает "nil". Я подумал, что ошибка в записи, а получается, что не ко всем свойствам можно обращаться?
Смотреть дамп я не знаю как

С ходу также не получается переименовать Workbooks в Excel, может есть пример?

Кулик Алексей aka kpblc · 14.10.2022, 09:04

Цитата:

Сообщение от pad

Смотреть дамп я не знаю как

(vlax-dump-object obj t)
Сейчас нет машины, где есть и ACAD, и Excel, так что помочь мало чем могу.
ЕМНИП, Workbooks - это коллекция открытых книг. Ее переименовывать - это как? Какую-то книгу переименовать, наверное, и можно - при сохранении. Но не "на лету".
Могу ошибаться

pad · 09.11.2022, 09:43

для отключения сообщений использовал (vlax-put-property xlApp 'DisplayAlerts :vlax-False)

Перерыл весь форум с темами про Excel, но так и не нашел как просто скопировать лист?

Кулик Алексей aka kpblc · 09.11.2022, 10:35

А у объекта листа вообще есть метод Copy (ну или что-то подобное)? И что говорит справка самого Excel по этому поводу?

pad · 09.11.2022, 11:13

Copy есть но вкладка не появдяется. VBA смотрел, там: Worksheets("Лист1").Copy Before:=Worksheets("Лист2")
Как здесь не пойму.

Кулик Алексей aka kpblc · 09.11.2022, 11:54

Лист копируется. Просто в другой документ.
А как выполнить копирование внутри книги - не знаю

Точнее, я не понял, как передавать необязательные аргументы в метод.

pad · 09.11.2022, 12:18

Тогда по другому: А можно ли копировать диапозон ячеек с одного листа на другой?

VVA · 09.11.2022, 15:39

Здесь GetExcel.lsp есть библиотечные функции по работе с excell. Может что подберешь

pad · 08.12.2022, 08:25

Цитата:

Сообщение от pad

Copy есть но вкладка не появдяется. VBA смотрел, там: Worksheets("Лист1").Copy Before:=Worksheets("Лист2")
Как здесь не пойму.

Не стал тогда копировать лист, тупо создавал новый.
Но вот теперь надо определенный лист сделать первым в книге

и вернулся опять к записи типа *.Copy только теперь *.Move.
Функция работает создавая при этом другой документ

Много перерыл примеров, но вот именно про работу с листами нет толком ни чего. Какие мысли есть?

Сергей812 · 08.12.2022, 09:26

т.е. из 4 поста ветки не работает?

pad · 08.12.2022, 10:23

Цитата:

Сообщение от Сергей812

т.е. из 4 поста ветки не работает?

нет.. создает новую книгу (открывает второе окно).
А может быть это из-за того, что файл не сохранен? я его создаю и работаю с ним в памяти.

Сергей812 · 08.12.2022, 10:31

Цитата:

Сообщение от pad

А может быть это из-за того, что файл не сохранен? я его создаю и работаю с ним в памяти.

сомневаюсь. Работаете же через COM с запущенным экземпляром экселя, а там ограничений на создание и копирование листов в только что созданной несохраненной книге нет.

pad · 08.12.2022, 10:34

Попробовал и с сохраненным файлом, нет не работает, не перемещает

При COPY, копирует опять же в отлельное окно...

----- добавлено через ~4 ч. -----

Цитата:

Сообщение от pad

Попробовал и с сохраненным файлом, нет не работает, не перемещает

При COPY, копирует опять же в отлельное окно...

Сергей812 спасибо за помощь, разобрался.
Новое окно появляется когда метод move или copy срабатывает с не указанным (или не правильно указанным) листом, просто создает другое окно и все.
Пример указтеля: (setq sht (vlax-get-property sheets 'Item 3)), при этом 'Item 3 - 3 лист книги
Команда (vlax-invoke-method new_sheet 'Move sht) ставит лист new_sheet перед 3 листом

01.09.2006, 16:07		#1
Как работать с Excel из LISP kolobrod Москва Регистрация: 01.09.2006 Сообщений: 12 Примеры Полещука и другие похожие видел... Но всетаки хочу спросить... Подскажите пожалуйста как следующие строчки на VBA перевести на LISP?.. Не могу разобраться с vlax-invoke-method и vlax-get-property. Код: [Выделить все] Worksheets("Sheet1").Activate Range("A21").Select Range(Selection, Selection.End(xlDown)).Select
Просмотров: 19235