导出激活工作表到同文件下的其它全部工作簿之中

yueyueniao · 发表于 2010-12-22 11:54

导出激活工作表到同文件下的其它全部工作簿之中（未解决）
在运行程序，把当前激活工作表以原名为工作表名称分别导出到同文件夹下的其它工作簿之中工作表的第一位置。
请下载附件打开汇总工作簿看要求！！！谢谢！！！

yueyueniao · 发表于 2010-12-22 11:55

直到解决为止。

yueyueniao · 发表于 2010-12-22 12:28

哎，今天类似帖发了很多次了，我觉得我说得够清楚了，但仍期待……

yueyueniao · 发表于 2010-12-22 12:20

又有大侠下载，期待中……

yueyueniao · 发表于 2010-12-22 12:33

汇总表的具体设置还未做，必须这个程序成功才有做的价值，目的是导出汇总工作表到同文件夹的其它子表之中。

sevenstar · 发表于 2010-12-22 13:33

2007下测试通过，2003就不知道了。

Book2.rar (15.66 KB, 下载次数: 32)

yueyueniao · 发表于 2010-12-22 14:06

看看，谢谢了。保存成兼容格式哟。

yueyueniao · 发表于 2010-12-22 14:08

对了，今天我发了七八次贴了，谢谢，真诚的谢谢你！辛苦了。

yueyueniao · 发表于 2010-12-22 15:13

不行了，进入死循环，还有我把汇总工作表名改了也要行，我是把激活工作表以原名导出，大侠，还得改改。循环次数应该是文件夹电子表格文件的个数减1。

sevenstar · 发表于 2010-12-23 12:43

又改了改，可以实现把激活工作表以原名导出。但是没有增加复制工作表名在目标工作簿中已存在情况下的判断，所以若目标工作簿中已存在要复制的工作表名（即要复制的激活工作表名）时会出错。
Sub cc()
On Error Resume Next
Application.ScreenUpdating = False
mypath = ThisWorkbook.Path & "\"
myfile = Dir(mypath & "*.xls", vbNormal)
Do While myfile <> ""
      If myfile <> ThisWorkbook.Name Then
         Workbooks.Open mypath & myfile
         ThisWorkbook.ActiveSheet.Copy Before:=Workbooks(myfile).Sheets(1)
         Workbooks(myfile).Close True
      End If
      myfile = Dir
Loop
Application.ScreenUpdating = True
End Sub

		自动登录	找回密码
密码			免费注册

[求助] 导出激活工作表到同文件下的其它全部工作簿之中

回复 1楼 yueyueniao 的帖子

回复 1楼 yueyueniao 的帖子

回复 1楼 yueyueniao 的帖子

回复 1楼 yueyueniao 的帖子

回复 6楼 sevenstar 的帖子

回复 6楼 sevenstar 的帖子

回复 6楼 sevenstar 的帖子