Originally Posted by
avinash00002002
How can we Export and Import data to AutoCAD and Excel. I know it is possible in VBA but I want to know in Lisp. pls. send me an example for me.
Here is an example.
Code:
(defun doExcelApp (/ EXCELAPP INT OWKSHT)
(if
(not msxl-acos)
(vlax-import-type-library
:tlb-filename
"C:/Program Files/Microsoft Office/Office10/Excel.exe"
:methods-prefix
"msxl-"
:properties-prefix
"msxl-"
:constants-prefix
"msxl-"
)
)
(setq ExcelApp (vlax-get-or-create-object "Excel.Application"))
(setq owksht
(vlax-get (vlax-invoke (vlax-get Excelapp "Workbooks") "Add")
"ActiveSheet"
)
)
(vlax-put Excelapp "visible" 1)
(MSXL-PUT-NUMBERFORMAT
(MSXL-GET-RANGE OWKSHT "B2:C500")
"0.00000000"
)
(MSXL-PUT-COLUMNWIDTH (MSXL-GET-RANGE OWKSHT "A1") 35.0)
(MSXL-PUT-COLUMNWIDTH (MSXL-GET-RANGE OWKSHT "B1:C1") 20.0)
(MSXL-PUT-COLUMNWIDTH (MSXL-GET-RANGE OWKSHT "D1") 5.0)
(MSXL-PUT-COLUMNWIDTH (MSXL-GET-RANGE OWKSHT "E1") 20.0)
; GET HEADING RANGE
(setq int (MSXL-GET-INTERIOR (MSXL-GET-RANGE OWKSHT "A1:C1")))
; SET BACKGROUND COLOR OF HEADING RANGE TO YELLOW
(MSXL-PUT-COLORINDEX INT 6)
; SET FILL PATTERN OF HEADING RANGE TO SOLID
(MSXL-PUT-PATTERN INT MSXL-XLSOLID)
; Push data into cells
(msxl-put-value2 (msxl-get-range owksht "A1") "Column 1")
(msxl-put-value2 (msxl-get-range owksht "B1") "Column 2")
(msxl-put-value2 (msxl-get-range owksht "C1") "Column 3")
)