Dim web As Windows.Forms.WebBrowser
web = e.Form.Controls("WebBrowser1").baseControl
AddHandler web.DocumentCompleted,AddressOf WebBrowser1_DocumentCompleted
o D o c u m e n t = Nothing
o A p p l i c a t i on = Nothing
Dim sql As String="s e l e c t fileName From {B01} where 账套id='" & vars("mdbid") & "' and 报表名称='" & vars("报表名称") &"'"
Dim Fi le Na me As String =Functions.Execute("E xecuteS calar",sql)
If filesys.FileExists(FileName)=True Then
FileSys.CopyFile(FileName, ProjectPath & "报表\" & FileSys.GetName(FileName),True)
Dim wbr As WinForm.WebBrowser = e.Form.Controls("WebBrowser1")
If oDocument IsNot Nothing
oDocument.Saved = True
oDocument.save
End If
vars("ReportFileName")=ProjectPath & "报表\" & FileSys.GetName(FileName)
'计算报表
Dim App As New MSExcel.Application
Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open(vars("ReportFileName"))
Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1) '指定工作表
For RowIndex As Integer=1 To ws.usedrange.rows.Count-1
For ColIndex As Integer =1 To ws.usedrange.columns.Count-1
If ws.cells(Rowindex,ColIndex).Formula.startswith("=") Then
msgbox(ws.cells(Rowindex,ColIndex).Formula) '如果是公式
Dim s As Double =Computer2(ws.cells(Rowindex,ColIndex).Formula) '调用公式计算器进行计算
ws.cells(Rowindex,ColIndex).Value=s
End If
Next
Next
app.Quit
web.Navigate(Project Path & "报表\" & F i l e S y s. G e t N a m e(F i l e N a m e))
End If
第一次弹出 是否保存修改,值是肯定修改了,我想直接保存,然后再打开.
第二资弹出 是否下载 资产负债表 点打开后
我是思路是 从\报表模板目录下复制资产负债表,然后保存在\报表\目录下.计算报表,然后打开报表到Web Browser
加好友 
发短信
Post By：2019/4/11 19:37:00 [只看该作者]
