Como guardar arichivo con macro que me pregunte con dialog box el mes y se guarde en una carpeta especifica

Estoy tratando de crear un macro que cuando le pida guarda me pregunte cual es el mes con una cuadro de dialogo y se guarde en una carpeta que le especifique

Sub save_as_name()
Dim fname, fpath
    fname = InputBox("enter a name")
    fname = fname & ".xls"
    fpath = "C:\GordBacks\"
    ActiveWorkbook.SaveAs fpath & fname
End Sub

Algo así, pero este no me esta funcionado

3 Respuestas

Respuesta
1

¿Qué versión de excel tienes?

¿Quieres guardar el nuevo archivo como xls?

Cambia esta línea

ActiveWorkbook.SaveAs fpath & fname

Por esta

ActiveWorkbook.SaveCopyAs fpath & fname


Prueba y me comentas

Respuesta
1
Respuesta
1

Sub save_as_name()
Dim fname, fpath
fname = InputBox("datos entrantes")
fpath = "C:\GordBacks\"
ActiveWorkbook.SaveAs Filename:=fpath & fname & ".xlsm"
End Sub

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas