- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 请问狐爸第一次打开xls时会问你是否打开还是保存。如何去掉这个对话框 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=16090)
-- 发布时间：2012/2/2 10:04:00
-- 请问狐爸第一次打开xls时会问你是否打开还是保存。如何去掉这个对话框
e.Form.Controls("WebBrowser1").AddRess="about:blank"
Dim tmp As String = ProjectPath & "Attachments\\chutuan.xls"
Dim rpt As String = ProjectPath & "Reports\\chutuan.xls"
Dim Book As New XLS.Book(tmp)
Book.Build()
Book.Save(rpt)
e.Form.Controls("WebBrowser1").AddRess = rpt
e.Form.Controls("WebBrowser1").Print()
Book=Nothing
然后第一次打开excel后再次打开会有个对话框。该怎么办
此主题相关图片如下：无标题.gif
-- 发布时间：2012/2/2 10:07:00
--
没有别的办法，先关闭excel
-- 发布时间：2012/2/2 10:18:00
--
excel 是在WebBrowser1上打开的 如何关闭
-- 发布时间：2012/2/2 10:24:00
--
自己擦屁股
切换xls不提示已打开
Forms("窗口1").Controls("WebBrowser1").AddRess = ""
Application.DoEvents() ‘这个好象不能少
Application.DoEvents() ‘这个好象不能少
Dim Book As New XLS.Book("D:\\foxtable\\CaseStudy\\abc.xls)
Dim Sheet As XLS.Sheet = Book.Sheets(1)
Book.Build(1)
Book.Save("D:\\foxtable\\CaseStudy\\abc.xls")
Forms("窗口1").Controls("WebBrowser1").AddRess = "D:\\foxtable\\CaseStudy\\abc.xls"
-- 发布时间：2012/2/2 10:34:00
--
很好！
