主题：见过这样的汇总表吗？狐表能否做到？

经典

  做一个组合框控件,项目列表中输入你要加载的报表名字,做一个按钮加入以下代码就可以预览你想要的报表.

Dim T,T1,T2 As String
T =  e.Form.Controls("ComboBox1").value
T1 = ProjectPath & "Attachments\" & T & ".xls"
T2 = ProjectPath & "Reports\ "& T & ".xls"

if T isnot Nothing then
    If T.Indexof(T) > -1 then
        Dim Book As New XLS.Book(T1)
        Book.Build()
        Book.Save(T2)
        with Forms("窗口名字")
            .Show()
            .Controls("WebBrowser1").Address = t2
        end with
       
    End if
End if

呵呵，方法这么多，不过我一个也用不了，不管怎么设置都是以excel方式打开。