转换整数到date问题

我正在开发一个程序，将雅虎财经的现金汇入另一张Excel电子表格。 一切正常，然后我又写了一个上传商业名称的函数，现在突然显示现金价值是一个date，我很困惑。

'WB1.Cells(i, 3) = CDate(WB2.Range("G3")) WB1.Cells(i, 4) = WB2.Range("G7") WB1.Cells(i, 4) = CLng(WB1.Cells(i, 4)) 

Answer 1

设置单元格的numberFromat

 WB1.Cells(i, 4).NumberFormat = "$#,##0.00"