Excel con Vb6

[doble_d]

Hola a todos:

La verdad se muy poco sobre visual Basic he trabajado con el editor de visual Basic de excel 2003 hace como 7 años y lo se manejar.No a la perfeccion pero me defiendo. Bueno la verdad es quisiera aprender a manejar visual 6 pero con datos en excel. Trate de averiguar si se podian ejecutar macros desde visual 6 pero parece que no se puede por que no encontre respuesta alguna. Ya hice la conexion a la base de datos de ecxel utilizando un control Data pero la verdad no me gusto mucho. Alguien me puede explicar como se puede conectar de otra forma a una hoja de calculo y manejar los datos lo mas parecido al visual 6 si es posible.

Gracias por su antencion y colaboracion

Feliz dia

[David]

Puedes hacer una referencia a la aplicación Excel.

Código PHP:

  Dim xlsApp As Object
Dim xlsBook As Object
Set xlsApp = CreateObject("Excel.Application")
Set xlsBook = xlsApp.WorkBooks.Open("C:\Book.xls")  
   

A partir de ahí podrás manejar el libro y la aplicación de forma fácil (como si estuvieras en VBA).

[doble_d]

Gracias por tu colaboracion la verdad no he podido probar. Disculpa si hago otra pregunta quisiera saber como hacer referencia a una hoja y un rango desde Visual 6

Gracias

[David]

Siguiendo el mismo ejemplo que puse anteriormente, para hacer referencia a la hoja sería:

Código PHP:

  Dim xlsSheet As Object
Set xlsSheet = xlsBook.WorkSheets("Hoja1")
xlsSheet.Range("A1") = "Texto en la primera celda"  
   

[doble_d]

Mil Gracias lo voy a probar y cualquier cosa te cuento

[doble_d]

Gracias amigo por tu ayuda me fue de mucha utilidad pero ahora tengo otro problema. Necesito ingresar un nuevo registro en una hoja de calculo yo lo hacia de esta forma en excel
Sheets("hoja1").Select
Range("A1").Select
Selection.End(xlDown).Select
Application.Goto Reference:="R[+1]c"
Aqui selecciono la ultima celda vacia y genero el ultimo registro
Me gustaria que por favor me explicaras si hay una forma de hacer algo similar desde VB6

Gracias

[David]

Sí, siguiendo con el ejemplo sería:

Código PHP:

  xlsBook.Sheets("hoja1").Range("A1").End(xlDown).Select
xlsApp.Goto Reference:="R[+1]c"  
   

[doble_d]

Gracias por tu ayuda. Que pena molestarte con tanta pregunta. Como se hace referencia a la celda activa en Excel es activecell pero no me funciona en vB6

[David]

Código PHP:

  xlsApp.ActiveCell  
   

[doble_d]

Amigo que pena molestarte tanto con el tema pero esta linea del codigo no me funciona:

xlsBook.Sheets("hoja1").Range("A1").End(xlDown).Se lect

Podrias ayudarme por favor.


Gracias

[David]

¿Te da algún error o algo así?

[doble_d]

Si dice que no se reconoce el procedimiento su o funcion. Bueno algo asi es que no tengo el proyecto aqui pero si da un error

[David]

Lo siento, es que había olvidado que había una constante de Excel en el medio. Prueba así:

Código PHP:

  xlsBook.Sheets("Hoja1").Range("A1").End(-4121).Select  
   

Aunque no debes olvidar de definir el xlsBook.

[doble_d]

Amigo otra preguntacada ves que yo nececite que un control trabaje con el libro de excel debo definirlo como objeto nuevamente?

[David]

Lo que yo suelo hacer si voy a necesitar varias veces la aplicación Excel o el Libro, es definirlo como variable con alcance público al iniciar la aplicación y destruirlo al salir de ella.

[doble_d]

Es decir:

Public xlsBook As Object

Y como la destruyo???

[David]

