** NORMAS DEL FORO **
Inicio del foro Inicio del foro > Otros de Microsoft: Windows y Office > Excel
  Mensajes nuevos Mensajes nuevos RSS - Macro para guardar Libro Excel
  Preguntas frecuentes Preguntas frecuentes  Buscar en el foro   Eventos   Registro Registro  Iniciar sesion Iniciar sesion

Tema cerradoMacro para guardar Libro Excel

 Responder Responder
Autor
Mensaje
lursaildi Ver desplegable
Habitual
Habitual


Unido: 19/Febrero/2008
Estado: Sin conexión
Puntos: 117
Enlace directo a este mensaje Tema: Macro para guardar Libro Excel
    Enviado: 18/Mayo/2014 a las 10:02

Quiero Hacer una macro para guardar un libro de Excel en una carpeta determinada siendo  el nombre del libro el nombre de una celda de ese libro .

Tengo OFFICE 2010

Gracias de antemano

Sub Guardar()

    Dim carpeta As String, nbre As String
    carpeta = "C:\Users\Po\Desktop\Peticion de ensayos\"
    nbre = Sheets(Peticion de ensayos).Range("t7").Value
    ActiveWorkbook.SaveAs carpeta & nbre & ". Xls"
End Sub

Arriba
AnSanVal Ver desplegable
Administrador
Administrador
Avatar

Unido: 16/Marzo/2005
Localización: España
Estado: Sin conexión
Puntos: 5636
Enlace directo a este mensaje Enviado: 18/Mayo/2014 a las 14:08
Publicado originalmente por lursaildi lursaildi escribió:

Quiero Hacer una macro para guardar un libro... 
 
Me parece bien, pero... no has consultado nada. Aparte de la sintaxis... ¿Que problema tienes?, ¿Que error te da?, ¿En que linea?... 
Aprendemos intentando resolver dudas ajenas (ayuda cuando puedas/sepas).

Mi sitio_web con ejemplos Excel.
Arriba
lursaildi Ver desplegable
Habitual
Habitual


Unido: 19/Febrero/2008
Estado: Sin conexión
Puntos: 117
Enlace directo a este mensaje Enviado: 19/Mayo/2014 a las 16:10
Me dice:

Error de copilacion:
Error de sintaxis

Estos son los errores que me dice

Gracias
Arriba
AnSanVal Ver desplegable
Administrador
Administrador
Avatar

Unido: 16/Marzo/2005
Localización: España
Estado: Sin conexión
Puntos: 5636
Enlace directo a este mensaje Enviado: 19/Mayo/2014 a las 19:57
Parece que estás ahorrando en palabras y asi (al menos a mi) me resulta más difícil ayudarte. Te prgunté "¿En que linea?", pero no lo has indicado, y cuando se produce el error, el editor te indica en que linea se ha producido.  Unhappy
 
Mientras te decides; El nombre de la hoja no está entrecomillado y antes de la extensión tienes un espacio.
Aprendemos intentando resolver dudas ajenas (ayuda cuando puedas/sepas).

Mi sitio_web con ejemplos Excel.
Arriba
lursaildi Ver desplegable
Habitual
Habitual


Unido: 19/Febrero/2008
Estado: Sin conexión
Puntos: 117
Enlace directo a este mensaje Enviado: 19/Mayo/2014 a las 20:16

Perdona por ser tan parco en  palabras. Marca la línea que esta en rojo, a que te refieres con el espacio antes de la extensión, soy bastante novato en este tema

Gracias



Sub Guardar()

    Dim carpeta As String, nbre As String
    carpeta = "C:\Users\Po\Desktop\Peticion de ensayos\"
    nbre = Sheets("Peticion de ensayos").Range("t7").Value
    ActiveWorkbook.SaveAs carpeta & nbre & ". Xls"
End Sub

Arriba
AnSanVal Ver desplegable
Administrador
Administrador
Avatar

Unido: 16/Marzo/2005
Localización: España
Estado: Sin conexión
Puntos: 5636
Enlace directo a este mensaje Enviado: 19/Mayo/2014 a las 20:48
Tal como lo tienes ahora, la linea roja debe funcionar bien si: a) Existe una hoja llamada "Peticion de ensayos" y b) T7 tiene un nombre.
 
Respecto a lo del espacio me refiero  a que debes escrir ".Xls" y no ". Xls".
 
 
Aprendemos intentando resolver dudas ajenas (ayuda cuando puedas/sepas).

Mi sitio_web con ejemplos Excel.
Arriba
lursaildi Ver desplegable
Habitual
Habitual


Unido: 19/Febrero/2008
Estado: Sin conexión
Puntos: 117
Enlace directo a este mensaje Enviado: 19/Mayo/2014 a las 21:05

Con la modificación de la extensión hecha me da error ´9´en tiempo de ejecución subíndice fuera de intervalo, la carpeta existe lo solo que esta en el escritorio no se si influira en algo.

Gracias y perdon por ser tan pesado

Arriba
AnSanVal Ver desplegable
Administrador
Administrador
Avatar

Unido: 16/Marzo/2005
Localización: España
Estado: Sin conexión
Puntos: 5636
Enlace directo a este mensaje Enviado: 19/Mayo/2014 a las 22:33
Ese error me hace pensar que la condición a) expresada en mi mensaje anterior, NO se cumple.
 
¿Seguro que en el libro que contiene la macro existe una hoja llamada Peticion de ensayos?, basta que una letra sea diferente para que Excel no la reconozca.
Aprendemos intentando resolver dudas ajenas (ayuda cuando puedas/sepas).

Mi sitio_web con ejemplos Excel.
Arriba
lursaildi Ver desplegable
Habitual
Habitual


Unido: 19/Febrero/2008
Estado: Sin conexión
Puntos: 117
Enlace directo a este mensaje Enviado: 20/Mayo/2014 a las 21:42

Si tenías razón no era exactamente igual que esta,  pero ahora me da otro error porque  la celda de donde coge los datos es una fecha y me da error  "el nombre del archivo o ruta no existen”, “otro programa está usando el archivo”, “el libro que está intentando guardar tiene el mismo nombre que otro"  el formato que uso para la fecha es 20/05/14


Arriba
AnSanVal Ver desplegable
Administrador
Administrador
Avatar

Unido: 16/Marzo/2005
Localización: España
Estado: Sin conexión
Puntos: 5636
Enlace directo a este mensaje Enviado: 21/Mayo/2014 a las 10:38

Tú eres quien sabe lo que estás haciendo y que condiciones se dan en cada momento, por tanto te corresponde a ti investigar con un poco más de profundidad.

(Como ayuda) recuerda que; los nombres de archivo no pueden contener los caracteres siguientes:
\ / : * ? " < > |.
Aprendemos intentando resolver dudas ajenas (ayuda cuando puedas/sepas).

Mi sitio_web con ejemplos Excel.
Arriba
lursaildi Ver desplegable
Habitual
Habitual


Unido: 19/Febrero/2008
Estado: Sin conexión
Puntos: 117
Enlace directo a este mensaje Enviado: 21/Mayo/2014 a las 15:24
Gracias solucionado  Thumbs Up
 
Arriba
 Responder Responder
  Compartir tema   

Ir al foro Permisos de foro Ver desplegable