Foros del Web » Programación para mayores de 30 ;) » Programación General » Visual Basic clásico »

Abir un fichero con un indice con vbs para macro excel

Estas en el tema de Abir un fichero con un indice con vbs para macro excel en el foro de Visual Basic clásico en Foros del Web. Buenas, querçia saber como puedo abrir un fichero desde una macro para excel que tenga un "indide en el nombre" Me explico: Quiero hacer un ...
  #1 (permalink)  
Antiguo 05/05/2010, 03:57
 
Fecha de Ingreso: mayo-2010
Mensajes: 1
Antigüedad: 13 años, 10 meses
Puntos: 0
Abir un fichero con un indice con vbs para macro excel

Buenas, querçia saber como puedo abrir un fichero desde una macro para excel que tenga un "indide en el nombre"
Me explico:

Quiero hacer un bucle que me abra los siguiente ficheros:
archivo1.xls
archivo2.xls
archivo3.xls
...
archivon.xls

Un saludo, y gracias de antemano.
  #2 (permalink)  
Antiguo 05/05/2010, 16:13
 
Fecha de Ingreso: mayo-2007
Mensajes: 26
Antigüedad: 16 años, 10 meses
Puntos: 0
Respuesta: Abir un fichero con un indice con vbs para macro excel

Buenas

La forma de abrir un archivo cambia segun si quieres abrir un exce, un acces un word... Pero la forma de ir abriendo mas de uno dentro de un bucle cambiano un indice es igual.
Solo as de crear una variable string con la parte "fija" del nombre del archivo y concatenar el indice justo detras a cada iteración del bucle.

Para el ejemplo te pongo como abrir una serie de archivos excel:

Dim app As New Excel.Application
Dim wb As New Excel.Workbook
dim ruta as string
Dim indice as Integer

Set app = New Excel.Application

for indice=1 to 5
ruta = "archivo" & indice
Set wb = app.Workbooks.Open(ruta)
next

En caso de que no quieras abrir una serie de excel, abre el archivo como toque, pero la parte de modificar el nombre te servirá.
Espero que sirva
  #3 (permalink)  
Antiguo 06/05/2010, 10:47
Avatar de lokoman  
Fecha de Ingreso: septiembre-2009
Mensajes: 502
Antigüedad: 14 años, 6 meses
Puntos: 47
Respuesta: Abir un fichero con un indice con vbs para macro excel

Hola!!
Puedes intentar:

Dim RutaArchivo as string, RutaOffice as string, RutaArchivo as string, Abrir as string, J as Integer

RutaOffice = "C:\Program Files\Microsoft Office\OFFICE11\EXCEL.EXE"
RutaArchivo="C:\Archivo"

For J=1 to 5
Abrir = Shell(RutaOffice & " " & RutaArchivo & J, vbNormalFocus)
Next J

Etiquetas: abir, excel, fichero, indice, macro, vbs
Atención: Estás leyendo un tema que no tiene actividad desde hace más de 6 MESES, te recomendamos abrir un Nuevo tema en lugar de responder al actual.
Respuesta




La zona horaria es GMT -6. Ahora son las 06:45.