Is it possible for get overlapping letters to excel data by bundle (one by one)?

[GoldSA]

Thank you so so much, @Saxlle.

It's impossible for me to make it.

It's perfect. ★★★★★

I was touched to see your comment and the result.

 

God bless all of you.

So funnuy~~

[BIGAL]

You can use this to write to Excel Note not supported in LT24+.

 

Dont have Excel open, just write to the cell using row and column rather than write to a csv.

 

;;	Thanks to fixo			;;
;;   = Set Excel cell text =    ;;
;;				;;
(defun xlsetcelltext ( row column text)
(setq cells (vlax-get-property  (vlax-get-property myxl "ActiveSheet") "Cells"))
  (vl-catch-all-apply
    'vlax-put-property
    (list cells 'Item row column
	(vlax-make-variant (vl-princ-to-string text) vlax-vbstring)))
)

;; Try to get or create Excel instance
(setq myxl (vl-catch-all-apply 'vlax-get-or-create-object '("Excel.Application")))
  (if (vl-catch-all-error-p myxl)
    (progn
      (prompt "\nError: Could not start Excel.")
      (exit)
    )
  )
  (if (=  (vlax-get-property  (vlax-get-property myXL 'WorkBooks) 'count) 0)
    (vlax-invoke-method (vlax-get-property myXL 'WorkBooks) 'Add)
  )

  (vla-put-visible myXL :vlax-true)
  (vlax-put-property myxl 'ScreenUpdating :vlax-true)
  (vlax-put-property myXL 'DisplayAlerts :vlax-true)
  

 

[Saxlle]

You're welcome @GoldSA, glad it works.

[Saxlle]

Thank you @BIGAL for code snippet! I would use that in future .