error Excel

[diegopolverelli]

Hola. Uso Fivewin Harbour 803

hago esto

oExcel := CREATEOBJECT( "Excel.Application" )
oExcel:WorkBooks:Open( xarchivo )
OEXCEL:DISPLAYALERTS=.F.

oSheet := oExcel:ActiveSheet

y me funciona en todas las PC's... probé en unas 20, 25...


hay una PC que no me anda... me tira este error... ¿que puede estar pasando?

Gracias desde ya...!!!

ERROR:

Application
===========
Path and name: Z:\SAROS\REP_ART.EXE (32 bits)
Size: 516,096 bytes
Time from start: 0 hours 0 mins 20 secs
Error occurred at: 04-05-2009, 14:36:55
Error description: Error TOleAuto/65535 : TOLEAUTO:NEW
Args:
[ 1] = C Excel.Application

Stack Calls
===========
Called from: .\w32_tole.prg => THROW(77)
Called from: => TOLEAUTO:NEW(250)
Called from: .\w32_tole.prg => CREATEOBJECT(90)
Called from: REP_ART.prg => IM_ARMIN(4131)
Called from: REP_ART.prg => (b)ART_R_MIN(4012)
Called from: => TBUTTON:CLICK(0)
Called from: => TBUTTON:HANDLEEVENT(0)
Called from: .\source\classes\WINDOW.PRG => _FWH(0)
Called from: => SENDMESSAGE(0)
Called from: => TDIALOG:COMMAND(0)
Called from: => TWINDOW:HANDLEEVENT(0)
Called from: => TDIALOG:HANDLEEVENT(0)
Called from: => DIALOGBOX(0)
Called from: => TDIALOG:ACTIVATE(0)
Called from: REP_ART.prg => ART_R_MIN(4015)
Called from: REP_ART.prg => REPST(116)
Called from: REP_ART.prg => MAIN(75)

System
======
CPU type: Intel(R) Celeron(R) CPU 2.80GHz 2800 Mhz
Hardware memory: 503 megs

Free System resources: 90 %
GDI resources: 90 %
User resources: 90 %

Compiler version: Harbour devel build 1.1-1 Intl.
Windows version: 5.1, Build 2600 Service Pack 2

Windows total applications running: 26
1
2 CiceroUIWndFrame
3 SysFader
4 TF_FloatingLangBar_WndTitle
5 Flecha
6 Microsoft Excel
7 REPORTE PRODUCTOS CON STOCK MENOR AL MINIMO
8 Solucion de Gestion Integral de Negocios para Empresas *** Saros ***
9 Lista de campos de tabla dinámica
10 Menú Filtro
11 Edición
12 DDE Server Window
13 RTCMediaMessageWindow
14 CRTCMediaController
15 CUccPlatform
16 Avg8TrayMainWnd
17 Avg8TrayRunningScansWnd
18 MCI command handling window
19 Connections Tray
20 DNA 2.2.2
21 Medidor de energía
22 MS_WebcheckMonitor
23 HPWU
24 GDI+ Window
25 Pedido a Proveedores
26 Program Manager

