从VBA激活excel表而不知道它的名字？

Question

是否可以在不知道名称的情况下通过VBA激活打开的工作簿中的工作表？我正在使用application.getfileopenname打开一个工作簿并从中读取数据，但是有些工作簿在第二张表上有数据，而不是第一张。无论如何我可以将活动工作表切换到第二张表吗？

Answer 1

Dim wsData As Worksheet
Set wsData = Sheets(1)

'If the Range doesn't have the value you are looking for switch sheets
If wsData.Range("A1").Value <> "MyExpectedData" Then Set wsData = Sheets(2)