Trabajar con dos archivos excel en visual basic 6
Primero comentarte que soy novato en todo esto, espero explicarme con claridad.
Tengo dos archivos excel uno que contiene los datos y otro que es una plantilla donde tengo que insertar los datos de la primera excel para que genere una gráfica.
La primera tabla tengo un campo donde poner RUTA ... Y un numero ejemplo Ruta 101 y en la siguiente fila contiene los datos luego Ruta 102 y sus datos lo que quiero conseguir es ir guardando esos datos ejemplo datos de la Ruta 101 con sus datos e insertarlos en la plantilla una vez insertados que esa plantilla se guarde con otro nombre para que de esta manera la plantilla inicial no sea machacada. Espero que te sea útil mi explicación.
A también me gustaría saber si existe alguna manera de recoger una excel mediante un bucle y que ese bucle no se rompa hasta que no llegue al ultimo registro.
Tengo dos archivos excel uno que contiene los datos y otro que es una plantilla donde tengo que insertar los datos de la primera excel para que genere una gráfica.
La primera tabla tengo un campo donde poner RUTA ... Y un numero ejemplo Ruta 101 y en la siguiente fila contiene los datos luego Ruta 102 y sus datos lo que quiero conseguir es ir guardando esos datos ejemplo datos de la Ruta 101 con sus datos e insertarlos en la plantilla una vez insertados que esa plantilla se guarde con otro nombre para que de esta manera la plantilla inicial no sea machacada. Espero que te sea útil mi explicación.
A también me gustaría saber si existe alguna manera de recoger una excel mediante un bucle y que ese bucle no se rompa hasta que no llegue al ultimo registro.
Respuesta de Raul Hernandez
1
Con respecto a lo de bucle, si se puede, usas esto:
Range("XX").select
while activecell.value <> ""
'codigo que necesitas
Activecell.offset(1,0).select
Wend
Donde XX es la celda inicial de la columna por la que quieres iniciar el bucle o la búsqueda, luego tienes una estructura While que mientras la celda seleccionada tenga algún valor (el que sea) seguirá ejecutando el código que esta dentro de ella, y por ultimo la senticia Activecell. offset(1,0). select que baja una celda en la columna de busqueda.
Con respecto a lo primeo no entiendo muy bien lo que deseas, trata de explicarte un poco mejor.
Range("XX").select
while activecell.value <> ""
'codigo que necesitas
Activecell.offset(1,0).select
Wend
Donde XX es la celda inicial de la columna por la que quieres iniciar el bucle o la búsqueda, luego tienes una estructura While que mientras la celda seleccionada tenga algún valor (el que sea) seguirá ejecutando el código que esta dentro de ella, y por ultimo la senticia Activecell. offset(1,0). select que baja una celda en la columna de busqueda.
Con respecto a lo primeo no entiendo muy bien lo que deseas, trata de explicarte un poco mejor.
Ese bucle no me vale ya que la tabla tiene campos en blanco por tanto si encontrara algún campo en blanco se saldría.Lo que hago es que cuando encuentro un campo en blanco miro si es la columna 1 ejemplo fila 50 columna 1 cuando encuentro ese dato miro si la siguiente es decir la fila 51 columna 1 también esta en blanco y si a la cuarta vez seguida que encuentra un campo en blanco pues que termine.
Ahora tengo el siguiente dilema espero explicarme algo mejor:
Como ya te comente trabajo con dos tablas una que tiene los datos y otra que es una plantilla donde inserto datos para que lo represente mediante una gráfica. La tabla con datos tienes esta estructura:
RUTA 1 SIN RUTA DEFINIDA 2_2009 3_2009 4_2009 5_2009 6_2009 7_2009 8_2009 9_2009 10_2009 11_2009 12_2009 1_2010 88468,34 70995,40 3000,00 117681,06 72963,04 3729,80 72739,95 112791,95 6701,91 5233,42 11438,97 3097,32 2_2008 3_2008 4_2009 5_2008 6_2008 7_2008 8_2008 9_2008 10_2008 11_2008 12_2008 1_2009 70029,22 62026,70 0,00 88710,90 47350,40 71701,40 266343,68 13964,29 39398,40 5796,80 400780,87 -22364,28
RUTA 2 EXPORTACION 2_2009 3_2009 4_2009 5_2009 6_2009 7_2009 8_2009 9_2009 10_2008 11_2009 12_2009 1_2009 327991,48 496250,5 164,24 210624,27 391240,52 17218,79 294752,18 137077,87 6701,91 432867,17 189724,15 3097,32 2_2008 3_2008 4_2009 5_2008 6_2008 7_2008 8_2008 9_2008 10_2008 11_2008 12_2008 1_2009 459470,33 435889,32 371917,31 847554,41 577,5 679402,37 317989,08 208760,02 10688,39 241577,09 28068,51
Entonces ahora mi gran duda es una vez que he insertado los datos de la ruta 1 en la plantilla como guardo ese documentos excel con otro nombre para que no me machaque la plantilla inicial. Y otra duda como cierro la plantilla inicial y que se salte lo de guardar cambios
Como ya te comente trabajo con dos tablas una que tiene los datos y otra que es una plantilla donde inserto datos para que lo represente mediante una gráfica. La tabla con datos tienes esta estructura:
RUTA 1 SIN RUTA DEFINIDA 2_2009 3_2009 4_2009 5_2009 6_2009 7_2009 8_2009 9_2009 10_2009 11_2009 12_2009 1_2010 88468,34 70995,40 3000,00 117681,06 72963,04 3729,80 72739,95 112791,95 6701,91 5233,42 11438,97 3097,32 2_2008 3_2008 4_2009 5_2008 6_2008 7_2008 8_2008 9_2008 10_2008 11_2008 12_2008 1_2009 70029,22 62026,70 0,00 88710,90 47350,40 71701,40 266343,68 13964,29 39398,40 5796,80 400780,87 -22364,28
RUTA 2 EXPORTACION 2_2009 3_2009 4_2009 5_2009 6_2009 7_2009 8_2009 9_2009 10_2008 11_2009 12_2009 1_2009 327991,48 496250,5 164,24 210624,27 391240,52 17218,79 294752,18 137077,87 6701,91 432867,17 189724,15 3097,32 2_2008 3_2008 4_2009 5_2008 6_2008 7_2008 8_2008 9_2008 10_2008 11_2008 12_2008 1_2009 459470,33 435889,32 371917,31 847554,41 577,5 679402,37 317989,08 208760,02 10688,39 241577,09 28068,51
Entonces ahora mi gran duda es una vez que he insertado los datos de la ruta 1 en la plantilla como guardo ese documentos excel con otro nombre para que no me machaque la plantilla inicial. Y otra duda como cierro la plantilla inicial y que se salte lo de guardar cambios
Para guardar un documento de excel con otro nombre usa esta sentencia:
ActiveWorkbook. Saveas Ruta&Nombre_Archivo
y para cerrar un documento sin salvar los cambios:
ActiveWindow.Close savechanges:=False
ActiveWorkbook. Saveas Ruta&Nombre_Archivo
y para cerrar un documento sin salvar los cambios:
ActiveWindow.Close savechanges:=False
