запись данные в Excel

[tujn08]

Привет!
Не нашел информации по свойствам и методам работы с Excel из Autolisp.

Задача вроде бы простая:
 Создать файл .xlsx (без запуска приложения), и записывать данные в нужный лист и ячейку.
Кто подскажет есть ли готовые функции или перечень свойств и методов работы с эксель.

[Александр Ривилис]

Посмотри здесь: http://web2.airmail.net/terrycad/LISP/GetExcel.lsp

[tujn08]

спасибо, приступаю к изучению!

[tujn08]

; ошибка: no function definition: VLAX-GET-OBJECT

не первый раз - в чем причина? Это из серии когда надо нечто (vl-load-com) подключать? только для VLAX

[tujn08]

 (vl-load-com) помогло -странно обычно всегда в коде присутствовал

[tujn08]

Приветствую еще раз!

Код - Auto/Visual Lisp [Выбрать]

1. (defun PutCell (StartCell$ Data@ / Cell$ Column# ExcelRange Row#)
2.   (if (= (type Data@) 'STR)
3.     (setq Data@ (list Data@))
4.   )
5.   (setq ExcelRange (vlax-get-property *ExcelApp% "Cells"))
6.   (if (Cell-p StartCell$)
7.     (setq Column# (car (ColumnRow StartCell$))
8.           Row# (cadr (ColumnRow StartCell$))
9.     );setq
10.     (if (vl-catch-all-error-p
11.           (setq Cell$ (vl-catch-all-apply 'vlax-get-property
12.             (list (vlax-get-property *ExcelApp% "ActiveSheet") "Range" StartCell$))
13.           );setq
14.         );vl-catch-all-error-p
15.         (alert (strcat "The cell ID \"" StartCell$ "\" is invalid."))
16.         (setq Column# (vlax-get-property Cell$ "Column")
17.               Row# (vlax-get-property Cell$ "Row")
18.         );setq
19.     );if
20.   );if
21.   (if (and Column# Row#)
22.     (foreach Item Data@
23.       (vlax-put-property ExcelRange "Item" Row# Column# (vl-princ-to-string Item))
24.       (setq Column# (1+ Column#))
25.     );foreach
26.   );if
27.   (princ)
28. )

при команде:

Код - Auto/Visual Lisp [Выбрать]

1. (GetExcel "C:\\Users\\Desktop\\1\\Filename.xlsx" "Sheet1" "L30")
2. (PutCell "A1" "PART_NUMBER")
3.  

ругается на строку:

Код - Auto/Visual Lisp [Выбрать]

1. (setq ExcelRange (vlax-get-property *ExcelApp% "Cells"))

ошибка Automation. Отсутствует описание. В консоли.
А в командной строке:
; ошибка: неверный тип аргумента: VLA-OBJECT nil

что не так?

[tujn08]

Разобрался:
1. OpenExcel
2. PutCell
3. CloseExcel

Спасибо!

[Александр Ривилис]

Напоминаю про правило форматирования кода на форуме.

[tujn08]

Приносим свои извинения- привычка "DWG".

Как пользоваться разобрался. Но как создать файл эксель? Все функции написаны так, что файл уже должен существовать.

[Александр Ривилис]

Приносим свои извинения- привычка "DWG".

Как пользоваться разобрался. Но как создать файл эксель? Все функции написаны так, что файл уже должен существовать.

Вопрос конечно интересный. Боюсь, что тебе придётся иметь заготовку xlsx-файла и копировать его с нужным именем.

[tujn08]

Разобрался:

Код - Auto/Visual Lisp [Выбрать]

1. (vlax-invoke-method (vlax-get-property *ExcelApp% "ActiveWorkbook")
2.             "SaveAs" "путь +имя.xlsx" -4143 "" "" :vlax-false :vlax-false nil
3.          )

Спасибо!
Единственная проблема в  .xls и .xlsx.
На открытие файла .xlsx ошибка в формате или расширении файла. Печально... Будем думать дальше.


А форматирование по инструкции у меня не получилось - вписал вручную...

[trir]

На VBA сообщения об ошибках более осмысленные, там удобнее тестировать COM
Думаю Excel вопросы задаёт разные - стоит сделать ручками и посмотреть, что за вопросы

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

Без подробностей и без проверок. Вся информация взята из справки по VBA для Excel:

Код - Auto/Visual Lisp [Выбрать]

1. (defun test (filename / obj wbooks xls_wb xls_sheet xls_cells)
2.   (if (not (setq obj (vlax-get-object "Excel.Application")))
3.     (progn (setq obj (vlax-get-or-create-object "Excel.Application")) (vla-put-visible obj :vlax-false))
4.     ) ;_ end of if
5.   (if obj
6.     (progn (setq wbooks    (vlax-get-property obj 'workbooks)
7.                  xls_wb    (vlax-invoke-method (vlax-get-property obj 'wbooks) 'add)
8.                  xls_sheet (vlax-get-property (vlax-get-property xls_wb 'worksheets) 'item 1)
9.                  xls_cells (vlax-get-property xls_sheet 'cells)
10.                  ) ;_ end of setq
11.            ;; Заполнение данными элементов из xls_cells
12.            (vlax-invoke-method
13.              xls_wb
14.              'saveas
15.              filename
16.              (cdr (assoc (atof (vlax-get-property obj 'version)) '((10.0 . 43) (11.0 . 43) (12.0 . 56))))
17.              nil
18.              nil
19.              :vlax-false
20.              :vlax-false
21.              1
22.              2
23.              :vlax-true
24.              ) ;_ end of vlax-invoke-method
25.            (vlax-invoke-method xls_wb 'close)
26.            (vlax-invoke-method xls_app 'quit)
27.            ;; Очистка от мусора
28.            (foreach item (list xls_cells xls_sheet xls_wb wbooks obj)
29.              (vl-catch-all-apply (function (lambda () (vlax-release-object item) (setq item nil))))
30.              ) ;_ end of foreach
31.            ) ;_ end of progn
32.     ) ;_ end of if
33.   ) ;_ end of defun

[BearDyugin]

Подскажите пожалуйста, как задать ячейке формат, интересует числовой и точность отображения знаков?
Научился только создавать файл\лист и записывать в ячейку значение

Код - Auto/Visual Lisp [Выбрать]

1. (vlax-put-property Excell_Cells "Item" Row Column (vl-princ-to-string value))

Подозреваю вместо "Iten" нужно указать что-то типа "Format" и потом после адреса ячейки нужное значение какое-то, где бы это подглядеть?

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

Я бы поднял справку по VBA самого Excel'a и в нем смотрел. Фактически перевести из VBA в VLISP не так уж и сложно.
Могу выдрать кусок из большого проекта, но он будет касаться только установки значений для ячейки... Искать?