主题：关于excel报表

Dim Book As New XLS.Book(fs)  '& e.Form.Controls("订单号").text & ".xls")
Dim fl As String = ProjectPath & "OutPut\标签1.xls"
Book.Sheets.SelectedIndex=e.Form.Controls("TabControl1").SelectedIndex '显示标签还是唛头
Book.Build()
Book.Save(fl)
Dim App As New MSExcel.Application
try
    Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open(fl)
    Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)
    Ws.PrintOut(Copies:=3)
    app.quit
catch ex As exception
    msgbox(ex.message)
    app.quit
End try

如果是webbrowser里面的，这样写

 

e.Form.Controls("Webbrowser1").Address = Nothing

 

 

这样没有关掉呀

 

e.Form.Controls("Webbrowser1").Address = "d:\test.xls"

 

或者

 

e.Form.Controls("Webbrowser1").Address = "d:\test.jpg"

 

或者

 

Dim ps As  System.Diagnostics.Process() = System.Diagnostics.Process.GetProcessesByName("excel")
For Each p As System.Diagnostics.Process In ps

    msgbox(p.MainWindowTitle)
    If p.MainWindowTitle = Nothing Then  p.kill
Next