怎样用VBA查出工作薄中所有工作表的名称?

zhao

我想用VBA来查出一个工作薄中所有工作表的名称,请问高手,该如何办呢?

方漠

For Each SS In ThisWorkbook.Sheets
   MsgBox SS.Name
Next

jhgcs

试一试用下面的VBA 代码,可将workbook 中的worksheet在工作表中列示出来

打开 VBE 输入：

private sub commandbutton1_click()

  set newsheet=sheets.add(type:=xlworksheet)

   for i=1to sheets.count

   newsheet.cells(i,1).value=sheets(i).name

    next i

end sub

chenhuafu

不错不错，学习了