Macro para grabar un archivo con el texto contenido en una cela

La busqueda la puedes realizar desde aqui ...

http://groups.google.com.mx/group/m...mp;lnk=srg



"Juan Carlos" wrote in message
news:
Hola:

Necesito crear una macro que, al dar la orden de grabar cómo, proponga
como nombre del archivo el contenido de una celda. Para usar en una
plantilla creada con Excel 2003.

Muchas gracias

Aparte: ¿Hay alguna forma de buscar un tema en el grupo de discusión,
sin necesidad de recorrer todo lo consultado últimamente?

Prueba este código, en donde en la celda A1 tiene el nombre del archivo (sin
.xls)

Sub grabar()
'
' grabar Macro
' Macro grabada el 29/01/2008 por Raúl Bajo Sanz
'

'
Dim nombre As String
nombre = Range("a1")
nombre2 = "C:\Documents and Settings\Raul\Mis documentos\" & nombre &
".xls"
ActiveWorkbook.SaveAs Filename:= _
nombre2, FileFormat:= _
xlNormal, Password:="", WriteResPassword:="",
ReadOnlyRecommended:=False _
, CreateBackup:=False
End Sub


"Juan Carlos" wrote:

Hola:

Necesito crear una macro que, al dar la orden de grabar cómo, proponga
como nombre del archivo el contenido de una celda. Para usar en una
plantilla creada con Excel 2003.

Muchas gracias

Aparte: ¿Hay alguna forma de buscar un tema en el grupo de discusión,
sin necesidad de recorrer todo lo consultado últimamente?

http://www.microsoft.com/communitie...5456a0574b

On 29 ene, 15:30, Raúl Bajo Sanz
wrote:

Prueba este código, en donde en la celda A1 tiene el nombre del archivo (sin
.xls)

Sub grabar()
'
' grabar Macro
' Macro grabada el 29/01/2008 por Raúl Bajo Sanz
'

'
    Dim nombre As String
    nombre = Range("a1")
    nombre2 = "C:\Documents and Settings\Raul\Mis documentos\" & nombre &
".xls"
    ActiveWorkbook.SaveAs Filename:= _
        nombre2, FileFormat:= _
        xlNormal, Password:="", WriteResPassword:="",
ReadOnlyRecommended:=False _
        , CreateBackup:=False
End Sub

"Juan Carlos" wrote:
> Hola:

> Necesito crear una macro que, al dar la orden de grabar cómo, proponga
> como nombre del archivo el contenido de una celda. Para usar en una
> plantilla creada con Excel 2003.

> Muchas gracias

> Aparte:  ¿Hay alguna forma de buscar un tema en el grupo de discusión,
> sin necesidad de recorrer todo lo consultado últimamente?

http://www.microsoft.com/communitie...aspx?dg...

Raúl:

Muchas gracias. Funcionó perfecto.

On 29 ene, 16:30, Raúl Bajo Sanz
wrote:

Prueba este código, en donde en la celda A1 tiene el nombre del archivo (sin
.xls)

Sub grabar()
'
' grabar Macro
' Macro grabada el 29/01/2008 por Raúl Bajo Sanz
'

'
    Dim nombre As String
    nombre = Range("a1")
    nombre2 = "C:\Documents and Settings\Raul\Mis documentos\" & nombre &
".xls"
    ActiveWorkbook.SaveAs Filename:= _
        nombre2, FileFormat:= _
        xlNormal, Password:="", WriteResPassword:="",
ReadOnlyRecommended:=False _
        , CreateBackup:=False
End Sub

"Juan Carlos" wrote:
> Hola:

> Necesito crear una macro que, al dar la orden de grabar cómo, proponga
> como nombre del archivo el contenido de una celda. Para usar en una
> plantilla creada con Excel 2003.

> Muchas gracias

IM PRE SIO NAN TE, te debo algunas horas de mi trabajo. Si necesitas
sangre avisa y voy a llevartela.
Se que para Ud debe ser 5 min escribiendo esas lineas pero para mi son
un gran ahorro de tiempo. Sinceramente Gracias
pd: si se copia y pega no funciona perfectamente (obviamente cambiando
la carpeta de destino, sino la sintaxis visual no la toma, para
inexpertos como yo me tomo algo de tiempo)

me funciono asi, espero que a alguien le sirva levantalo de aqui como
a mi dese ahi. SALUDOS!!

Sub GRABAR_con_NOMBRE_DE_CELDA()
'
' GRABAR_CON_NOMBRE_DE_CELDA Macro
' guardar como contenido en g2 en C:\xxxrr\ddd\
'
' Acceso directo: Ctrl+Mayús+G
'
Dim nombre As String
nombre = Range("g2")
nombre2 = "C:\xxxrr\ddd\" & nombre & ".xls"

ActiveWorkbook.SaveAs Filename:= _
nombre2, FileFormat:=xlNormal, Password:="",
WriteResPassword:="", ReadOnlyRecommended:=False _
, CreateBackup:=False


End Sub