这个又是怎么了？

Sub cf() '拆分工作簿4
Dim i As Integer, wb As Worksheet
Set wb = Workbooks("工作簿4").Sheets(i)
For i = 1 To Sheets.Count
wb.Copy '复制工作表
ActiveWorkbook.SaveAs Filename:="d:data\" & wb.Name '将当前工作簿以“ "的名字保存到d盘data目录下
ActiveWorkbook.Close
Next
End Sub