Grabar un archivo el texto esta en una celda

hola, byrpa !

... figurense que tengo un archivo, con un nombre que me da el sistema, supongamos, file001.xls
... necesito... una macro que grabe el archivo... y ponga el nombre del contenido de una celda
... supongamos que en la celda b5 esta el texto, "barco25"
... yo lo hago manualmente, le doy edicion a la celda b5, lo marco todo, ctrl c y despues archivo-guardar como y ctrl v y aceptar
... se puede hacer esto en una macro?

con una instruccion +/- como la siguiente...-> ActiveWorkbook.SaveAs Range("b5"), xlWorkbookNormal
-> se guarda el libro 'activo' -> con el nombre/texto de la celda 'B5' DE LA HOJA 'activa'... -> EN EL DIRECTORIO 'activo' ;)

-> si necesitas que sea el libro que contiene 'la macro/instruccion'... cambia 'ActiveWorkbook' por -> ThisWorlbook
-> si necesitas que 'la hoja' pueda ser diferente de la activa... complementa 'Range("b5")' por -> Worksheets("HojaX").Range("b5")
-> si nececitas que 'el directorio' sea 'independiente' del directorio activo... complementa 'el nombre' [<hoja>.range("b5")]
ANTEPONIENDO la ruta 'diferente' [p.e.] -> "c:\mis archivos\en esta carpeta\" & <hoja>.range("b5")

[obviamente] puedes 'personalizar' [o tomar de otras celdas] las partes del codigo que necesites conservar como 'variables' ;)

si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.

Gracias con esta instruccion es mas que suficiente, ya que graba el archivo
con lo que contiene la celda B1

ActiveWorkbook.SaveAs Range("B1"), xlWorkbookNormal

Por otro lado si deseo ponerlo en un directorio diferente, donde debo
anteponer el directorio?




"Héctor Miguel" escribió en el mensaje
news:

hola, byrpa !

... figurense que tengo un archivo, con un nombre que me da el sistema,
supongamos, file001.xls
... necesito... una macro que grabe el archivo... y ponga el nombre del
contenido de una celda
... supongamos que en la celda b5 esta el texto, "barco25"
... yo lo hago manualmente, le doy edicion a la celda b5, lo marco todo,
ctrl c y despues archivo-guardar como y ctrl v y aceptar
... se puede hacer esto en una macro?

con una instruccion +/- como la siguiente...-> ActiveWorkbook.SaveAs
Range("b5"), xlWorkbookNormal
-> se guarda el libro 'activo' -> con el nombre/texto de la celda 'B5' DE
LA HOJA 'activa'... -> EN EL DIRECTORIO 'activo' ;)

-> si necesitas que sea el libro que contiene 'la macro/instruccion'...
cambia 'ActiveWorkbook' por -> ThisWorlbook
-> si necesitas que 'la hoja' pueda ser diferente de la activa...
complementa 'Range("b5")' por -> Worksheets("HojaX").Range("b5")
-> si nececitas que 'el directorio' sea 'independiente' del directorio
activo... complementa 'el nombre' [<hoja>.range("b5")]
ANTEPONIENDO la ruta 'diferente' [p.e.] -> "c:\mis archivos\en esta
carpeta\" & <hoja>.range("b5")

[obviamente] puedes 'personalizar' [o tomar de otras celdas] las partes
del codigo que necesites conservar como 'variables' ;)

si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.

hola, byrpa !

... con esta instruccion es mas que suficiente, ya que graba el archivo con lo que contiene la celda B1
ActiveWorkbook.SaveAs Range("B1"), xlWorkbookNormal
Por otro lado si deseo ponerlo en un directorio diferente, donde debo anteponer el directorio?

usando el ejemplo de la respuesta anterior...
ActiveWorkbook.SaveAs "c:\mis archivos\en esta carpeta\" & Range("b1"), xlWorkbookNormal
o... suponiendo que el texto con el directorio [incluido el '\' final] lo puedes tomar de alguna celda [p.e. 'B2']...
ActiveWorkbook.SaveAs Range("b2") & Range("b1"), xlWorkbookNormal

si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.

Gracias funciono excelente.

"Héctor Miguel" escribió en el mensaje
news:

hola, byrpa !

... con esta instruccion es mas que suficiente, ya que graba el archivo
con lo que contiene la celda B1
ActiveWorkbook.SaveAs Range("B1"), xlWorkbookNormal
Por otro lado si deseo ponerlo en un directorio diferente, donde debo
anteponer el directorio?

usando el ejemplo de la respuesta anterior...
ActiveWorkbook.SaveAs "c:\mis archivos\en esta carpeta\" & Range("b1"),
xlWorkbookNormal
o... suponiendo que el texto con el directorio [incluido el '\' final] lo
puedes tomar de alguna celda [p.e. 'B2']...
ActiveWorkbook.SaveAs Range("b2") & Range("b1"), xlWorkbookNormal

si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.