Экспорт в 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)