excel - Excel导出；使用 VBA，如何将单元格导出为格式化而不是原始单元格值

Question

此链接显示如何编写一个小程序以将单元格值括在双引号中以进行 CSV 导出。

' Write current cell's text to file with quotation marks.
         Print #FileNum, """" & Selection.Cells(RowCount, _
            ColumnCount).Text & """";

有没有办法引用单元格的格式化值并将格式化值写出来？

例如，原始数据可能是8543，但电子表格可能对列应用了邮政编码格式，因此值显示为08543。

Answer 1

做这样的事情 - 获取值，然后根据所选范围的数字格式对其进行格式化：

Format(Range("A1").Value, Range("A1").NumberFormat)