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

Question

This link显示了如何编写一个小程序来围绕CSV导出的双引号中的单元格值。

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

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

例如，原始数据可能是8543，但电子表格可能已将Zip代码格式应用于列，因此该值显示为08543。

Answer 1

执行以下操作 - 获取值，然后根据所选范围的数字格式对其进行格式化：

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