How run Excel macro from ACAD

[tsaracho]

Hi,
Does anyone know how to activate/run from ACAD a routine MACRO (in VBA) in EXCEL?

I have some macros (VBA) in EXCEL, and they works very well in Excel …

I have some routines in ACAD (in Vlisp) that let me communicate ACAD with EXCEL from ACAD (send and get dates from and to Excel cells and Acad variables -lisp defined-).

I look for one routine in ACAD that let me run one of this macros –based on the input defined by user Macro-Excel name - (using the original macro programmed in Excel without need make a new macro in Acad –the same as in Excel- ).
Really I would like one LISP routine (or in VB) to run one Excel-routine (VBA).

Help is needed...
Best regards
Troncosoft

[fixo]

Hi,
Does anyone know how to activate/run from ACAD a routine MACRO (in VBA) in EXCEL?

I have some macros (VBA) in EXCEL, and they works very well in Excel …

I have some routines in ACAD (in Vlisp) that let me communicate ACAD with EXCEL from ACAD (send and get dates from and to Excel cells and Acad variables -lisp defined-).

I look for one routine in ACAD that let me run one of this macros –based on the input defined by user Macro-Excel name - (using the original macro programmed in Excel without need make a new macro in Acad –the same as in Excel- ).
Really I would like one LISP routine (or in VB) to run one Excel-routine (VBA).

Help is needed...
Best regards
Troncosoft

Try this one

(defun C:RM (/ abks aexc asht find x xbks xlpath xshts)
(if (not (findfile
(setq xlpath (strcat (getvar "dwgprefix")
"TestMacros"
".xls"))));<-- full path of your Excel file, change to suit
(progn
(alert "File does not exist")
(exit)
(princ)
)
)
(alert "Close Excel File Save Changes")
 
(setq aexc (vlax-get-or-create-object "Excel.Application")
xbks (vlax-get-property aexc "Workbooks"))
(if (not (vl-file-systime xlpath))
(progn (setq find nil)
(setq abks (vlax-invoke-method xbks "Add")))
(progn (setq find T)
(setq abks (vlax-invoke-method xbks "Open" xlpath)))
)
(setq xshts (vlax-get-property abks "Sheets")
asht (vlax-get-property xshts "Item" 1)) ;<-- sheet number - optional not used in this program
(vla-put-visible aexc :vlax-true)
(vlax-put-property aexc "ScreenUpdating" :vlax-true) ; to see changes
(vlax-put-property aexc "DisplayAlerts" :vlax-true) ; to initialize user interaction
(vlax-invoke-method asht "Activate") ;optional not used in this program
(vlax-invoke-method
aexc
"Run"
(strcat (vl-filename-base xlpath) ".xls!MyMacro")) ;<-- macro name in the Excel file
(vlax-invoke-method
abks
'SaveAs
xlpath
-4143
nil
nil
:vlax-false
:vlax-false
1
2
)
(mapcar
(function (lambda (x)
(vl-catch-all-apply
(function (lambda ()
(progn
(if x
(vlax-release-object x))))))))
(list asht
xshts
abks
xbks
aexc)
)
(setq aexc nil)
(gc)
(gc)
(princ)
)
 
(princ "\nType RM to run macros")
(princ)

[treciimejl]

what would be the difference in code to automatically save and close excel file after macro job without involving user interaction?
actually part of your code after calling macro is kinda blurry to me..

[Ed Jobe]

Welcome to augi.

If you go directly to the vba forum, in the upper right is a link called "Search this forum". A search on 'excel' returned 179 threads. Also, if you installed the sample files with acad, there is a vba project for extracting attributes to excel that gives you some sample code.