Dim Book As
New XLS.Book(ProjectPath & "Attachments\\医疗救助拨付单.xls") \'打印
Dim r As Row = Tables("医疗救助_明细").Current
Dim fl As String = ProjectPath
& "医疗救助\\"&r("年度")
& "年"
&"\\" &
r("年度")
& "年-"
& r("月份") &
"月" &
"医疗救助拨付单" &
"(" &
Format(Now(),
"yyyy.M.d.hh.mm") &")"
&" .xls"
Book.Build() \'生成细节区
Book.Save(fl)
\'保存工作簿
Dim Proc As
New Process \'打开工作簿
Proc.File = fl
Proc.Start()
(3)生成的excel表