请教各位大神，以下代码为什么出现应用程序定义或对象定义错误？

a修行

请教各位大神，以下代码为什么会出现应用程序定义或对象定义错误？应怎样修改？？
Sub 工作表()
Dim wk As Workbook, sht As Worksheet, ss$, k%
Application.DisplayAlerts = False
For Each sht In Workbooks("6").Worksheets
Set wk = Workbooks.Add
sht.copy wk.sheets(1)
ss = ThisWorkbook.Path & "\" & sht.Name & ".xlsm"
wk.SaveAs ss
wk.Close
Next
Application.DisplayAlerts = True
MsgBox "拆分工作簿完成"
End Sub

A1233515

看看这样行不行

A1233515

附件供参考

a修行

A1233515 发表于 2021-1-30 15:26
附件供参考

感谢你的帮助。代码已经没有出现错误。但为什么运行完代码后，在文件的当前保存路径里看不见拆分的文件？？恳请再次帮忙解决定个问题。谢！