主题：[求助]人民币大写问题。

1.Excel模板原公式改为:<金额大写>;

2.按钮代码:

Dim v As Double = Tables("出库明细").Compute("sum(金额)")

Dim S As String = EUMoney(v)

If S.Endswith("Dollars") Then

    S=S.Replace("Dollars","ONLY")

Else

    S=S.Replace("Dollars And","&")

End If

S= "SAY CHINESE YUAN " & S.Replace("Cents","FEN ONLY").ToUpper

Dim Book As New XLS.Book(ProjectPath & "Attachments\出库明细.xls")

Book.Marks.Add("金额大写",s)

Dim fl As String = ProjectPath & "Reports\出库明细.xls"

Book.Build() '生成细节区

Book.Save(fl) '保存工作簿

Dim Proc As New Process '打开工作簿

Proc.File = fl

Proc.Start()