在本文件夹内的所有文档进行操作

cn1145 · 发表于 2024-2-5 09:18

在一个文件夹内不含子文件夹，有几百个相同格式的EXCEL文档，每天都要依次逐个打开，进行一些简单的复制和粘贴的操作然后关闭。这个过程不但冗余繁重，还担心出错，对于代码，我一窍不通，但是我相信世间有高人，所以特此恳求VBA大神帮我编写一段代码，衷心感谢！

半百 · 发表于 2024-2-5 10:34

三，将“Sheet5 ” 的A-D列的内容复制后分别粘贴到“Sheet2,Sheet3,Sheet4”中
A-D列的内容是不是指的A1:D19？粘贴到其它表的哪个位置？

cn1145 · 发表于 2024-2-5 10:57

半百发表于 2024-2-5 10:34
三，将“Sheet5 ” 的A-D列的内容复制后分别粘贴到“Sheet2,Sheet3,Sheet4”中
A-D列的内容是不是指的A1:D ...

同“Sheet5 ” 一样的位置，谢谢！

ykcbf1100 · 发表于 2024-2-5 11:00

需求不明确，其它工作簿中的相应表内容是复制到哪个位置，怎么复制，没写清楚。多个工作簿多个表是相同的，递增复制吗？

半百 · 发表于 2024-2-5 11:04

cn1145 发表于 2024-2-5 10:57
同“Sheet5 ” 一样的位置，谢谢！

那样不是覆盖了其它表原有数据（A6:D19)了吗？

cn1145 · 发表于 2024-2-5 11:32

半百发表于 2024-2-5 11:04
那样不是覆盖了其它表原有数据（A6:D19)了吗？

首先要万分感谢“半百”老师您不厌其烦的给我提示！这里的文档仅简单示例，是我图方便将第六行的数据右拉了而已，实际原文件中A:D列，20-22行这部分单元格是没有数据的，就是需要sheet5的数据来填充。谢谢您了！

yynrzwh · 发表于 2024-2-5 11:37

请少量测试，注意备份数据。

运行本文件夹.rar (15.23 KB, 下载次数: 5)

cn1145 · 发表于 2024-2-5 15:41

yynrzwh 发表于 2024-2-5 11:37
请少量测试，注意备份数据。

非常感谢您的帮助，我将您的代码测试了一下，这些动作命令完全正确，正是我所需要的，只是有两个小问题还需要修改一下，如图所示，

第一是在运行的过程中，每次删除sheet5时总是报警提示“无法撤销删除工作表，……”需要一个一个手动确认，第二是整个文件夹运行完毕后，同样报警显示“Excel停止运行”。再次麻烦你了

yynrzwh · 发表于 2024-2-5 16:06

运行本文件夹.rar (17.14 KB, 下载次数: 9)

cn1145 · 发表于 2024-2-5 16:19

yynrzwh 发表于 2024-2-5 16:06

谢谢，衷心感谢，代码运行丝滑流畅！

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

[求助] 在本文件夹内的所有文档进行操作