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的代码与释放变量