读取Excel 的数据，定位sheet的问题！请大家帮忙！

可以使用 Application 对象的 ActiveSheet 属性返回对当前活动的工作簿中当前活动的工作表的引用
如下例所示，使用 Microsoft® Visual Basic® for Applications (VBA) Array 函数可以同时处理多个工作表：Sub ReferToMultipleSheetsExample()
   ' 该过程说明如何以编程方式引用
   ' 多个工作表。
   Dim wksCurrent As Excel.Worksheet
   
   With ActiveWorkbook.Worksheets(Array("Employees", "Sheet2", "Sheet3"))
      .FillAcrossSheets (Worksheets("Employees").UsedRange)
   End With
   Stop
   ' 名为 "Sheet2" 和 "Sheet3" 的工作表现在应
   ' 包含从 "Employees" 工作表上找到的同一个
   ' 表。按 F5 清除这些工作表中的内容。
   For Each wksCurrent In ActiveWorkbook _
      .Worksheets(Array("Sheet2", "Sheet3"))
      wksCurrent.UsedRange.Clear
   Next wksCurrent
End Sub