Grabar archivo excel con nombre de una celda Resuelto/Cerrado

Question

Hola,
Si alguien pudiera ayudarme, le quedaría eternamente agradecido. Estoy tratando de grabar una hoja excel con el nombre del contenido de la celda A1. Lo he intentado con una macro:

 nombre = Range("A1") & ".xls"
    ActiveWorkbook.SaveAs Filename:= _
        "C:\Documents and Settings\jesus\Mis documentos\"nombre"", FileFormat:=
        xlNormal , Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
        , CreateBackup:=False

pero me da error de sintaxis y el contenido de la celda A1 no tiene ningún carácter raro, como me ha sugerido alguien.
Si alguien sabe cómo hacerlo y no le importa explicármelo, pues muy agradecido.
Saludos

jesus · Accepted Answer

Bueno, acabo de solucionarlo así:

    cadena = "C:\Documents and Settings\jesus\Mis documentos\" & Range("A1") & ".xls"
    ActiveWorkbook.SaveAs cadena, FileFormat:= _
        xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
        , CreateBackup:=False

Gracias de todos modos si alguien se ha molestado en leerlo.
Saludos.

Andres Aprende · Answer

Jesus, Eh leido el post en forma rapida,  entiendo que tu mismo contestate la pregunta,  agradezco tu aporte

Me funciono de la misma forma

cadena = "C:\Temp\" & Range("A1") & ".xls"
ActiveWorkbook.SaveAs cadena, FileFormat:= _
xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
, CreateBackup:=False


Gracias

mcr87 · Answer

es necesario hacer una declaracion de la variable?
algo asi como dim "nombre" as string??

jodelvacha · Answer

Sub SaveAS()
' Te guarda el archivo con la extension que requieras y en el lugar donde lo quieras

Dim MiArchivo As String
MiArchivo = Range("A1")
Application.DisplayAlerts = False
ActiveWorkbook.SaveAS Filename:= _
"C:\Users\jdelvallec\Documents\96 Jose Luis Reyes\Ventas 0 Semanal 2012\" & MiArchivo, _
FileFormat:=xlWorkbookNormal, CreateBackup:=False 'Aqui se modifica el tipo de extension que deseas
Application.DisplayAlerts = True
   
End Sub

detorrole · Answer

Muy buen aporte.
Muchas gracias.

Grabar archivo excel con nombre de una celda

5 respuestas

Discusiones similares

¡Suscríbete a nuestra Newsletter!