Rss & SiteMap
Foxtable(狐表) http://www.foxtable.com
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()