Comunidad de desarrolladores de Puebla.NET
Iniciar sesión Unete ahora
 
 
Novedades | Anuncios | Eventos | Publicaciones | Foros | Bolsa de trabajo | Conocenos | Encuestas
 
  Buscar  
 
Anónimo
2631221 visitas desde Octubre de 2004
1 usuario en línea
Contáctanos en línea:





Certificate Veracruz

Revista MTJ .NET


 
Excel Automation desde VB

Publicado por el Thursday, November 23, 2006 (UMST)

Como moverse a través de una hoja de excel usando el automation.

saludos,

Bueno, pues este tip es para usar excel pero el codigo está en visual basic 6.

 

Primero se deberá de agregar la referencia com al proyecto de microsoft excel para poder usar el automation.

 

porteriormente en una rutina para poder usar excel hago lo siguiente:

dim appReporte as object

 

if  appreporte is nothing then

     set appreporte = createobject("excel.application")

end if

 

y ya puedes accesar a excel

ten en cuenta que  excel tiene la estructura:

aplicacion, workbooks, worksheets, y en ese momento ya puedes accesar a las celdas.

por ejemplo.

 

como ejemplo de carga, en vez de leer datos y pasarlos uno por uno a celdas, mejor genero el archivo a texto desde sql, y en excel le digo importar asi:

 

appreporte.workbooks.opentext filename:="nombrearchivo", origin:=xlwindows, startrow:=1, datatype:=xldelimited, textqyalifier:=xldoublequote, consecutivedelimiter:=false, tab:=false, semicolon:=true, comma:=false, space:=false, other:=false, trailingminusnumbers:=true

 

otro tip es el siguiente:

 

Si quieres ir a una celda determinada por ejemplo a A1 entonces le dices:

appreporte.activeworkbook.worksheets(1).range("a1").activate

 

pero si lo que quieres es moverte por celdas en avances de uno o mas, pero no sabes donde estás, entonces:

puedes usar

activecell.offset(0,1).activate

esto te mueve una celda hacia la derecha, si quieres ir a la izquierda sería:

activecell.offset(0,-1).activate

si quieres ir abajo sería:

activecell.offset(1,0).activate

si quieres ir arriba seria:

activecell.offset(-1,0).activate

 

es cosa de jugarle un poquitin, ok?

saludos..

 

 

 

 


 

Agregar comentario