请问到底如何做: 比如Excel文件中存在三个工作表:"姓名","sheet2","sheet3" 如何遍历每一个Sheet对象,给点提示,谢谢! 用下面的代码,必须先知道工作表的名字: Set tempxlSheet = tempxlWorkbook.Worksheets("Sheet1") 而每个*.xls文件千差万别,不可能每一个工作表都起名为sheet1.
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:
改进: For shtCnt = 1 To xlBook.Sheets.Count MsgBox xlBook.Sheets(shtCnt).Name Next
比如Excel文件中存在三个工作表:"姓名","sheet2","sheet3"
如何遍历每一个Sheet对象,给点提示,谢谢!
用下面的代码,必须先知道工作表的名字:
Set tempxlSheet = tempxlWorkbook.Worksheets("Sheet1")
而每个*.xls文件千差万别,不可能每一个工作表都起名为sheet1.
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:
For shtCnt = 1 To xlBook.Sheets.Count
MsgBox xlBook.Sheets(shtCnt).Name
Next