在VB操作Excel时，如何遍历工作簿中的工作表？
在VB操作Excel时，如何遍历工作簿中的工作表，并将每张工作表的名字显示出来？

        Set xlAppFilter = CreateObject("Excel.Application") '创建EXCEL应用类
        Set xlBookFilter = xlAppFilter.Workbooks.Open(strFileNameForFilter)
        xlBookFilter.Activate
        Dim i, Count As Integer
        Count = xlBookFilter.Sheets.Count
    
        For i = 1 To Count
‘以下这句是错的，应该怎样写才是对的呢？
            xlSheetsFilter = xlBookFilter.Sheets.Select(i)
            msgbox xlSheetsFilter.Name
            r = r + 1
            
        Next
        
        xlBookFilter.Close (True)
        Set xlSheetFilter = Nothing
        Set xlBookFilter = Nothing
        xlAppFilter.Quit '关闭EXCEL应用类
        Set xlAppFilter = Nothing '释放EXCEL应用类

[解决办法]
错了，应该是：
set xlSheetsFilter = xlBookFilter.Sheets(i)
[解决办法]
xlSheetsFilter = xlBookFilter.Sheets(i)

应该是 Set xlSheetsFilter = xlBookFilter.Sheets(i)