FoxPro/Visual FoxPro - Problema con formato de celda en excel

LPARAMETERS tcCursor

* tcCursor es el nombre del cursor que se exporta

local loExcel, loLibro , loSheet ,;

	i,j,lnfields ,xValor ,;

	lcCampo,lcType,lnDecim,lnRow,lnCol

LOCAL ARRAY gafields(1,4)

* Creando el objeto excel

TRY

	LOCAL loex as Exception

	loExcel = CREATEOBJECT("Excel.Application")

CATCH TO loEx

	loex.UserValue=PROGRAM()

	* showerror(loEx) && rutina de errores

ENDTRY

IF VARTYPE(loex)="O"

	WAIT clear

	RETURN .F.

ENDIF

loLibro=loExcel.workbooks.ADD()

loSheet = loExcel.ActiveSheet

lnfields=Afields(gaFields,tcCursor)

lnColIni=0

lnCol=0

lnRow=2

* Titulos

WITH loSheet

	.Cells(1,1).value="Cursor "+tcCursor

	FOR i=1 TO lnfields

		lcCampo=gaFields[i,1]

		.Cells(2,LnColIni+i).Value=PROPER(lcCampo)

		.Cells(2,lnColIni+i).FONT.bold =.t.

	NEXT

ENDWITH

* Datos

SELECT (tcCursor)

SCAN

	lnRow=lnRow+1

	for i=1 TO lnfields

		lnCol=lnColIni+i

		lcCampo=gaFields[i,1]

		lctype=gaFields[i,2]

		lnDecim=gaFields[i,4]

		xValor=EVALUATE(tcCursor+"."+lcCampo)

		with loSheet.Cells(lnRow,lnCol)

			DO case

				CASE lcType$"CM"

					IF lctype="C" AND EMPTY(CHRTRAN(xValor,"0123456789",""))

       						.NumberFormat = "@"

       				ENDIF

       				.Value=xValor

				CASE lcType$'NI'

    				        cNumform=iif(lnDecim=0,"#,##0","#,##0.")+Repli("0",lnDecim)

					.Style.IncludeNumber =.T.

					.NumberFormat=cNUmForm

					.VALUE=xValor

				CASE lcType="D"

   	    		        	IF !EMPTY(xValor)

						.VALUE=xValor

					endif

				CASE lctype="T"

					.VALUE=TTOC(xValor)

				CASE lcType="L"

					.Value=xValor

				OTHERWISE

					.value=xValor

			ENDCASE

		ENDWITH

	NEXT

ENDSCAN

loExcel.VISIBLE=.T.

STORE null TO loExcel,loSheet

RETURN .T.