Information générale
Catégorie:
COM/DCOM et OLE Automation
Versions des environnements
Network:
Windows 2000 Server
Then force it to be a character expression in Excel:
oExcel.cells(lnCells,18)=[']+ALLTRIM(NUMCTA)
>i'cant use copy to c:\yy type xls look my program
>
>the problem is numcta field , that data is a account number of bank.
>
>oExcel.cells(lnCells,10)=ALLTRIM(sexo)
> oExcel.cells(lnCells,12)=ALLTRIM(dircorres)
> oExcel.cells(lnCells,13)=ALLTRIM(ciudadcorr)
> oExcel.cells(lnCells,14)=telcorresp
> oExcel.cells(lnCells,17)=ALLTRIM(formapago)
> oExcel.cells(lnCells,18)=' '+ALLTRIM(NUMCTA)
> oExcel.cells(lnCells,20)=ALLTRIM(banco)
> DO case
> CASE ctacorrien=.T.
> oExcel.cells(lnCells,21)='PLSANCHK'
> CASE ctaahorros=.t.
> oExcel.cells(lnCells,21)='PLSANSAV'
> CASE TARJCREDIT=.t.
> oExcel.cells(lnCells,21)='TARJCREDIT'
> CASE UPPER(SUBSTR(clasetarje,1,1))='V'
> oExcel.cells(lnCells,22)='PV'
> CASE UPPER(SUBSTR(clasetarje,1,1))='M'
> oExcel.cells(lnCells,22)='PM'
> ENDCASE
> oExcel.cells(lnCells,24)=ALLTRIM(dptocorres)
> oExcel.cells(lnCells,25)=ALLTRIM(tmstart)
> oExcel.cells(lnCells,26)=ALLTRIM(operador)
> SKIP
> ENDDO
Précédent
Suivant
Répondre
Voir le fil de ce thread
Voir le fil de ce thread à partir de ce message seulement
Voir tous les messages de ce thread
Voir tous les messages de ce thread à partir de ce message seulement