Foro de elhacker.net

Programación => Programación Visual Basic => Mensaje iniciado por: programatrix en 3 Mayo 2014, 02:01 am



Título: Compatibilidad Excel Visual basic 6
Publicado por: programatrix en 3 Mayo 2014, 02:01 am
Hola, ¿que tal?, escribo este mensaje para preguntar sobre la compatibilidad que existen al crear objetos excel en visual basic 6, quiero crear una aplicación que dependa al mínimo de que ordenador nos encontramos para funcionar. Y mi duda es, el siguiente código para crear el objeto que requisitos necesita el ordendor para que no de error.

Código:
   Dim oExcel As Object
   Dim oBook As Object
   Dim oSheet As Object

   'Start a new workbook in Excel
   Set oExcel = CreateObject("Excel.Application")
   Set oBook = oExcel.Workbooks.Add

Muchas Gracias


Título: Re: Compatibilidad Excel Visual basic 6
Publicado por: BlackZeroX en 3 Mayo 2014, 07:30 am
Requieres Microsoft Office instalado...

Aun que podrás depender de mas o menos elementos segun las referencias de tu aplicación, aunque un código así de pequeño solo dependería de Microsoft Office - EXCEL instalado.

Dulces Lunas!¡.


Título: Re: Compatibilidad Excel Visual basic 6
Publicado por: programatrix en 3 Mayo 2014, 18:21 pm
Muchas gracias, y con un:
Código:
On Error Goto noexcel
...
...
noexcel:
msgbox "Para usar esta bonita opción debes tener instalado EXCEL", vBOk
¿Estaría todo solucionado?, mi programa no depende de más cosas porque he intentado que sea lo más "natural" posible, he pensado que haya una opción de introducir datos en txt y otra en excel pero si intentan usar excel y no hay que pegue error y fuera, ¿Crees que no daría problemas?
Me da miedo que todo lo demás que hace el programa falle por añadir esta característica en el caso de exportar datos simplemente.


Título: Re: Compatibilidad Excel Visual basic 6
Publicado por: BlackZeroX en 7 Mayo 2014, 05:20 am
No recuerdo muy bien pero podrías aplicar algo como esto, de lo contrario cualquier error producido puede invocar tu msg,,,

Código
  1.  
  2. Set oExcel = CreateObject("Excel.Application")
  3.  
  4. if (oExcel is nothind) then
  5. msgbox "Se requiere excel o no se pudo crear Excel.Application"
  6. end if
  7.  
  8.  

Dulces Lunas!¡.