Dim ex As Excel.Application
　　Dim exwbook As Excel.Workbook
　　Dim exsheet As Excel.Worksheet
　　Dim x As String
　　Dim shetcounts As Integer
　　shetcounts = 0
　　Set ex = CreateObject("Excel.Application")
　　Set exwbook = ex.Workbooks.Open(ThisWorkbook.Path & "\Book1.xls")
　　For Each ws In Worksheets
　　MsgBox ws.Name
　　Next ws
　　'别忘了加上关闭EXCEL的代码与释放变量