主题：如何在EXCEL中设置金额大写？

excel的格式设置非常丰富，应该再设计模板的时候，设置好单元格格式，而不是利用数据引用来实现。

如果这样的话，先将转换后的大写金额保存在一个全局变量中，然后：

{"委托房产于认证基准日按同地段普通商品住房计算认证价格（大写）：" & [!全局变量]}

你完全乱套了，强烈建议你重新复习两次帮助！

在afteropenproject事件中增加两个变量:
   Vars.Add("商大写",GetType(string))
    Vars.Add("差大写",GetType(string))

自己一个打印报表的按钮：

Vars("商大写")= CUMoney(CurrentTable.Current("商品房价格"))
Vars("差大写")= CUMoney(CurrentTable.Current("认证差价"))

Dim Book As New XLS.Book(ProjectPath & "Attachments\文件名.xls") '打开模板
Dim Sheet As XLS.Sheet = Book.Sheets(0)
Book.Build() '生成细节区
Book.Save("c:\reports\test.xls") '保存工作簿
Dim Proc As New Process '打开工作簿
Proc.File = "c:\reports\test.xls"
Proc.Start()

可以不用全局变量，直接在build之后，向单元格写入内容：

....
Book.Build()
Sheet(行号，列号) = "委托房产于认证基准日按同地段普通商品住房计算认证价格（大写）：" & CUMoney(CurrentTable.Current("商品房价格"))
....

还可以使用标记来解决，都很方便的

最好是通过排版解决，将内容分布在两个单元格。
excel可以很方便合并单元格的，多插入一些列来合并处理。

刚刚漏掉一个value，正确的：

Sheet(行号，列号).value = "委托房产于认证基准日按同地段普通商品住房计算认证价格（大写）：" & CUMoney(CurrentTable.Current("商品房价格"))

用代码打印没，每次打印一页，设计一个按钮，代码设为：

Dim Book As New XLS.Book(ProjectPath & "Attachments\文件名.xls") '打开模板
Dim Sheet As XLS.Sheet = Book.Sheets(0)
Book.Build() '生成细节区
Book.Save("c:\reports\test.xls") '保存工作簿
Dim Proc As New Process '打开工作簿
Proc.File = "c:\reports\test.xls"
Proc.Start()