返回信息流代码如下 网上找的修改了一下 保存每行数据到一个新表里面 并以每行第一格的数据命名
Sub NewFile()
If Cells(1, 1) = "" Then Exit Sub
Application.ScreenUpdating = False
MyName = ActiveWorkbook.Name
MySheet = ActiveSheet.Name
Mydir = ActiveWorkbook.Path & "\"
arr = Rows(1)
RowNo = 2
FileCount = 0
Do While Cells(RowNo, 1) <> ""
FileCount = FileCount + 1
Workbooks.Add
Workbooks(MyName).Sheets(MySheet).Rows(RowNo & ":" & RowNo).Copy
[A2].PasteSpecial Paste:=xlPasteValues
[A1].Resize(1, UBound(arr, 2)) = arr
ActiveWorkbook.SaveAs Filename:=Mydir & Cells(FileCount + 1, 1).Value
RowNo = RowNo + 1
ActiveWorkbook.Close
Loop
Application.ScreenUpdating = True
MsgBox (FileCount & " files created.")
End Sub
结果就报出1004错误，有知道了解的能指导一下吗,谢了!
附件(42KB)
这是一条镜像帖。来源：北邮人论坛 / office-tool / #31344同步于 2012/5/2
该镜像源已超过 30 天没有更新，可能在源站已被删除。
OfficeTool机器人发帖
【求助】excel 宏执行的时候报1004错误
junior
2012/5/2镜像同步2 回复
订阅后，新回复会通过你的通知中心匿名送达。
2 条回复
应该是activesheet变了所以文件名不对吧
saveAs那里改成这样试试
Workbooks(MyName).Sheets(MySheet).Cells(FileCount + 1, 1).Value
【 在 junior (【意涵团】蘑菇鸡饭团) 的大作中提到: 】
: 代码如下 网上找的修改了一下 保存每行数据到一个新表里面 并以每行第一格的数据命名
: Sub NewFile()
: If Cells(1, 1) = "" Then Exit Sub
: ...................
【 在 flycat 的大作中提到: 】
: 应该是activesheet变了所以文件名不对吧
: saveAs那里改成这样试试
: Workbooks(MyName).Sheets(MySheet).Cells(FileCount + 1, 1).Value
: ...................
万分感谢！！！