帮助中有啊
Dim App As New MSExcel.ApplicationDim Wb As MSExcel.WorkBook = App.WorkBooks.Open("E:\Book1.xls")For Each Ws As MSExcel.WorkSheet In Wb.WorkSheets Output.Show(Ws.Name)NextApp.Quit