excel怎么批量复制如何将工作表重命名并且重命名?

我正在生成一个访问命令按钮,将数据导出到Excel中。目前,我有这个功能工作,并试图完善它一点,每个出口将数据导出到一个新的工作表,这将有效地是一个ActiveSheet的副本。看起来让我失望的代码是:

Access有在建的命令按钮过程导出表到Excel。但是,不管怎样,你可以用这一个:

我使用下面的代码来复制一个主副本,每次我点击一个button。

当我把复制命令放在for循环中时,它会生成全部20个工作表。

不过,我想每一个button的点击产生一张表,并命名1,2 ..等等。

我把复制命令放在for循环之外

它完美地完成了第一页。 在下一次点击时,我得到一个错误400.任何协助生产这些工作表和重命名他们将n

我想在每次点击一个button时生成一个表单,并命名为1,2 ..等等。

那么根本不要使用循环。 只需在button上单击一张新的工作表,并将工作表命名为正确的编号(1,2,3等)。 所以改变你的sub:

我想我明白你需要做什么。 你的问题是因为你不能在没有声明全局variables的情况下循环。

为了得到我想要的工作 – 首先你需要声明一个全局variables – 就在模块的顶部:

在这种情况下iter只是我的简写迭代 – 你可以任意调用它。

这使得您的代码更容易,因为您不需要物理循环。

这个变化从0到1有史以来 – 然后将计数添加新的表,直到它达到20(请记住这不会用于重新使用这些名称)

我要回帖

更多关于 如何将工作表重命名 的文章

 

随机推荐