Foros del Web » Soporte técnico » Ofimática »

como puedo cargar informacion de otro libro de excel a otro

Estas en el tema de como puedo cargar informacion de otro libro de excel a otro en el foro de Ofimática en Foros del Web. me explico estoy trabajandocon macros en excel 2003 y necesito cargar informacion que esta en otro excel de que manera puedo hacer esto gracias por ...
  #1 (permalink)  
Antiguo 20/07/2010, 14:27
Avatar de a83
a83
 
Fecha de Ingreso: noviembre-2005
Ubicación: Santiago de chile
Mensajes: 637
Antigüedad: 15 años, 5 meses
Puntos: 1
Pregunta como puedo cargar informacion de otro libro de excel a otro

me explico estoy trabajandocon macros en excel 2003 y necesito cargar informacion que esta en otro excel de que manera puedo hacer esto gracias por la ayuda
  #2 (permalink)  
Antiguo 20/07/2010, 14:29
Avatar de Monimo  
Fecha de Ingreso: noviembre-2007
Ubicación: Mexico Df
Mensajes: 742
Antigüedad: 13 años, 5 meses
Puntos: 69
Respuesta: como puedo cargar informacion de otro libro de excel a otro

Cita:
Iniciado por a83 Ver Mensaje
me explico estoy trabajandocon macros en excel 2003 y necesito cargar informacion que esta en otro excel de que manera puedo hacer esto gracias por la ayuda
mm tu explicación es muy pobre. si solo quieres leer unas celdas, basta con abrirlo desde codigo hacer referencia a las celdas y listo, o puedes copiar toda una hoja a tu libro, o no se bien que es lo que quieras hacer.
__________________
La verdad es que lo que no quisiera dejar de hacer nunca (a parte de comer) es programar
  #3 (permalink)  
Antiguo 20/07/2010, 14:42
Avatar de a83
a83
 
Fecha de Ingreso: noviembre-2005
Ubicación: Santiago de chile
Mensajes: 637
Antigüedad: 15 años, 5 meses
Puntos: 1
Respuesta: como puedo cargar informacion de otro libro de excel a otro

mira ,

lo que necesito es lo siguiente;

tengo varios archivos en excel que estan en la misma carpeta donde tengo el archivo donde estoy creando la macro bien.

bueno ahora tengo que configurar un boton para que me traiga los datos de de uno de los libros que tengo en esa carpeta me entiendes ese archivo se actulisa todo los dias lo que quiero hacer es traer esa informacion a mi informe oficial lo podemos llamar
  #4 (permalink)  
Antiguo 20/07/2010, 15:07
Avatar de Monimo  
Fecha de Ingreso: noviembre-2007
Ubicación: Mexico Df
Mensajes: 742
Antigüedad: 13 años, 5 meses
Puntos: 69
Respuesta: como puedo cargar informacion de otro libro de excel a otro

Cita:
Iniciado por a83 Ver Mensaje
mira ,

lo que necesito es lo siguiente;

tengo varios archivos en excel que estan en la misma carpeta donde tengo el archivo donde estoy creando la macro bien.

bueno ahora tengo que configurar un boton para que me traiga los datos de de uno de los libros que tengo en esa carpeta me entiendes ese archivo se actulisa todo los dias lo que quiero hacer es traer esa informacion a mi informe oficial lo podemos llamar
Bueno sigues sin explicarte, pero aqui te dejo codigo para copiar una hoja entera , moverla o para solo leer los datos dependiendo donde esten. .


este metodo te despliega la ventana para que elijas la ubicacion y el archivo a abrir.

Sub openfile()
sFilename = Application.GetOpenFilename
If sFilename <> "False" Or sFilename <> "False.xls" Then
'abrimos archivo
Workbooks.Open (sFilename)
Else
MsgBox ("Ha elegido cancelar el archivo. Inténtelo de nuevo")
Exit Sub
End If
End Sub


para hacerlo automatico sin que se despliegue esa ventana :

Workbooks.Open ("Ruta del archivo con nombre y extensión")



Una vez abierto solo haces referencia a los datos. Como no se si es a todas las hojas o a todas las celdas de ese libro pues solo es replicar las lineas de codigo.
celda_inicial=1

Do While Range("A" & celdainicial).Value <> ""
celdainicial = celdainicial + 1
loop

celda_final=celda_inicial

Con esto obtienes la final y la inicial haces lo mismo para las columnas y obtienes los datos. Si lo que quieres es sacar toda la hoja:


