>I try this,
>
>oExcel.activesheet.Range("B"+TRIM(PADR(nrow,11))).NumberFormat = [0000000000]
>
>
>The cell can dispay 000234567, but the cell is still in numeric format.
>
>How to set the cell to a text format and can display leading zero ?
Prefix it with an apostrophe:
oExcel.activesheet.Range("B"+TRANSFORM(nrow)).value = ['000234567]