| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 我在浏览器中打开excel 连续打开一直提示文件打开需要关闭! (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=55759) |
| -- 作者：blackzhu -- 发布时间：2014/8/22 16:07:00 -- 我在浏览器中打开excel 连续打开一直提示文件打开需要关闭! 我用这个代码执行,但是连续执行一直提示文件打开需要关闭! 我加了关闭进程也不行,加了判断文件是否打开执行关闭后 也不行,还是一直提示! 应该怎么做比较好? Dim wbr
As WinForm.WebBrowser
= e.Form.Controls("WebBrowser1") |
| -- 作者：Bin -- 发布时间：2014/8/22 16:12:00 -- 结束了进程也提示,不会吧? |
| -- 作者：blackzhu -- 发布时间：2014/8/22 16:42:00 -- 就是呀 很奇怪 DataTables(Vars("台账名")).LoadFilter = "台账编号=\'" & e.Table.Current("台账编号") & "\'" DataTables(Vars("台账名")).Load Dim ps As System.Diagnostics.Process() = System.Diagnostics.Process.GetProcessesByName("Excel") For Each p As System.Diagnostics.Process In ps p.kill Next Dim Book As New XLS.Book(ProjectPath & "Attachments\\" & Vars("台账名") & ".xls") Dim fl As String = ProjectPath & "Reports\\" & Vars("台账名") & ".xls" Book.Build() \'生成细节区 Book.Save(fl) \'保存工作簿 If ShowAppWindow(Vars("台账名"),5) = False Then msgbox("打开") Dim wbr As WinForm.WebBrowser = e.Form.Controls("WebBrowser1") wbr.AddRess = "" wbr.AddRess = fl End If 这样也弹错,我看着进程关闭的 改成下面的也弹错 Dim Book As New XLS.Book(ProjectPath & "Attachments\\" & Vars("台账名") & ".xls") Dim fl As String = ProjectPath & "Reports\\" & Vars("台账名") & ".xls" Book.Build() \'生成细节区 Book.Save(fl) \'保存工作簿 Dim ps As System.Diagnostics.Process() = System.Diagnostics.Process.GetProcessesByName("Excel") For Each p As System.Diagnostics.Process In ps p.kill Next If ShowAppWindow(Vars("台账名"),5) = False Then msgbox("打开") Dim wbr As WinForm.WebBrowser = e.Form.Controls("WebBrowser1") wbr.AddRess = "" wbr.AddRess = fl End If [此贴子已经被作者于2014-8-22 16:45:06编辑过]
|
| -- 作者：jianjingmaoyi -- 发布时间：2014/8/22 17:44:00 -- 没有人知道怎么解决吗? |
| -- 作者：don -- 发布时间：2014/8/22 17:53:00 -- Dim ps As System.Diagnostics.Process() = System.Diagnostics.Process.GetProcessesByName("Excel") For Each p As System.Diagnostics.Process In ps p.kill Next Dim Book As New XLS.Book(ProjectPath & "Attachments\\" & Vars("台账名") & ".xls") Dim fl As String = ProjectPath & "Reports\\" & Vars("台账名") & ".xls" Book.Build() \'生成细节区 Book.Save(fl) \'保存工作簿 If ShowAppWindow(Vars("台账名"),5) = False Then msgbox("打开") Dim wbr As WinForm.WebBrowser = e.Form.Controls("WebBrowser1") wbr.AddRess = "" wbr.AddRess = fl End If
|
| -- 作者：jianjingmaoyi -- 发布时间：2014/8/22 18:00:00 -- don老大 这样我已经改过了 你看看上面的两段代码 第一段就是的 |
| -- 作者：don -- 发布时间：2014/8/22 18:03:00 -- 这就说不清了. 因我有段代码,结束Excel进程没有在前面就报错! 后来放在前面就正常了.
|
| -- 作者：jianjingmaoyi -- 发布时间：2014/8/22 18:07:00 -- don 老大测试可以 |