获得Excel文件的sheet名称和数量

Dim ex As Excel。应用程序
将exwbook显示为Excel。工作簿
将exsheet显示为Excel。工作表
Dim x As String
Dim shet counts As Integer
shet counts = 0
Set ex = CreateObject(" Excel。application ")
Set EXW book = ex . workbooks . open(this workbook . path & " \ book1 . xls ")
对于workshops中的每个ws
msgboxws . name
nextws
'不要忘记添加关闭EXCEL和释放变量的代码。