我在浏览器中打开excel 连续打开一直提示文件打开需要关闭! - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

我用这个代码执行,但是连续执行一直提示文件打开需要关闭! 我加了关闭进程也不行,加了判断文件是否打开执行关闭后也不行,还是一直提示! 应该怎么做比较好?

Dim wbr As WinForm.WebBrowser = e.Form.Controls("WebBrowser1")
Dim tmp As String = ProjectPath & "Attachments\资料卡.xls"
Dim rpt As String = ProjectPath & "Reports\资料卡.pdf"
Dim Book As New XLS.Book(tmp)
Book.Build()
Book.SaveToPDF(rpt) '保存为pdf文件
wbr.AddRess = rpt

结束了进程也提示,不会吧?

就是呀很奇怪

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

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

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编辑过]

没有人知道怎么解决吗?

Dim ps As System.Diagnostics.Process() = System.Diagnostics.Process.GetProcessesByName("Excel")

For Each p As System.Diagnostics.Process In ps

p.kill

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

don老大这样我已经改过了你看看上面的两段代码第一段就是的

这就说不清了.

因我有段代码,结束Excel进程没有在前面就报错!

后来放在前面就正常了.

don 老大测试可以

主题：我在浏览器中打开excel 连续打开一直提示文件打开需要关闭!