是否有宏病毒，照搬书上代码运行不了！

365660188

是否有宏病毒，照搬书上代码运行不了！

365660188

Sub 工作表拆分工作簿() Dim wb As Workbook
Dim sht As Worksheet
Dim i$, x%
Application.DisplayAlerts = False
For Each sht In Workbooks(ThisWorkbook.Name).Sheets
Set wb = Workbooks.Add
x = x + 1
Workbooks(1).Sheets(x).Copy Workbooks(2).Sheets(1)
i = thisworkbooks.Path & "\" & sht.Name & ".xls"
wb.SaveAs i
wb.Close
Next
Application.DisplayAlerts = True
MsgBox "拆分完成" & x & "工作簿。"
End Sub

alstar

i = thisworkbooks.Path & "\" & sht.Name & ".xls"
请写成thisworkbook没有后面的s

lsc900707

365660188 发表于 2018-9-28 17:44
Sub 工作表拆分工作簿() Dim wb As Workbook
Dim sht As Worksheet
Dim i$, x%

"病毒“就是自己粗心大意！
Sub 工作表拆分工作簿()
Dim wb As Workbook
Dim sht As Worksheet
Dim i$, x%
Application.DisplayAlerts = False
For Each sht In Workbooks(ThisWorkbook.Name).Sheets
Set wb = Workbooks.Add
x = x + 1
Workbooks(1).Sheets(x).Copy Workbooks(2).Sheets(1)
i = Thisworkbook.Path & "\" & sht.Name & ".xls"
wb.SaveAs i
wb.Close
Next
Application.DisplayAlerts = True
MsgBox "拆分完成" & x & "工作簿。"
End Sub

365660188

alstar 发表于 2018-9-28 18:58
i = thisworkbooks.Path & "\" & sht.Name & ".xls"
请写成thisworkbook没有后面的s

谢谢！确实基础不过关！

365660188

lsc900707 发表于 2018-9-29 05:31
"病毒“就是自己粗心大意！
Sub 工作表拆分工作簿()
Dim wb As Workbook

谢谢老师指出，粗心了