windows("elwrkbkque abriste anteriormente").activate
ActiveSheet.Move After:=Workbooks(el libro a donde quieres actualizar).Sheets(1)
__________________
La verdad es que lo que no quisiera dejar de hacer nunca (a parte de comer) es programar
  #5 (permalink)  
Antiguo 20/07/2010, 16:02
Avatar de a83
a83
 
Fecha de Ingreso: noviembre-2005
Ubicación: Santiago de chile
Mensajes: 637
Antigüedad: 15 años, 5 meses
Puntos: 1
Respuesta: como puedo cargar informacion de otro libro de excel a otro

jajajaj que bien


Mira lo que neceito es trater los del archivo calculo1.xls de las seldas A5 hasta la AK5 esto datos los tengo que incorporar alarchivo info1.xls columa B10 en adelante

me gusto esa forma en la cual buscas el archivo excelente
  #6 (permalink)  
Antiguo 20/07/2010, 16:55
Avatar de Monimo  
Fecha de Ingreso: noviembre-2007
Ubicación: Mexico Df
Mensajes: 742
Antigüedad: 13 años, 5 meses
Puntos: 69
Respuesta: como puedo cargar informacion de otro libro de excel a otro

Dim sFileName As String
Dim wmacro As String
Dim worigen As String
Dim wdestino As String



Private Sub CommandButton1_Click()
wmacro = ActiveWorkbook.Name

openfile
'ActiveWorkbook.Name
worigen = ActiveWorkbook.Name
'wdestino = "info1.xls"

MsgBox ("Elija Ahora el archivo destino")
openfile
wdestino = ActiveWorkbook.Name
'activamos la celda desde donde se actualiza, esto para conocer el numero de renglon y columna
Range("B10").Activate
rt = ActiveCell.Row 'renglon
ct = ActiveCell.Column 'columna

For i2 = 1 To 37
rt2 = rt
For i = 1 To 5
Workbooks(worigen).Activate
' guardamos en una variable temporal el valor q esta en la celda q actualmente recorremos
temp = Cells(i, i2).Value
'seleccionamos el libro donde pondremos los datos
Workbooks(wdestino).Activate
'lo asignamos a variables para irle sumando conforma nos movemos en la hoja
Cells(rt2, ct + i2).Value = temp 'a la columna le sumamos el valor de i2 pues asi se movera conforme a la columna q vaya leyendo.
'se movera 5 renglones abajo. en la columna q debe ir
rt2 = rt2 + 1

Next

Next



End Sub

Sub openfile()
sFileName = Application.GetOpenFilename
If sFileName <> "False" Or sFileName <> "False.xls" Then
'abrimos archivo
Workbooks.Open (sFileName)
Else
MsgBox ("Ha elegido cancelar el archivo. Inténtelo de nuevo")
Exit Sub
End If
End Sub
__________________
La verdad es que lo que no quisiera dejar de hacer nunca (a parte de comer) es programar
  #7 (permalink)  
Antiguo 20/07/2010, 16:59
Avatar de a83
a83
 
Fecha de Ingreso: noviembre-2005
Ubicación: Santiago de chile
Mensajes: 637
Antigüedad: 15 años, 5 meses
Puntos: 1
Respuesta: como puedo cargar informacion de otro libro de excel a otro

que es esto?


me dejas con la boca en plop
  #8 (permalink)  
Antiguo 20/07/2010, 17:05
Avatar de Monimo  
Fecha de Ingreso: noviembre-2007
Ubicación: Mexico Df
Mensajes: 742
Antigüedad: 13 años, 5 meses
Puntos: 69
Respuesta: como puedo cargar informacion de otro libro de excel a otro

Pues es el código q te hace lo que quieres hacer... de pasar unos datos a otro, Pruebalo si quieres en una macro nueva crea un userform y pega ese código...con un boton y ve si es lo que necesitas
__________________
La verdad es que lo que no quisiera dejar de hacer nunca (a parte de comer) es programar
  #9 (permalink)  
Antiguo 21/07/2010, 09:31
Avatar de a83
a83
 
Fecha de Ingreso: noviembre-2005
Ubicación: Santiago de chile
Mensajes: 637
Antigüedad: 15 años, 5 meses
Puntos: 1
Respuesta: como puedo cargar informacion de otro libro de excel a otro

mira me muestra el encabesado pero

