Excel - Ayuda macro guardar con nombre contenido celdas

 
Vista:

Ayuda macro guardar con nombre contenido celdas

Publicado por Juan Pedro (5 intervenciones) el 04/04/2018 11:27:01
Hola,

Con mis escasos conocimientos estoy haciendo una macro para que guarde el libro excel en una determinada ruta tomando para el nombre el contenido de algunas cedas.
La macro funciona, salvo porque al crear el nombre, si los datos de las celdas contienen un espacio lo crea así:
11111111H_JUAN%20PEDRO%20LEYVA_MOTOS%20LEYS_54001234_88001234_AAAA_04042018_121424

Sustituye el espacio por %20

Ni idea de cómo solucionarlo.
Gracias por adelantado.
Leys

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
'@leys
'Objetivo: guardar la ficha de integración en la carpeta FICHAS_CLIENTES_PAQUETERIA,
'mismo formato,
'nombre compuesto por los valores de las celdas: NIF/CIF, NOMBRE CLIENTE (EN CRM), NOMBRE COMERCIAL, CONTRATO, CLIENTE, ETIQUETADOR, FECHA Y HORA
Sub GuardarFicha()
Dim nombre As String, NIF As String, NOMBRECLIENTE As String, NOMBRECOMERCIAL As String, CONTRATO As String, CLIENTE As String, ETIQUETADOR As String, Ruta As String
'Ruta donde se guardará la ficha
Ruta = "T:"
'Celdas para componer el nombre
NIF = Range("d30").Text
NOMBRECLIENTE = Range("d28").Text
NOMBRECOMERCIAL = Range("d29").Text
CONTRATO = Range("k13").Text
CLIENTE = Range("l13").Text
ETIQUETADOR = Range("m13").Text
'nombre
nombre = NIF & "_" & NOMBRECLIENTE & "_" & NOMBRECOMERCIAL & "_" & CONTRATO & "_" & CLIENTE & "_" & ETIQUETADOR & "_" & Format(Now, "ddmmyyyy_hhmmss")
'Guarda el libro activo tal cual en la ruta y con el nombre definidos
ActiveWorkbook.SaveAs Filename:=Ruta & "/" & nombre
'Mensaje ok
MsgBox "Yujuuu!", , "Guardar Ficha"
End Sub
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de Antoni Masana
Val: 4.012
Plata
Ha mantenido su posición en Excel (en relación al último mes)
Gráfica de Excel

Ayuda macro guardar con nombre contenido celdas

Publicado por Antoni Masana (1401 intervenciones) el 04/04/2018 12:17:29
Te adjunto un libro con la macro tal cual la tienes, solo he añadido un MsgBox. A mi me funciona bien.

Ejecuta la macro en el libro que te envío y prueba si te funciona.

Si genera bien el nombre del fichero el problema puede estar en las celdas de tu libro.
Si sigue cambiando los espacios el problema puede estar en la configuración del Excel.

Saludos.
\\//_
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Ayuda macro guardar con nombre contenido celdas

Publicado por Leys (5 intervenciones) el 04/04/2018 12:44:48
Gracias Antoni!

He ejecutado la macro de tu libro y sigue cambiando los espacios.
¿Se te ocurre algo?

Muchas gracias por tu ayuda

Saludos
Leys
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Ayuda macro guardar con nombre contenido celdas

Publicado por JuanC (1237 intervenciones) el 04/04/2018 14:22:11
también lo probé y funciona
una solución, cambiar espacios por guión bajo

nombre = VBA.Replace(nombre, " ", "_")
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Imágen de perfil de Antoni Masana
Val: 4.012
Plata
Ha mantenido su posición en Excel (en relación al último mes)
Gráfica de Excel

Ayuda macro guardar con nombre contenido celdas

Publicado por Antoni Masana (1401 intervenciones) el 05/04/2018 06:39:32
Una nueva prueba.

Esta macro que te envío crea un directorio y crea tres ficheros de diferentes formas en ese directorio y todo tiene un espacio.

Haber que pasa.

Saludos.
\\//_
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Ayuda macro guardar con nombre contenido celdas

Publicado por Leys (5 intervenciones) el 05/04/2018 16:13:58
Hola Antoni,

La macro de Prueba_2 me da error 75 en tiempo de ejecución, error de acceso a la ruta o el archivo.
El depurador se detiene en MkDir Ruta
He probado a cambiar la ruta "C:\Nuevo Directorio" por una que sí existe y tengo el mismo error.

Muchas gracias,
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Imágen de perfil de Antoni Masana
Val: 4.012
Plata
Ha mantenido su posición en Excel (en relación al último mes)
Gráfica de Excel

Ayuda macro guardar con nombre contenido celdas

Publicado por Antoni Masana (1401 intervenciones) el 06/04/2018 06:31:53
Es curioso el problema porque MkDir Ruta debería ser capaz de crear un directorio.
Si el directorio "C:\Nuevo Directorio" borralo y prueba la macro haber si lo crea.
Si ejecutas la macro una segunda vez dada error porque intenta crear un directorio que ya existe.
Me interesa saber si en directorio lo crea con espacio o %20.
Me interesa ver cómo crea los otros ficheros.
Si el Mkdir no es capaz de crear el nombre de directorio con espacios ya tenemos un problema.
Prueba la macro con otro nombre de directorio que no exista y sin espacio.
Prueba a ejecutar la macro sin el MkDir.

Estas son las pruebas que haría para buscar el fallo.

Saludos.
\\//_
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Ayuda macro guardar con nombre contenido celdas

Publicado por Leys (5 intervenciones) el 06/04/2018 06:57:00
Buen viernes Antoni,

He eliminado la carpeta C:\Nuevo Directorio
La he ejecutado. El error ahora es 53, archivo no encontrado. 'Shell "Type Nul >" & Ruta & "\" & Nombre & "_1.txt"'.
El directorio 'Nuevo Directorio' se crea con espacio. No contiene nada.

He ejecutado la macro con otro nombre de directorio que no existía y sin espacio. Misma situación.

Mil gracias,
Leys
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Imágen de perfil de Antoni Masana
Val: 4.012
Plata
Ha mantenido su posición en Excel (en relación al último mes)
Gráfica de Excel

Ayuda macro guardar con nombre contenido celdas

Publicado por Antoni Masana (1401 intervenciones) el 06/04/2018 09:58:25
Comenta el Mkdir y el Shell y prueba la macro.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Ayuda macro guardar con nombre contenido celdas

Publicado por JUAN PEDRO (5 intervenciones) el 03/05/2018 12:15:09
Gracias Antoni,
He estado unos días fuera.

He hecho lo que sugieres y el error que recibo es:
error 76, no se ha encontrado la ruta de acceso (no crea C:\Nuevo Directorio)
El depurador marca Open Ruta & "\" & Nombre & "_3.txt" For Output As #1: Close #1

Siempre gracias por tu ayuda
Leys
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar