| Ver tema anterior :: Ver tema siguiente |
| Autor |
Mensaje |
MarioMarieti Cmdr

Registrado: 28 Dic 2004Mensajes: 144Ubicación: Murcia (España)
|
Publicado: Dom 25 Nov, 2007 1:27 am Asunto: Actualización de BCB6 igual que BCB4 |
|
|
Pues resulta q tengo una aplicación hecha en BCB4 y utilizo automatización ole para comunicarme con Excel y Word (Office 2003) y con el parche de BCB4 ya no me daba problemas.
Ahora me gustaría migrar este programa a la versión de BCB6 y lo estoy probando con BCB6 y Office 2003 y me da errores por ejemplo:
try{
Excel = CreateOleObject("Excel.Application");
}
catch(...)
{
Mensaje("informativo","Se necesita Excel 97 o superior.","Aviso...");
Excel=ColeccionHojas=Hoja=Rango=vTemp=vTempF=ColumnasExcel=Unassigned;
return;
}
//Excel.Exec(PropertySet("Visible")<<true>EN ESTA LINEA ES DONDE ME DA EL ERROR.
Gracias LEO |
|
| Volver arriba |
|
 |
_Leo Site Admin

Registrado: 11 Ago 2002Mensajes: 1875Ubicación: Lanzarote - Islas Canarias (España)
|
Publicado: Dom 25 Nov, 2007 1:47 am Asunto: |
|
|
He probado lo siguiente y no me da ningún error (tengo instaladas todas las actualizaciones en el BCB6, en este momento no puedo probarlo sin las actualizaciones). El Office que tengo instalado es el 2007:
| Código: | #include <ComObj.hpp>
Variant Excel = CreateOleObject("Excel.Application");
Excel.Exec(PropertySet("Visible") << true);
Excel.OlePropertyGet("Workbooks").OleProcedure("Add"); |
Prueba cambiando la línea por lo siguiente a ver si te funciona:
| Código: | Excel.OlePropertySet("Visible", true); |
Actualización 4 para BCB6 (contiene todas las anteriores):
[Versión Professional]
ftp://ftpd.codegear.com/devsupport/cbuilder/cb6/bcb6_eng_pro_upd4.exe
[Versión Enterprise]
ftp://ftpd.codegear.com/devsupport/cbuilder/cb6/bcb6_eng_ent_upd4.exe |
|
| Volver arriba |
|
 |
MarioMarieti Cmdr

Registrado: 28 Dic 2004Mensajes: 144Ubicación: Murcia (España)
|
Publicado: Dom 25 Nov, 2007 2:19 am Asunto: |
|
|
Bueno Leo, acabo de instalar el parche para BCB6 Enterprise y
he cambiado lo que me has dicho.
//ENVIAR INFORMACION A EXCEL
try{
Excel = CreateOleObject("Excel.Application");
}
catch(...)
{
Mensaje("informativo","Se necesita Excel 97 o superior.","Aviso...");
Excel=ColeccionHojas=Hoja=Rango=vTemp=vTempF=ColumnasExcel=Unassigned;
return;
}
Excel.Exec(PropertySet("Visible")<<true> AHORA ESTO SI FUNCIONA
Excel.OlePropertyGet("Workbooks").OleProcedure("Add"); ---->Y CUANDO LLEGA A ESTA LINEA ME DA ERROR |
|
| Volver arriba |
|
 |
_Leo Site Admin

Registrado: 11 Ago 2002Mensajes: 1875Ubicación: Lanzarote - Islas Canarias (España)
|
Publicado: Dom 25 Nov, 2007 2:54 am Asunto: |
|
|
| Lo siento, no puedo reproducir el problema para poder corregirlo, ya que a mi me funciona en el BCB6 tal como esta. |
|
| Volver arriba |
|
 |
|