me tira esta informacion que no entiendo que es
Código PHP:
SliceSpec=Version=1,CubeID={5C828FA3-0FED-47D3-86F5-BA82B6538A08},RowIDs={8A177FB8-CEEB-4389-875E-9CD29CD3B6FB},ColIDs={494570C7-7D4E-4825-B1C9-B4348A1141CE},SliceIDs={9BF954B9-CBAB-4D86-B6B8-B88580979F49}{C47B623F-8D59-4CB2-B14D-7A579698E597}{B1D3D5C5-8FA8-4F7B-8925-2239FDDF73EB}{F14CD027-B1EA-48B7-85FB-ED310B0FE309},SliceItemIDs={AD58272F-8E7C-4354-8719-6B61A3FABD06}{1CB53845-C6E4-47E2-BF88-B0D363947C09}{4C52B36C-204E-489F-8876-81E587049308}{85DADA33-14C4-4991-AF94-DA6608EB53A2}            
    
Profit and Loss Summary        
    
[Chile Inter] [FINAL] [Combined] [Budget
  #10 (permalink)  
Antiguo 21/07/2010, 09:54
Avatar de Monimo  
Fecha de Ingreso: noviembre-2007
Ubicación: Mexico Df
Mensajes: 742
Antigüedad: 13 años, 5 meses
Puntos: 69
Respuesta: como puedo cargar informacion de otro libro de excel a otro

Donde te sale eso?
__________________
La verdad es que lo que no quisiera dejar de hacer nunca (a parte de comer) es programar
  #11 (permalink)  
Antiguo 21/07/2010, 10:55
Avatar de a83
a83
 
Fecha de Ingreso: noviembre-2005
Ubicación: Santiago de chile
Mensajes: 637
Antigüedad: 15 años, 5 meses
Puntos: 1
Respuesta: como puedo cargar informacion de otro libro de excel a otro

me sale cuando carga la informacion que trae a la hoja nueva quiere decri donde traspaso la informacion


y cuandole digo cancelar que no traiga ningun dato me sale arror1004 en tiempo de ejecucion no se puede hallar "falso.xls
  #12 (permalink)  
Antiguo 21/07/2010, 11:23
Avatar de Monimo  
Fecha de Ingreso: noviembre-2007
Ubicación: Mexico Df
Mensajes: 742
Antigüedad: 13 años, 5 meses
Puntos: 69
Respuesta: como puedo cargar informacion de otro libro de excel a otro

Me parece que no es un documento "normal " de excel a eso me refería cuando decía q tu explicación era muy pobre, probablemente sea un documento q se exporta de algun reporteador o algo asi...esas líneas de código no me son para nada familiares, parecieran de Java inclusive no se si te salen en una ventana de error o en la hoja del documento....
__________________
La verdad es que lo que no quisiera dejar de hacer nunca (a parte de comer) es programar
  #13 (permalink)  
Antiguo 21/07/2010, 12:17
Avatar de a83
a83
 
Fecha de Ingreso: noviembre-2005
Ubicación: Santiago de chile
Mensajes: 637
Antigüedad: 15 años, 5 meses
Puntos: 1
Respuesta: como puedo cargar informacion de otro libro de excel a otro

Cita:
Iniciado por Monimo Ver Mensaje
Me parece que no es un documento "normal " de excel a eso me refería cuando decía q tu explicación era muy pobre, probablemente sea un documento q se exporta de algun reporteador o algo asi...esas líneas de código no me son para nada familiares, parecieran de Java inclusive no se si te salen en una ventana de error o en la hoja del documento....
tienes un mail donde enviarte un pantallaso de lo que te estoy explicado
  #14 (permalink)  
Antiguo 21/07/2010, 13:26
Avatar de a83
a83
 
Fecha de Ingreso: noviembre-2005
Ubicación: Santiago de chile
Mensajes: 637
Antigüedad: 15 años, 5 meses
Puntos: 1
Respuesta: como puedo cargar informacion de otro libro de excel a otro

salen desde el documento esos codigos pero me muestra el encavesado de la informacion pero los numeros no me los muestras los que estan debajo del encavesado
  #15 (permalink)  
Antiguo 21/07/2010, 14:10
Avatar de a83
a83
 
Fecha de Ingreso: noviembre-2005
Ubicación: Santiago de chile
Mensajes: 637
Antigüedad: 15 años, 5 meses
Puntos: 1
Respuesta: como puedo cargar informacion de otro libro de excel a otro

monimo,


si funciono el problema era que la tabla trae unos campos ocultos Hora la duda por que me toma ese dato si le estamos indicando que recoja el dato que esta en la fila d8 Ej y las filas ocultas estan antes de esta
  #16 (permalink)  
Antiguo 21/07/2010, 14:40
Avatar de Monimo  
Fecha de Ingreso: noviembre-2007
Ubicación: Mexico Df
Mensajes: 742
Antigüedad: 13 años, 5 meses
Puntos: 69
Respuesta: como puedo cargar informacion de otro libro de excel a otro

Cita:
Iniciado por a83 Ver Mensaje
tienes un mail donde enviarte un pantallaso de lo que te estoy explicado

Primero quita estas lineas (color naranja)sí el archivo destino es el mismo que a macro y agrega la de color azul:

Private Sub CommandButton1_Click()
wmacro = ActiveWorkbook.Name

worigen=wmacro

este primer openfile es para elegir el archivo donde se encuentran los datos que quieres copiar
openfile 'QUITAR
'ActiveWorkbook.Name 'QUITAR
worigen = ActiveWorkbook.Name 'QUITAR
'wdestino = "info1.xls" 'QUITAR



este segundo openfile es para elegir el archivo donde los vas a escribir.
MsgBox ("Elija Ahora el archivo destino")
openfile
wdestino = ActiveWorkbook.Name
'activamos la celda desde donde se actualiza, esto para conocer el numero de renglon y columna
Range("B10").Activate
rt = ActiveCell.Row 'renglon
ct = ActiveCell.Column 'columna

For i2 = 1 To 37
rt2 = rt
For i = 1 To 5
Workbooks(worigen).Activate
' guardamos en una variable temporal el valor q esta en la celda q actualmente recorremos
temp = Cells(i, i2).Value
'seleccionamos el libro donde pondremos los datos
Workbooks(wdestino).Activate
'lo asignamos a variables para irle sumando conforma nos movemos en la hoja
Cells(rt2, ct + i2).Value = temp 'a la columna le sumamos el valor de i2 pues asi se movera conforme a la columna q vaya leyendo.
'se movera 5 renglones abajo. en la columna q debe ir
rt2 = rt2 + 1

Next

Next

End Sub


Ahora sí fijate en el ciclo for de i2. i2 empieza en el 1 o sea q jala datos de la primera columna en adelante....si se debe de traer de la columna d8 debes empezar el conteo en 4 y terminar en 41

asi:

For i2 = 4 To 41

segun yo asi dejara de traerte el encabezado.
__________________
La verdad es que lo que no quisiera dejar de hacer nunca (a parte de comer) es programar

Última edición por Monimo; 21/07/2010 a las 15:20
  #17 (permalink)  
Antiguo 22/07/2010, 08:06
Avatar de a83
a83
 
Fecha de Ingreso: noviembre-2005
Ubicación: Santiago de chile
Mensajes: 637
Antigüedad: 15 años, 5 meses
Puntos: 1
Respuesta: como puedo cargar informacion de otro libro de excel a otro

Consulta maestra,

como puedo selecionar algunas seldas solamente no todas y que me las muestre en forma vertical?


te agradesco por tu ayuda
  #18 (permalink)  
Antiguo 22/07/2010, 08:34
Avatar de a83
a83
 
Fecha de Ingreso: noviembre-2005
Ubicación: Santiago de chile
Mensajes: 637
Antigüedad: 15 años, 5 meses
Puntos: 1
Respuesta: como puedo cargar informacion de otro libro de excel a otro

Consulta maestra,

como puedo selecionar algunas seldas solamente no todas y que me las muestre en forma vertical?


te agradesco por tu ayuda
  #19 (permalink)  
Antiguo 22/07/2010, 08:45
Avatar de Monimo  
Fecha de Ingreso: noviembre-2007
Ubicación: Mexico Df
Mensajes: 742
Antigüedad: 13 años, 5 meses
Puntos: 69
Respuesta: como puedo cargar informacion de otro libro de excel a otro

Cita:
Iniciado por a83 Ver Mensaje
Consulta maestra,

como puedo selecionar algunas seldas solamente no todas y que me las muestre en forma vertical?


te agradesco por tu ayuda
Pues depende de las celdas, si te fijas todo se maneja por coordenadas range("A1") ES CELLS(1,1) que es la primara fila ala primera columna.. de ahi puedes jugar con patrones sumandole o restandole o simplemente hacer referencia siempre alas mismas celdas y su valor.
__________________
La verdad es que lo que no quisiera dejar de hacer nunca (a parte de comer) es programar
  #20 (permalink)  
Antiguo 22/07/2010, 09:18
Avatar de a83
a83
 
Fecha de Ingreso: noviembre-2005
Ubicación: Santiago de chile
Mensajes: 637
Antigüedad: 15 años, 5 meses
Puntos: 1
Respuesta: como puedo cargar informacion de otro libro de excel a otro

mmm pero eso lo deveria trabajar despues de este
for
Código PHP:
For i2 3 To 41 
rt2 
rt 
For 1 To 5 
estoy un poco enredado con esto
  #21 (permalink)  
Antiguo 22/07/2010, 09:41
Avatar de a83
a83
 
Fecha de Ingreso: noviembre-2005
Ubicación: Santiago de chile
Mensajes: 637
Antigüedad: 15 años, 5 meses
Puntos: 1
Respuesta: como puedo cargar informacion de otro libro de excel a otro

seria algo mas menos de esta forma lo que tume dices


Código PHP:
If HtaBuscar 0 Then 

 a   
"([Octubre. Xls]! Hoja1! AL8)"                              

            
If HtaBuscar a Then 
            Hoja1
Cells(ii9). Value Hoja1Cells(ii9). Value Hoja1Cells(i31). Value 19 los multiplica por  
            Hoja1
Cells(ii24). Value ""                         
            
Hoja1Cells(ii24). Value Hoja1Cells(i19). Value                With Hoja1Cells(ii24). Interior 
           
ColorIndex 
           
Pattern xlSolid 
    End With 
        End 
If 
        
End If 
     
Next 
  #22 (permalink)  
Antiguo 22/07/2010, 09:46
Avatar de Monimo  
Fecha de Ingreso: noviembre-2007
Ubicación: Mexico Df
Mensajes: 742
Antigüedad: 13 años, 5 meses
Puntos: 69
Respuesta: como puedo cargar informacion de otro libro de excel a otro

Cita:
Iniciado por a83 Ver Mensaje
mmm pero eso lo deveria trabajar despues de este
for
Código PHP:
For i2 3 To 41 
rt2 
rt 
For 1 To 5 
estoy un poco enredado con esto
si vas a seleccionar celdas dispersas que no sigan un patron, como "cada 5 celdas que seleccione otra" o "celdas de la columna 4 a la 8 saltandose un renglon" No puedes utilizar el ciclo for. Tendrías que decirle línea por línea las celdas que vayas a elegir.

por ejemplo:

de mi hoja origen quiero copiar las celdas a1,b5,c2 en las celdas de mi hoja destino b2,c5,g6

sería así:

workbooks(worigen).activate
celda1=range("a1").value
workbooks(wdestino).activate
range("b2").value=celda1
workbooks(worigen).activate
celda1=range("b5").value
workbooks(wdestino).activate
range("c5").value=celda1
workbooks(worigen).activate
celda1=range("c2").value
workbooks(wdestino.activate
range("g6").value=celda1
__________________
La verdad es que lo que no quisiera dejar de hacer nunca (a parte de comer) es programar
  #23 (permalink)  
Antiguo 22/07/2010, 10:42
Avatar de a83
a83
 
Fecha de Ingreso: noviembre-2005
Ubicación: Santiago de chile
Mensajes: 637
Antigüedad: 15 años, 5 meses
Puntos: 1
Respuesta: como puedo cargar informacion de otro libro de excel a otro

el codigo quedaria de esta manera.

Código PHP:
Private Sub CommandButton1_Click()
wmacro ActiveWorkbook.Name

openfile
'ActiveWorkbook.Name
worigen = ActiveWorkbook.Name
'
wdestino "info1.xls"

MsgBox ("Elija Ahora el archivo destino")
openfile

Workbooks
(worigen).Activate
celda1 
Range("f5").Value
Workbooks
(wdestino).Activate como lo  ago  para   asignar la  hoja  de  destino me  envia un error 13  en tiempo  de  ehecucion
Range
("b2").Value celda1
Workbooks
(worigen).Activate
celda1 
Range("b5").Value
Workbooks
(wdestino).Activate
Range
("c5").Value celda1
Workbooks
(worigen).Activate
celda1 
Range("c2").Value
Workbooks
(wdestino).Activate
Range
("g6").Value celda1
End Sub 
  #24 (permalink)  
Antiguo 22/07/2010, 14:38
Avatar de a83
a83
 
Fecha de Ingreso: noviembre-2005
Ubicación: Santiago de chile
Mensajes: 637
Antigüedad: 15 años, 5 meses
Puntos: 1
Respuesta: como puedo cargar informacion de otro libro de excel a otro

gracias por la ayuda eh solucionado mi reporte

ahora tengo la ultima consulta como se puede sumar esto ej que sume toda la fila y entrege un resultado independiente si en la fia hay numero o nop ( y la cantidad de datos que tenga este reguistro

Etiquetas: excel, informacion, libro
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 07:56.