Macro abrir todos los *.xls de una carpeta
Buenos días:
Tengo la siguiente macro que copie pero me dice que no se ha definido la variable arcact=
Lo que pretendo es que abra todos los archivos *.xls del directorio seguimientos ¿Qué le falta a esta macro para que haga lo mencionado?
Sub MyMacro4()
ChDir (ActiveWorkbook.Path)
arcact = ActiveWorkbook.Name
Dim arch As String
arch = Dir("C:\Documents and Settings\Alex Razo\Mis documentos\Polipack\Action Ventas\Clientes\Seguimientos\*.xls")
Do Until arch = ""
If arch = arcact Then GoTo Salto
Workbooks.Open Filename:=arch
Salto:
arch = Dir
Loop
End Sub
"Novato en apuros"
Tengo la siguiente macro que copie pero me dice que no se ha definido la variable arcact=
Lo que pretendo es que abra todos los archivos *.xls del directorio seguimientos ¿Qué le falta a esta macro para que haga lo mencionado?
Sub MyMacro4()
ChDir (ActiveWorkbook.Path)
arcact = ActiveWorkbook.Name
Dim arch As String
arch = Dir("C:\Documents and Settings\Alex Razo\Mis documentos\Polipack\Action Ventas\Clientes\Seguimientos\*.xls")
Do Until arch = ""
If arch = arcact Then GoTo Salto
Workbooks.Open Filename:=arch
Salto:
arch = Dir
Loop
End Sub
"Novato en apuros"
1 Respuesta
Respuesta de José Saúl Méndez Alonso
1
A ver que te parece esta modificación
Sub MyMacro4()
'Siempre es preferible declarar las variables que usemos
Dim MiRuta As String
Dim arcact As String
MiRuta = ActiveWorkbook.Path
'ChDir (ActiveWorkbook.Path)'Al parecer esto no estaba funcionando
arcact = ActiveWorkbook.Name
Dim arch As String
arch = Dir(MiRuta & "\*.xls")
Do Until arch = ""
If arch = arcact Then GoTo Salto
Workbooks.Open Filename:=MiRuta & "\" & arch
Salto:
arch = Dir
Loop
End Sub
Mejor guarda la ruta en una variable y así trabajala
Sub MyMacro4()
'Siempre es preferible declarar las variables que usemos
Dim MiRuta As String
Dim arcact As String
MiRuta = ActiveWorkbook.Path
'ChDir (ActiveWorkbook.Path)'Al parecer esto no estaba funcionando
arcact = ActiveWorkbook.Name
Dim arch As String
arch = Dir(MiRuta & "\*.xls")
Do Until arch = ""
If arch = arcact Then GoTo Salto
Workbooks.Open Filename:=MiRuta & "\" & arch
Salto:
arch = Dir
Loop
End Sub
Mejor guarda la ruta en una variable y así trabajala
Ya quedo, te lo agradezco muchísimo, salvaste un trabajo que en lo personal me ha costado.
Saludos desde la capital de México.
Gracias.
Saludos desde la capital de México.
Gracias.
