macrogabito

Juan José López Olivera respondió: ¿Qué version de Acad utilizas?

Elsa Matilde respondió: Disculpa la demora, la culpa la tiene el Mundial! Para la primer parte, la rutina adjunta se coloca en un módulo: Sub guardando() On Error Resume Next Dim miNombre As String miNombre = ActiveWorkbook.Name miNombre = Left(miNombre, Len(miNombre) - 4)...

jorgeojedau respondió: (Defun c:bg (/ prefDisplay color) (Vl-load-com) (Setq prefDisplay (vla-get-Display (vla-get-Preferences (vlax-get-acad-object)) ) Color (vlax-variant-value (vlax-variant-change-type (vla-get-GraphicsWinModelBackgrndColor prefDisplay) Vlax-vbLong ) )...

Anónimo respondió: Vamos por partes 1) Para grabar el archivo actual a)(con el mismo nombre) ActiveWorkbook. Save b) como csv Dim miNombre As String miNombre = ActiveWorkbook.Name miNombre = Left(miNombre, Len(miNombre) - 4) & ".csv" Application.DisplayAlerts = False...