Leer todas las filas de una planilla Excel desde Word

Cualquier otro tipo de consultas sobre la Hoja de Cálculos Excel.

Reglas del Foro
1. Antes de hacer tu pregunta intenta con el buscador de este foro (muchas preguntas ya fueron respondidas antes!)
2. Si haces una nueva pregunta, es muy recomendable que adjuntes el ejemplo Excel para poder comprenderla mejor!
3. Realiza tu pregunta de forma clara, explicando bien cada paso de lo que haces y tendrás más probabilidad de respuesta!
Compartir en:
     

Leer todas las filas de una planilla Excel desde Word

Notapor Ino » 09 Ago 2005 14:07

Buen dia.
Antes que nada gracias por todo lo ya aprendi en el foro.
Necesito leer (hasta que sea EOF) todos las filas (20 en total) con 4 columnas cada fila desde un documento Word. No se trata de combinar registros. Es algo mas complicado. En Word necesito incrustar un diagrama de archivo (tipo shape) e insertar como texto la fila de Excel. La idea es hacer un diagrama de flujo de varios programas. En Excel estan los nombres de los archivos y el programa que se desea diagramar. Se usaran 2 shapes: uno para los archivos y otro para el programa.
Desde ya gracias. ....
Ino
* Te recomendamos estos productos Excel: Manual de Macros | Manual de Funciones | Nuevas Funciones | ddTraDa
Avatar de Usuario
Ino
Miembro Nuevo
Miembro Nuevo
 
Registrado: 02 Ago 2005 14:17

Re: Leer todas las filas de una planilla Excel desde Word

Notapor Tavo77 » 25 Ago 2005 21:12

Se puede trabajar con cualquier programa de office desde otro programa haciendo una referencia al Object Library del programa que se desea utilizar. En este caso:
- abrir editor VBA en word
- agregar una referencia a 'Microsoft Excel Object Library'
- ahora se pueden declarar variables en word como libros de excel:

Dim valor as string
Dim miLibro as workbook
Set miLibro = Workbooks.Open(FileName:="c:\Libro1.xls", ReadOnly:=True)
miLibro.Activate
filaInicio = 1
filaFin = 40
colInicio = 1
colFin= 4

for fila = filaInicio to filaFin
for columna = colInicio to colFin
valor = miLibro.sheets(1).cells(i,j).text
if valor <> "" then
'codigo
end if
next
next

miLibro.Close

- También se puede cabiar el for de la columna por un DO ... LOOP ... UNTIL si no se tiene del todo el posible rango.
* Te recomendamos estos productos Excel: Manual de Macros | Manual de Funciones | Nuevas Funciones | ddTraDa
Avatar de Usuario
Tavo77
Miembro Frecuente
Miembro Frecuente
 
Registrado: 25 Ago 2005 20:43
Ubicación: Costa Rica


Compartir en:
     

  • Anuncio
Manual Excel avanzado

Volver a Otras Consultas

¿Quién está conectado?

Usuarios navegando por este Foro: No hay usuarios registrados visitando el Foro y 5 invitados