Guardar como,(.xlam), con macro

Macro para guardar como, (.xlam), Complemento de Microsoft Office Excel

Respuesta

H o l a 

Sub guardarcomoxlam()
'cambia la ruta para guardar el archivo
ruta = "C:\Documents and Settings\expertos\"
'
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs ruta & ".xlam", FileFormat:=xlOpenXMLWorkbook
ActiveWorkbook.Close
End Sub

no  olvides de finalizar saludos

No se puede

Disculpa había probado con otra extensión saludos!

1 respuesta más de otro experto

Respuesta
1

Te anexo la macro para guardar el mismo archivo que contiene la macro como complemento

Sub Macro2()
'Guardar como Complemento
'Por.Dante Amor
'
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    Set l1 = ThisWorkbook
    ruta = l1.Path & "\"
    arch = l1.Name
    nomb = Left(arch, InStrRev(arch, ".") - 1)
    arch2 = nomb & ".xlam"
    l1.SaveCopyAs ruta & "copia.xlsm"
    Workbooks.Open ruta & "copia.xlsm"
    ActiveWorkbook.SaveAs _
        Filename:=ruta & arch2, _
        FileFormat:=xlOpenXMLAddIn, CreateBackup:=False
    ActiveWorkbook.Close False
    MsgBox "Complemento guardado"
End Sub
'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Suma entre rango de fechas para un cliente

Nola, necesito hacer una suma entre un rango de fechas para un cliente definido. Elijo un rango de fechas y luego elijo un cliente de la celda de clientes y me da por resultado la suma de lo facturado de ese cliente dentro del rango de fechas...
3 respuestas

Necesito separar los dos nombres y los dos apellidos en una planilla excel

Tengo una planilla con tanto los nombres y apellido una solo a columna y necesito separar los dos nombres y los dos apellidos en columnas independiente
1 respuesta

Tengo una base de datos escrita en columnas

Necesito que quede escrita de la siguiente forma ¿Cómo lo puedo hacer?
3 respuestas

Macro para cortar un texto en 25 caracteres

Me ayudan a generar una macro que corte un texto que está en la celda A2 en 2 textos, el primer texto que lo ponga en la celda B2, no deberá cortar ninguna palabra deberá cortar el texto en máximo 25 caracteres y cortarlo en donde haya un blanco, el...
4 respuestas

Seleccionar datos mediante un Combobox en formulario

Tengo un listado de números en una columna y me gustaría seleccionar cada número mediante un Combobox de un formulario, su parte inicial sería la siguiente prívate sub combobox_change() Range (“ex”)
2 respuestas

Detectar si hay caracteres raros o acentos en texto excel

Tengo una base de datos que me da error cuando intento encontrar un texto en un campo, independientemente de si está acentuado o no y me da la sensación de que hay algún carácter raro en algún texto. ¿Hay alguna fórmula que me encuentre todos los...
2 respuestas

¿Cómo se quita mensaje de OLE?

A menudo excel se bloquea en todos los libros abiertos, luego al desbloquearse unos 3- 5 minutos después aparece el mensaje: "Microsoft Excel esta esperando que otra aplicación complete una acción OLE." ¿Cómo evitar todo esto y que no vuelva a suceder?
1 respuesta

Crear base de datos en excel

Como puedo crear una base de datos con Excel, que puedas introducir nombre, teléfono, tinte y registrar, buscar y eliminar
2 respuestas

Ocultar contraseña en macro

Tengo un archivo al cual le inserte una macro de apertura, que al abrir me pide contraseña, pero al digitarla muestra la contraseña, ¿Cómo hago para ocultarla? ¿Cómo hago para que al abrir esta me abra en una hoja especifica?
2 respuestas

Ejecutar macro si en la celda B1 hay datos

Esta es la macro que utilizo siempre, pero tengo la dificultad que a veces me olvido de colocar el numero de curso (Ejp. 1era_1era o 2da_2da ...)en la celda B1, todo este proceso se ejecuta en la hoja Activa "Curso", lo que busco que la macro se...
2 respuestas