主题：选择模版问题

我的问题是：

 

我在付款管理表中，一次性选择了几条记录，用  生成付款通知单  按钮

 

能够自动按照付款金额的大写，选择江铜  或者  贵冶  模版输出报表

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:复件 项目管理.rar

Dim fl As String
If 条件1成立 Then
    fl = ProjectPath & "Attachments\模板1.xls"
ElseIf 条21成立 Then
    fl = ProjectPath & "Attachments\模板2.xls"
ElseIf 条件3成立 Then
    fl = ProjectPath & "Attachments\模板3.xls"
Else
    Return
End If
Dim Book As New XLS.Book(fl)
Book.Build() '生成细节区
Book.Save(fl) '保存工作簿
Dim Proc As New Process '打开工作簿
Proc.File = fl
Proc.Start()