Sí, así puedes hacerlo, pero si vas a usarlo dentro de varias ventanas la declaración debe ir en un módulo.

Cuando termines de usar el objeto lo destruyes así:

Código PHP:

  Set xlsBook = Nothing  
   

Aunque lo principal que hay que destruir es el xlsApp.

[doble_d]

Ok muchas gracias por tu colaboracion lo voy a probar

[doble_d]

Estimado David muchas gracias por tu colaboracion me fue muy util. Ahora quisiera hacerte otra consulta espero no molestarte. Pero quisiera que por favor me ayudaras con esto. lo que quiero es saber si el siguiente codigo se puede aplicar VB6 este codigo se usa en ecxel para buscar valores en una hoja de calculo. ¿Sera posible?

Cells.Find(What:=Range("a1"), After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
, SearchFormat:=False).Activate


Gracias

[David]

Sería algo como esto:

Código:

xlsApp.Cells.Find(What:=xlsApp.Range("A1"), After:=xlsApp.ActiveCell, LookIn:=-4123, LookAt:= _
2, SearchOrder:=1, SearchDirection:=1, MatchCase:=False _
, SearchFormat:=False).Activate

Ahora, para que puedas aprender cómo hacerlo, te explico el porqué de las modificaciones. El código original era este:

Código:

Cells.Find(What:=Range("a1"), After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
        xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
        , SearchFormat:=False).Activate

Pero en Visual Basic no tenemos las constantes xlFormulas, xlPart, xlByRows y xlNext. Son constantes de Excel, así que lo que hice fue obtener el valor de esas constantes y colocarlas directamente en el código. Otra cosa, ActiveCell, Range y Cells también son variables en Excel pertenecientes a Application. Por eso, para pasarlas a Visual Basic antecedemos su declaración por el objeto que tenemos como aplicación Excel (xlsApp).

[doble_d]

Ok amigo ya entendi muchas gracias por tu ayuda ahora espero poder defenderme solo. Si se me presenta algun problema espero poder contar con tu ayuda.

[doble_d]

Hola como estas, me fue muy util tu explicacion y me ayudo muchisimo te lo agradezco mucho, pero ahora tengo un pequeño problema y espero que por favor me puedas ayudar. lo que sucede es que quiero insertar en un formulario un listbox y que me tome los datos de un rango de Excel, la verdad lo intente de muchas formas pero no lo logre. Me podrias ayudar gracias

[David]

Puedes hacer un For Each que recorra todas las celdas del Rango y añada al ListBox con AddItem.

Código PHP:

  For Each Celda In xlsSheet.Range("A1:A8")  
   

En ese caso obtendrás en Celda a cada paso del bucle una celda del rango y podrás ir añadiéndolos al ListBox.

[doble_d]

Y si tengo mas de una columna ¿Fuciona igual? Seria asi:

For Each Celda In xlsSheet.Range("A1:C8")

[David]

Sí, igual funciona, exactamente como pusiste.

[doble_d]

Ok gracias

[doble_d]

Hola amigo gracias ya lo hice y es perfecto. lo que pas es que yo quiero que el listbox me presente los datos en tres columnas es decir lo de la colmna A en una colomna en el listbox lo de la colmna B en una colomna Siguiente y asi. La instruccion que me diste funciono pero me coloca todos los datos en una sola columna. No se si lo hice mal o que. espero que por favor me puedas ayudar . Gracias

[David]

Primero, el ListBox de VB6 no permite columnas, lo que puedes es tener 3 ListBox.

Y para cargar los datos tienes dos opciones, o recorrer los rangos de cada columna por separado, o en el For Each comparar las columnas con Celda.Column.

[doble_d]

upsss gracias amigo ya me estaba matando la cabeza. Pero tu no me puedes dar otra idea de como hacer esto pues la verdad la idea de tres listbox no me agrada mucho. Si tienes alguna idea que me pueda servir te lo agradeceria mucho.

[David]

Con un ListView .