在工作表数量不确定的工作簿中读取数据,该如何处理

在工作表数量不确定的工作簿中读取数据
一个工作簿中，工作表数量不确定，工作表名称不确定，工作表列数一定，行数不一定，读取指定列的数据，请问如何操作？谢谢大家，如果有合适的答案回追加得分

------解决方案--------------------
看看有用没。
Dim obj As Excel.Application
Dim objWorkbook As Workbook
Dim objWorksheet As Worksheet
Dim idx As Long
Dim ldx As Long
Set objWorkbook = obj.Workbooks.Open(file)

For Each objWorksheet In objWorkbook.Worksheets
For idx = 1 To objWorksheet.Rows
For ldx = 1 To objWorksheet.Columns
If objWorksheet.Cells(idx, ldx) = xxx Then

End If
Next
Next
Next