[已解决]代码哪里错了，为什么？

happytiger2012

1. Sub ImmediateTest()
   
2. Dim sh As Sheet
   
3. Dim strTmp As String
   
4. For Each sh In Sheets
   
5. If strTmp = "" Then
   
6. strTmp = sh.Name
   
7. Else
   
8. strTmp = strTmp & vbCrLf & sh.Name
   
9. End If
   
10. Next
    
11. MsgBox strTmp
    
12. End Sub

复制代码

代码哪里错了，为什么？

最佳答案

月排行榜 / 总排行榜

hwc2ycy

2013-5-23 11:15

但是，当你的工作簿时里图形工作表，宏表的时候，也就来了。

所以你下面的for each改好写成for each sh in worksheets

跳转到最佳答案楼层

hwc2ycy

Dim sh As Sheet，没有SHEET类型，
dim sh

hwc2ycy

Dim sh As Object
这样更好。

xdd_sky

把sh定义成worksheet就没问题了。。

hwc2ycy

也可以的。

hwc2ycy

但是，当你的工作簿时里图形工作表，宏表的时候，也就来了。

所以你下面的for each改好写成for each sh in worksheets