在Sheets集合中遍历每一个Sheet对象,比较此对象的名称即可!

解决方案 »

  1.   

    请问到底如何做:
    比如Excel文件中存在三个工作表:"姓名","sheet2","sheet3"
    如何遍历每一个Sheet对象,给点提示,谢谢!
    用下面的代码,必须先知道工作表的名字:
     Set tempxlSheet = tempxlWorkbook.Worksheets("Sheet1")
    而每个*.xls文件千差万别,不可能每一个工作表都起名为sheet1.
      

  2.   

    Set xlApp = New Excel.Application
    Set xlBook = xlApp.Workbooks.Open("c:\my documents\yg.xls")
    For cellCnt = 1 To 3
    MsgBox xlApp.Sheets(cellCnt).Name
    Next
    xlBook.Close False
    xlApp.Quit
    Set xlBook = Nothing
    Set xlApp = Nothing
    exitsub:
      

  3.   

    改进:
    For shtCnt = 1 To xlBook.Sheets.Count
    MsgBox xlBook.Sheets(shtCnt).Name
    Next