用VB向EXCEL中写入数据时，超过15位的显示全部显示为零！如何解决？

[painus]

1.如题，我事先把该单元格设成‘数值’也不行，总之，看了很多资料，都没有用！
2.在程序里用的是
.Cells(i + 1, j + 1) = Format(CDec(ListView1.ListItems(i).SubItems(j)), standard)
各位老大，请指教！

[mouseanAnya]

.Cells(i + 1, j + 1) = Format(ListView1.ListItems(i).SubItems(j),".00")
只保留两位小数呢？

[道素]

我试了一下：
Format(CDec("12345678890878678767867"), "standard")
结果没问题啊