使用vba将数字格式化为单词中的当前值

Question

我使用vba代码生成从excel到word的报告，而且我遇到了问题。我正在复制的数字似乎没有来自excel的格式，我需要将其格式化为货币，即$ 1,000或$ 5,212,345，现在它只显示为1000和5212345。

这是我的代码，我找不到方法或数据成员错误。

.TypeText "Total Written Premium: " & ws4.Range("I" & LR12)
.Format (ws4.Range("I" & LR12) = "$#,##0.00_)")

Answer 1

.TypeText "Total Written Premium: " & ws4.Range("I" & LR12)

您隐含地提取Range的{​​{1}}。这将更明确：

Value

单元格的值没有任何格式。它不是基础值的表示，它是值本身。

如果单元格已经格式化为货币，那么您需要改为.TypeText "Total Written Premium: " & ws4.Range("I" & LR12).Value ：

Text