Автоматизировать НАЙТИ И ЗАМЕНИТЬ текст

;; Обернём код для удобства.
((lambda  (/ fPath excelApp workbook sheet cell cellValue data) 
 
  ;; Построчный ввод начинаем отсюда.
  (vl-load-com)
 
  ;; "xls", "xlsx"
  (setq fPath (getfiled "Выберите файл Excel" (getvar "dwgprefix") "" 16))
 
  ;; Создание объекта Excel
  (setq excelApp (vlax-get-or-create-object "Excel.Application"))
  (vlax-put-property excelApp 'Visible :vlax-false)
  (setq workbook (vlax-invoke-method (vlax-get-property excelApp 'Workbooks) 'Open fPath))
 
  ;; Получение первого листа
  (setq sheet (vlax-get-property (vlax-get-property workbook 'Sheets) 'Item 1))
 
  (vlax-invoke-method sheet 'Activate)  ; не обязательно
 
" 4. Подготовили документ, теперь поработаем с ним. "
 
  ;; Чтение данных из одной конкретной ячейки.
  ;; Здесь проблем возникнуть не должно, нужно только следить за типом возвращаемых значений.
  (setq cell (vlax-get-property sheet 'Range "A1"))
  (setq cellValue (vlax-get-property cell 'Value))
  (setq data (vlax-variant-value cellValue))
 
" 5. Если всё получится с одной ячейкой, то работаем с диапазоном. "
 
;; Просмотр диапазона ячеек, в колонке A. Например первые 20 ячеек в диапазоне A1:A20
((lambda (/ i cell-number cell cellValue data)
  (setq i 0)
  (repeat 20
    (setq i (1+ i))
    (setq cell-number (strcat "A" (itoa i)))
    (setq cell (vlax-get-property sheet 'Range cell-number))
    (setq cellValue (vlax-get-property cell 'Value))
    (setq data (vlax-variant-value cellValue))
    (prompt (strcat "\nСодержимое ячейки " cell-number ": " (vl-princ-to-string data)))
  )))
 
" 6. А вот с добавлением данных в ячейку могут быть сложности.
     Я поиграл с несколькими методами добавления, у меня сработал такой: "
 
;; Использование Range
(vl-catch-all-apply 'vlax-put-property 
  (list (vlax-get-property sheet 'Range "A1") 'Value2 "Новое значение 1"))
 
" 7. Возможно ещё придётся следить за форматом ячеек и типами данных в них.
     Теперь заменим первую колонку из 20 ячеек на вторую. 
     У меня формат ячеек не изменился, а вот значения в них да. "
 
;; Замена диапазона ячеек.
((lambda (/ i cell-number cell cellValue data)
  (setq i 0)
  (repeat 20
    (setq i (1+ i))
    (setq cell-number (strcat "B" (itoa i)))
    (setq cell (vlax-get-property sheet 'Range cell-number))
    (setq cellValue (vlax-get-property cell 'Value))
    (setq data (vlax-variant-value cellValue))
  
" 8. TODO: здесь обозначить критерий замены значений ячеек для конкретного случая. "
    (vlax-put-property 
      (vlax-get-property sheet 'Range (strcat "A" (itoa i)))
      'Value2
      data)
  )))
 
  ;; Закрытие книги с сохранением изменений
  (vlax-invoke-method workbook 'Save)  ; явное сохранение
  (vlax-invoke-method workbook 'Close :vlax-true)
  ;; Закрытие приложения Excel
  (vlax-invoke-method excelApp 'Quit)
 
  ;; Освобождение объектов
  (vlax-release-object sheet)
  (vlax-release-object workbook)
  (vlax-release-object excelApp)
 
  (gc)
  (princ)
)) ;_end of function