急!!关于遍历并更改EXCEL里的SHEET里的内容

Question

EXCEL里有很多SHEET,现在要把每个SHEET里的对应项内容进行修改.
比如
如何操作.
急!!
谢谢!

Answer 1

For i = 1 To xlApp.Application.Workbooks(ExcelFileName).Sheets.Count
  Sheetname(i)= xlApp.Application.Workbooks(ExcelFileName).Sheets(i).Name 
Next i'这样就可以得到所有的SHEET名字啦，存放在Sheetname中。

Answer 2

for each exSheet in exApp.Application.Workbooks
    exSheet. ... '这里引用对该工作表的操作
    ...
next

Answer 3

刚才漏了点.for each exSheet in exApp.Application.Workbooks(name).Sheets
    exSheet. ... '这里引用对该工作表的操作
    ...
next