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

Question

This link shows how to write a small program to surround the cell value in double-quotation marks for a CSV export.

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

Is there a way to reference the cell's formatted value and write the formatted value out instead?

For example, the raw data could be 8543 but the spreadsheet might have Zip Code formatting applied to the column, so the value is displayed as 08543 .

Answer 1

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

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