Variables in use
================
Procedure Type Value
==========================
THROW
Param 1: O Class: ERROR
Local 1: U
TOLEAUTO:NEW
Param 1: C "Excel.Application"
Local 1: U
Local 2: O Class: TOLEAUTO
Local 3: O Class: ERROR
CREATEOBJECT
Param 1: C "Excel.Application"
IM_ARMIN
Param 1: C "Precios Ref. y prov. del maestro de articulos"
Param 2: C " "
Param 3: L .F.
Param 4: L .T.
Param 5: L .T.
Param 6: L .F.
Param 7: L .F.
Param 8: L .F.
Param 9: L .F.
Param 10: L .F.
Param 11: C "Impresora"
Param 12: L .F.
Param 13: C "C:\Documents and Settings\Facturacion\Mis documentos\Art001"
Param 14: C "C:\ARCHIVOS DE PROGRAMA\MICROSOFT OFFICE\OFFICE11\EXCEL.EXE"
Param 15: C "C:\WINDOWS\NOTEPAD.EXE"
Param 16: O Class: TDIALOG
Param 17: O Class: TWBROWSE
Param 18: O Class: TWBROWSE
Param 19: O Class: TWBROWSE
Local 1: U
Local 2: U
Local 3: U
Local 4: U
Local 5: U
Local 6: U
Local 7: U
Local 8: U
Local 9: U
Local 10: U
Local 11: U
Local 12: U
Local 13: U
Local 14: U
Local 15: U
Local 16: U
Local 17: U
Local 18: U
Local 19: U
Local 20: U
Local 21: U
Local 22: U
Local 23: U
Local 24: U
Local 25: U
Local 26: U
Local 27: U
Local 28: U
Local 29: U
Local 30: U
Local 31: U
Local 32: U
Local 33: U
Local 34: U
Local 35: U
Local 36: U
Local 37: U
Local 38: U
Local 39: U
Local 40: U
Local 41: U
Local 42: U
Local 43: U
Local 44: U
Local 45: U
Local 46: U
Local 47: U
(b)ART_R_MIN
TBUTTON:CLICK
Local 1: O Class: TBUTTON
TBUTTON:HANDLEEVENT
Param 1: N 2048
Param 2: N 0
Param 3: N 0
Local 1: O Class: TBUTTON
_FWH
Param 1: N 0
Param 2: N 2048
Param 3: N 0
Param 4: N 0
Param 5: N 26
Local 1: O Class: TBUTTON
SENDMESSAGE
Param 1: N 4915462
Param 2: N 2048
Param 3: N 0
Param 4: N 0
TDIALOG:COMMAND
Param 1: N 1
Param 2: N 4915462
Local 1: O Class: TDIALOG
Local 2: O Class: TBUTTON
Local 3: N 0
Local 4: N 1
Local 5: N 4915462
TWINDOW:HANDLEEVENT
Param 1: N 273
Param 2: N 1
Param 3: N 4915462
TDIALOG:HANDLEEVENT
Param 1: N 273
Param 2: N 1
Param 3: N 4915462
Local 1: O Class: TDIALOG
DIALOGBOX
Param 1: N 21102592
Param 2: C "ART_REPOR_MAES"
Param 3: N 0
Param 4: O Class: TDIALOG
TDIALOG:ACTIVATE
Param 1: U
Param 2: U
Param 3: U
Param 4: L .T.
Param 5: U
Param 6: L .T.
Param 7: B {|| ... }
Param 8: U
Param 9: U
Param 10: L .F.
Local 1: O Class: TDIALOG
Local 2: N 0
Local 3: U
Local 4: U
Local 5: S
Local 6: O Class: TDIALOG
ART_R_MIN
Param 1: L .T.
Local 1: C "Impresora"
Local 2: L .F.
Local 3: C "C:\Documents and Settings\Facturacion\Mis documentos\Art001"
Local 4: U
Local 5: U
Local 6: L .F.
Local 7: N 1
Local 8: L .F.
Local 9: O Class: TCOMBOBOX
Local 10: O Class: TCHECKBOX
Local 11: O Class: TGET
Local 12: U
Local 13: U
Local 14: U
Local 15: U
Local 16: U
Local 17: U
Local 18: U
Local 19: C "C:\ARCHIVOS DE PROGRAMA\MICROSOFT OFFICE\OFFICE11\EXCEL.EXE"
Local 20: C "C:\WINDOWS\NOTEPAD.EXE"
Local 21: U
Local 22: U
Local 23: U
Local 24: U
Local 25: O Class: TBUTTON
Local 26: C "C:\Documents and Settings\Facturacion\Mis documentos\"
Local 27: A Len: 3
Local 28: O Class: TDIALOG
Local 29: O Class: TWBROWSE
Local 30: O Class: TWBROWSE
Local 31: O Class: TWBROWSE
Local 32: O Class: TBUTTON
Local 33: U
Local 34: A Len: 3
Local 35: O Class: TFOLDER
Local 36: O Class: TBUTTON
Local 37: O Class: TBUTTON
Local 38: U
Local 39: O Class: TBUTTON
Local 40: O Class: TCHECKBOX
Local 41: O Class: TCHECKBOX
Local 42: O Class: TCHECKBOX
Local 43: L .T.
Local 44: L .F.
Local 45: L .F.
Local 46: N 0
Local 47: U
Local 48: U
Local 49: A Len: 2
Local 50: C "Precios Ref. y prov. del maestro de articulos"
Local 51: C " "
Local 52: O Class: TCOMBOBOX
Local 53: O Class: TSAY
Local 54: O Class: TBUTTON
Local 55: L .F.
Local 56: L .F.
Local 57: L .F.
Local 58: L .T.
Local 59: L .F.
Local 60: L .F.
Local 61: L .F.
Local 62: O Class: TCHECKBOX
Local 63: O Class: TCHECKBOX
Local 64: O Class: TCHECKBOX
Local 65: O Class: TCHECKBOX
Local 66: O Class: TCHECKBOX
Local 67: O Class: TCHECKBOX
REPST
Param 1: N 6
MAIN
Param 1: C "OTHAMI"
Param 2: C "6"
Param 3: C "ADMIN"
Param 4: C "OTHAMI"
Param 5: C "OTHA1"
Local 1: N 15794176

