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

【问题标题】：Excel export ; using VBA, how to export cell as formatted rather than the raw cell valueExcel导出；使用 VBA，如何将单元格导出为格式化而不是原始单元格值
【发布时间】：2013-03-11 14:21:18
【问题描述】：

This link 展示了如何编写一个小程序以将单元格值括在双引号中以用于 CSV 导出。

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

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

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

【问题讨论】：

好吧，格式化的值可能是例如粗体、斜体，或者在数字的情况下，n,nnn.00 - 现在您将如何在输出文件中显示它？您的输出文件是 MS Word 文档还是文本文件？
在您的示例中，您可以对正在写出的数据进行格式化，因此您可以输入 format(Selection.Cells(RowCount, ColumnCount).Text, "zip") - 这就是您想要吗？
CSV 文件是文本或平面文件，因此通常格式不会与数据一起输出。当然，您可以添加另一个存储行格式的字段，例如格式字符串，例如 'Col 1 = BOLD.ITALIC.VERDANA.10PT;列 2=0.ITALIC.TAHOMA.8PT； Col 3= 0.0.Times New Roman.18PT'
将数据“掩码”应用于原始值是我正在寻找的另一个术语。我不需要“造型”
通常您会区分Range 对象（即一个或多个单元格）的Value 属性和Range 对象的Text 属性。 Value 是原始数据，Text 是单元格中显示的内容（就数字格式和文本格式而言，但不是您描述的样式）

标签： excel export-to-csv vba

【解决方案1】：

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

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

【讨论】：

这是朝着正确方向迈出的一步，谢谢，所以我会接受答案。不是那么简单，因为通用格式。 Excel 工作表已发送给我们，我们没有创建它们。 Excel 是一种共享“数据”的快捷方式。创建这些工作表的人通常选择不正确的列格式。
我不知道您将如何从该答案中获取格式化值到 CSV 文件中，因为数据不包括粗体或 Zip 文件掩码等文本格式...您实际上必须用零填充原始数据才能将 5867 变为 05867