Foros del Web » Programas, Hardware y Redes » Ofimática »

pasar columnas de word a excel

Estas en el tema de pasar columnas de word a excel en el foro de Ofimática en Foros del Web. Porfis necesito ayuda urgente: Necesito pasar datos de word a excel. EJ: 0 2 992 5.0 90 4.9640 123 -9999 350 -9.9 -9999 171 8.3 ...
  #1 (permalink)  
Antiguo 11/12/2007, 07:51
 
Fecha de Ingreso: diciembre-2007
Mensajes: 4
Antigüedad: 6 años, 10 meses
Puntos: 0
pasar columnas de word a excel

Porfis necesito ayuda urgente:

Necesito pasar datos de word a excel. EJ:
0 2 992 5.0 90 4.9640 123 -9999 350 -9.9 -9999 171 8.3
0 4 991 5.3 80 4.5110 131 -9999 351 -9.9 -9999 173 8.2
0 6 990 5.5 80 4.5794 139 -9999 352 -9.9 -9999 174 8.0
0 8 989 5.6 80 4.6164 149 -9999 353 -9.9 -9999 175 7.9

yo necesito pasar esas columnas de datos a Excel para asi poder modificar cada columna por separado, pero cuando lo copio a Excel se copia todo en una sola columna.

Ayudenme por favorrrrrr
Mony
  #2 (permalink)  
Antiguo 11/12/2007, 08:45
Avatar de 3pies
Colaborador
 
Fecha de Ingreso: diciembre-2003
Ubicación: Desde una destilería
Mensajes: 2.596
Antigüedad: 10 años, 10 meses
Puntos: 142
Re: pasar columnas de word a excel

Yo te propongo otra cosa. Pruébala y me dices que te parece:
Código:
Sub reorganizar_todo_que_estoy_desesperado()
'********************************************************************************
'Tenemos que situarnos en la primera celda donde tengamos los datos a reorganizar
'********************************************************************************
'Ocultamos el procedimiento para que no se vea en pantalla
'nada de lo que hacemos
Application.ScreenUpdating = False
'Mientras encontremos datos en la fila en cuestión,
'que ejecute el macro
Do While Not IsEmpty(ActiveCell)
  'Primero nos fijaremos en qué celda estamos,
  'para volver a ella una vez arreglada la fila
    dondeestoy = ActiveCell.Address
 'Descomponemos la cadena, en subcadenas,
 'para lo cual indicamos el delimitador " ", aunque
 'por defecto, podríamos haberlo omitido, pues es ese mismo (espacio)
    datos = Split(ActiveCell, " ")
    For i = 0 To UBound(datos)
       'ponemos cada dato del array, en una columna
        ActiveCell = datos(i)
       'nos desplazamos a la columna adyacente (de la derecha)
        ActiveCell.Offset(0, 1).Select
    Next 'Seguimos con el bucle
    'Volvemos donde estábamos inicialmente
    Range(dondeestoy).Select
    'pasamos a la fila siguiente, y volvemos a recorrer el bucle
    ActiveCell.Offset(1, 0).Select
Loop
'Mostramos todo de nuevo
Application.ScreenUpdating = True
'Ahora habría que hacer una donación de 1000 millones
'de dólares a 3pies, pero como es Navidad, estás perdonado...
End Sub
Salu2
  #3 (permalink)  
Antiguo 11/12/2007, 14:44
 
Fecha de Ingreso: julio-2006
Ubicación: Madrid
Mensajes: 927
Antigüedad: 8 años, 2 meses
Puntos: 55
Re: pasar columnas de word a excel

Es que me parece que lo que tú llamas columnas no lo son. Para que sea interpretado como columnas, creo que deberías separar lo que tu llamas columnas entre sí con tabuladores, sino, creo que lo más lógico sería importar los datos desde excel, pero copiarlos y pegarlos........ no sé, no sé.
  #4 (permalink)  
Antiguo 12/12/2007, 07:11
 
Fecha de Ingreso: diciembre-2007
Mensajes: 4
Antigüedad: 6 años, 10 meses
Puntos: 0
Re: pasar columnas de word a excel

gracias por su ayuda: JCHUK creo que tenias mucha razon, importandolas desde excel funcionó, lo q pasa es q asi me dieron esos datos y seria mucho trabajo darle tabuladores a cada fila. Pero en fin ya pude hacerlo, graciasssssss
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 04:14.
SEO by vBSEO 3.3.2