主题：WebBrowser中打开EXCEL表

这样可以切换Excel中的表（将第二个表和第一个换位置，但是好象会删除第一列？）

Forms("窗口1").Controls("WebBrowser1").AddRess = ""
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"