Linked RDDs
===========
DBF
DBFFPT
DBFBLOB
DBFNTX

DataBases in use
================

88: RUBRO RddName: DBFNTX
==============================
RecNo RecCount BOF EOF
1 0 .T. .T.

Indexes in use TagName
=> RUBRO->DESCRIP RUBTMPIN2

Relations in use

89: => LINEA RddName: DBFNTX
==============================
RecNo RecCount BOF EOF
1 5 .F. .F.

Indexes in use TagName
=> LINEA->DESCRIP LINTMPIN

Relations in use

90: DEPOS RddName: DBFNTX
==============================
RecNo RecCount BOF EOF
1 2 .F. .F.

Indexes in use TagName
=> DEPOS->DESCRIP 2IN43AAA

Relations in use

99: PARAM RddName: DBFNTX
==============================
RecNo RecCount BOF EOF
67 77 .F. .F.

Indexes in use TagName

Relations in use

Classes in use:
===============
1 ERROR
2 HBCLASS
3 HBOBJECT
4 TWINDOW
5 TDIALOG
6 TBRUSH
7 TCONTROL
8 TFOLDER
9 TFONT
10 TWBROWSE
11 TCHECKBOX
12 TCOMBOBOX
13 TGET
14 GET
15 TCLIPGET
16 TSAY
17 TBUTTON
18 TSCROLLBAR
19 TOLEAUTO
20 TREG32

Memory Analysis
===============
266 Static variables

Dynamic memory consume:
Actual Value: 0 bytes
Highest Value: 0 bytes


[lailton.webmaster]

Try it.

http://www.redstarsoft.net/?area=dica-excel-ocx

[diegopolverelli]

Gracias, pero la idea es no tocar mucho el código. Calculo que es algun problema con la instalación de excel. Como explicaba en el post, siempre funciona, salvo en una PC que instalé hace poco. Quisás es alguna librería que falta instalar y bajando algun componente se soluciona todo. Postié para saber si a alguien le había pasado exactamente eso. Gracias. Atte.

[sjingo]

He tenido algunos problemas similares, que en unos pcs funciona bien y en otros da error o simplemente se cierra la aplicación y dejando el proceso de excel abierto. La causa en todos los casos ha sido por configuración del idioma del windows y hasta del uso de los signos que se use como separadores de miles y decimales. Modificando estos parámetros en el panel de control de windows con el idioma a español (España) se han desaparecido los problemas.

Espero que algo de esto te sirva y lo pruebes a ver si funciona.

Un saludo

Marcelo Jingo