Z1=730903547X
当我用XJXLS1.CELLS(1,1).VALUE=Z1写入表格时（已创建EXCEL对象XJXLS1）
只写入了730903547
最后一个“X”未能写入。。
怎么回事呢？

IF M1=13
G1=10*VAL(SUBSTR(K2,4,1))+9*VAL(SUBSTR(K2,5,1));
+8*VAL(SUBSTR(K2,6,1))+7*VAL(SUBSTR(K2,7,1))+6*VAL(SUBSTR(K2,8,1))+5*VAL(SUBSTR(K2,9,1));
+4*VAL(SUBSTR(K2,10,1))+3*VAL(SUBSTR(K2,11,1))+2*VAL(SUBSTR(K2,12,1))
M2=ALLTRIM(STR(11-MOD(G1,11)))

DO CASE
CASE M2="10"
Z1=ALLTRIM(ALLTRIM(SUBSTR(K2,4,9))+"X")
CASE M2="11"
Z1=ALLTRIM(ALLTRIM(SUBSTR(K2,4,9))+"0")
OTHERWISE
Z1=ALLTRIM(ALLTRIM(SUBSTR(K2,4,9))+ALLTRIM(M2))
ENDCASE
XJXLS1.CELLS(i,1).VALUE=VAL(Z1)
ENDIF
二楼哥哥，
我的Z1是根据上面CASE M2=“10”
算出来的，
怎办？

傻了！
一时糊涂！
幸好没酿大祸！

非常感谢HMLCTMY