problema ejecucion de macro

Solo consultas sobre macros y código VBA Excel.
Reglas del Foro 1. Antes de hacer tu pregunta intenta con el buscador de este foro (muchas preguntas ya fueron respondidas antes!)
2. Si haces una nueva pregunta, es muy recomendable que adjuntes el ejemplo Excel para poder comprenderla mejor!
3. Realiza tu pregunta de forma clara, explicando bien cada paso de lo que haces y tendrás más probabilidad de respuesta!

problema ejecucion de macro

Notapor sven » 05 Oct 2018 06:14

tengo la siguiente macro:

Sub MoverArchivos()
Dim i, j As Integer
Dim fn As Integer
Dim cadena As String
Dim ruta As String
Dim arr

fn = FreeFile
archi = ThisWorkbook.Path
ChDir archi
ruta1 = Dir("*.txt*")
ruta = archi & "\" & ruta1
largo = Len(ruta)
Lresult = Left(ruta, largo - 4)
MkDir Lresult
ruta2 = Lresult & "\" & ruta1
If ruta1 = "" Then Exit Sub
Name ruta As ruta2



End Sub

cuando la activo con play o f8 para que funcione va perfecto pero como es un modulo de una macro mas grande que se inicia con el excel cuando llega a la linea de name me da error.
no entiendo el motivo
un saludo
sven
Miembro Frecuente
Miembro Frecuente
 
Mensajes: 77
Registrado: 03 May 2018 12:15

Re: problema ejecucion de macro

Notapor Cacho R » 05 Oct 2018 09:09

.
Hola! sven. Dos preguntas:

- ¿Qué se supone que tienes?... ¿Y dónde?...

- ¿Qué se supone que quieres hacer?... ¿Y hacia que carpeta?...

Saludos, Cacho R.
.
Avatar de Usuario
Cacho R
Miembro Frecuente
Miembro Frecuente
 
Mensajes: 10323
Registrado: 23 Jun 2011 17:15
Ubicación: Buenos Aires

Re: problema ejecucion de macro

Notapor sven » 08 Oct 2018 03:24

¿Qué se supone que tienes?: esto es una macro que forma parte de una cadena de macros que se inician al abrir el excel.

¿Y dónde? : en un modulo todas menos esta :
Private Sub Workbook_Open()
Call importartxt
End Sub

¿Qué se supone que quieres hacer?: quiero que se cree una carpeta en la ubicación actual con el nombre del txt (ya lo hace), y que el archivo txt se meta en dicha carpeta( solo lo hace si ejecuto manualmente la macro)(si la inicia excel da el error que mencione en la fila de name.)

¿Y hacia que carpeta? hacia la que crea el archivo

espero que por fin quede claro
sven
Miembro Frecuente
Miembro Frecuente
 
Mensajes: 77
Registrado: 03 May 2018 12:15

Re: problema ejecucion de macro

Notapor Cacho R » 08 Oct 2018 09:30

.
Código: Seleccionar todo
Sub moverArchivos()
Dim iFile$, pathDesde$, pathHacia$

pathDesde = ThisWorkbook.Path

Do
  iFile = Dir(pathDesde & "\*.txt")
  If iFile = "" Then Exit Do
  pathHacia = pathDesde & "\" & Left(iFile, InStrRev(iFile, ".") - 1)
  If Dir(pathHacia, vbDirectory) = "" Then MkDir pathHacia
  Do
    DoEvents
  Loop While Dir(pathHacia, vbDirectory) = ""
  Name pathDesde & "\" & iFile As pathHacia & "\" & iFile
Loop

End Sub
Avatar de Usuario
Cacho R
Miembro Frecuente
Miembro Frecuente
 
Mensajes: 10323
Registrado: 23 Jun 2011 17:15
Ubicación: Buenos Aires

Re: problema ejecucion de macro

Notapor sven » 08 Oct 2018 11:14

la macro hace lo mismo y falla en el mismo sitio, si lo ejecuto manualmente va, si lo abre el excel iniciarse falla.
se me ocurre... ¿puede ser que como la macro toma datos del txt considera que esta abierto y por eso no lo mueve??
sven
Miembro Frecuente
Miembro Frecuente
 
Mensajes: 77
Registrado: 03 May 2018 12:15

Re: problema ejecucion de macro

Notapor Cacho R » 08 Oct 2018 12:58

.
sven escribió:la macro hace lo mismo y falla en el mismo sitio..

Claro que no hace lo mismo... puesto que no tenías previsto que -a veces- hay que dar tiempo al SO para que cree una nueva carpeta.
_________________________

sven escribió:se me ocurre... ¿puede ser que como la macro toma datos del txt considera que esta abierto y por eso no lo mueve??

Si el archivo es de texto y está abierto por el Notepad, se mueven sin problemas.
Pero si un txt está abierto por otro programa (por ejemplo MS Word) puede que el procedimiento falle.

Conclusión: ¡No los tengas abiertos!...

P.D.
Me sorprende que desde el comienzo mismo de este intercambio... ¡No utilizaste "Hola" ni "Por favor" ni "Gracias"!...

¿Es raro, no?...
.
Avatar de Usuario
Cacho R
Miembro Frecuente
Miembro Frecuente
 
Mensajes: 10323
Registrado: 23 Jun 2011 17:15
Ubicación: Buenos Aires

Re: problema ejecucion de macro

Notapor sven » 09 Oct 2018 04:22

XD Holas atrasadas.
Te comento el txt no lo abre ningún programa mas que el excel que en los pasos anteriores de la macro esta toma datos de el asi que no puedo cerrar nada, no paso el excel porque no funciona sin el txt y ese no puedo pasarlo, si aun así lo quieres avisarme.
Por favor a ver quien me puede echar una mano.

Muchas gracias por la ayuda
sven
Miembro Frecuente
Miembro Frecuente
 
Mensajes: 77
Registrado: 03 May 2018 12:15


Volver a Macros

¿Quién está conectado?

Usuarios navegando por este Foro: No hay usuarios registrados visitando el Foro y 6 invitados