中的例子 运行报错，怎么回事？ sht.Cop报错

ntuwei

Sub 宏1()   '自动将工作表分为同名工作簿，调试未成功   sht.Cop报错
    Application.ScreenUpdating = False
    Dim folder As String
    folder = ThisWorkbook.Path & "\按地市分类"
    If Len(Dir(folder, vbDirectory)) = 0 Then MkDir folder
    Dim sht As Worksheet
    For Each sht In Worksheets
    sht.Copy
    ActiveWorkbook.SaveAs folder & "\" & sht.Name & ".xls"
    ActiveWorkbook.Close
    Next
    Application.ScreenUpdating = True
End Sub

liulang0808

For Each sht In thisworkbook.Worksheets
或者表格是不是有限制的，隐藏的之类的
如果还有问题，上传附件看看吧

abc123281

仅供参考

1. Sub 宏1()   '自动将工作表分为同名工作簿，调试未成功   sht.Cop报错
   
2.     Application.DisplayAlerts = False
   
3.     Application.ScreenUpdating = False
   
4.     Dim folder As String
   
5.     folder = ThisWorkbook.Path & "\按地市分类"
   
6.     Dim sht As Worksheet
   
7.     Dim wb As Workbook
   
8.     For Each sht In Worksheets
   
9.     Set wb = Workbooks.Add
   
10.       With wb
    
11.         sht.Copy after:=.Worksheets(.Worksheets.Count)
    
12.        .ActiveSheet.Name = sht.Name
    
13.        .Worksheets("sheet1").Delete
    
14.        .SaveAs folder & sht.Name
    
15.        .Close
    
16.       End With
    
17.     Next
    
18.     Application.ScreenUpdating = True
    
19. End Sub

复制代码

ntuwei

多谢回复
这个代码还是有问题，1004 应用程序定义或对象错误。
.Worksheets("sheet1").Delete
工作资料不方便上传。功能已经通过网上搜索的其他代码实现了，只是有点奇怪书上现成的代码为什么会不行。