共5 条记录, 每页显示 10 条, 页签:
[1]
[浏览完整版]
标题：请问狐爸第一次打开xls时会问你是否打开还是保存。如何去掉这个对话框
1楼
ajim 发表于：2012/2/2 10:04:00
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
2楼
狐狸爸爸 发表于：2012/2/2 10:07:00没有别的办法，先关闭excel
3楼
ajim 发表于：2012/2/2 10:18:00excel 是在WebBrowser1上打开的 如何关闭
4楼
ajim 发表于：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"
5楼
狐狸爸爸 发表于：2012/2/2 10:34:00很好！
共5 条记录, 每页显示 10 条, 页签:
[1]