Si alguien me puediera ayudar
Estoy teniendo este error :
Application
===========
Path and name: P:\Fuentes\xHarbour\NomEle17\BIN\NomEle.Exe (32 bits)
Size: 3,788,288 bytes
Compiler version: xHarbour build 1.2.1 Intl. (SimpLex) (Rev. 9386)
FiveWin Version: FWHX 13.01
Windows version: 6.2, Build 9200
Time from start: 0 hours 0 mins 27 secs
Error occurred at: 17/12/2016, 09:35:27
Error description: Error Excel.Application:WORKBOOKS/14 DISP_E_BADPARAMCOUNT: OPEN
Args:
[ 1] = C C:\nomina\nomina2.xlsm
Stack Calls
===========
Called from: => TOLEAUTO:OPEN( 0 )
Called from: Source\impnom.prg => IMPORTANOMINAEXCEL( 20 )
Called from: Source\main.prg => (b)F_MENU( 292 )
Called from: .\source\classes\MENU.PRG => TMENU:COMMAND( 461 )
Called from: Source\FWH\window.prg => TWINDOW:COMMAND( 1047 )
Called from: => TWINDOW:HANDLEEVENT( 0 )
Called from: Source\FWH\window.prg => _FWH( 3192 )
Called from: => WINRUN( 0 )
Called from: Source\FWH\window.prg => TWINDOW:ACTIVATE( 1000 )
Called from: Source\main.prg => MAIN( 259 )
Este es mi codigo :
- Code: Select all Expand view
- # include "fivewin.ch"
//====================
FUNCTION ImportaNominaExcel()
//====================
Public oExcel, oHoja, nRows, nCols,oMeter,oDlg,nActual:= 0
Public aCampos:={}, nRow, nCol,nContar:= 0
oExcel := TOleAuto():New( "Excel.Application" )
cFile := cGetFile("*.XLSM", "Seleccione Fichero")
oExcel:WorkBooks:Open( cFile )
oHoja := oExcel:Get( "ActiveSheet" )
nRows := oHoja:UsedRange:Rows:Count()
nCols := oHoja:UsedRange:Columns:Count()
IF !net_use( "nomtmp",.t.,,oApp:xDatos )
DBCLOSEALL(); RETURN NIL
ENDIF
nomtmp->(dbzap())
DEFINE DIALOG oDlg RESOURCE "IMPORTA_NOMINA"
oDlg:lHelpIcon := .f.
REDEFINE METER oMeter Var nContar TOTAL nRows ID 101 OF oDlg UPDATE
REDEFINE BUTTON ID 400 of oDlg ACTION( INICIA( nRows,nCols,nContar ),oDlg:End() )
REDEFINE BUTTON ID 401 of oDlg ACTION( oDlg:End())
REDEFINE BUTTON ID 402 of oDlg ACTION( helpTopic( "importar-nomina.html" ))
ACTIVATE DIALOG oDlg CENTERED
USE
RETURN NIL
//========================================
STATIC FUNCTION INICIA( nRows,nCols,nContar )
//========================================
nRows := nRows - 2
FOR nRow := 2 TO nRows
nContar = nContar + 1
oMeter:Set( nContar, sysrefresh())
APPEND BLANK
FOR nCol := 1 TO nCols
xValor := oHoja:Cells(nRow,nCol):Value
/*if Valtype( oHoja:Cells( nRow,nCol ):Value ) = "N"
xValor := STR(xValor)
endif*/
IF nCol = 1
xValor := STRZERO(xValor,4)
ENDIF
FieldPut(nCol,xValor)
NEXT
//DBCOMMIT()
Memory(-1)
NEXT
MsgInfo( "Se ha creado el fichero NOMTMP.DBF" )
DBCLOSEALL()
oExcel:Quit()
oExcel := nil
RETURN NIL
