怎样将一个工作簿指定区域复制到另一个工作簿新生成的以日期命名的表格里

fatcat88888888

论坛的大神们，能否帮忙完成vba超级小白的一个小需求，万分感谢

1、能否点击基础数据簿的表里的按钮，将I306:AY877区域的数据以文本形式复制粘贴到数据汇总簿的第三个表格，即在公司数据后面生成新表格，表格名称以点击操作当天的日期，比如今天2020-05-28，能否以20200528的格式即YYYYMMDD的格式作为文件名，内容为复制的内容。
2、点击在数据汇总簿行业数据表里的按钮，将I基础数据簿中I306:AY877区域的数据以文本形式复制粘贴到数据汇总簿的第三个表格，即在公司数据后面生成新表格，表格名称以点击操作当天的日期，比如今天2020-05-28，能否以20200528的格式即YYYYMMDD的格式作为文件名，内容为复制的内容。
感恩老师

liulang0808

format(date,"YYYYMMDD") 设置楼主的日期格式
其他内容，楼主自己录制宏看下

fatcat88888888

liulang0808 发表于 2020-5-28 19:19
format(date,"YYYYMMDD") 设置楼主的日期格式
其他内容，楼主自己录制宏看下

老师，再帮我一次吧，最后一次

fatcat88888888

liulang0808 发表于 2020-5-28 19:19
format(date,"YYYYMMDD") 设置楼主的日期格式
其他内容，楼主自己录制宏看下

实习完回学校我一定好好学，拜托了

liulang0808

fatcat88888888 发表于 2020-5-28 19:39
实习完回学校我一定好好学，拜托了

楼主查询一下怎么录制宏，然后按照描述的思路录制一段看看先

fatcat88888888

liulang0808 发表于 2020-5-28 19:40
楼主查询一下怎么录制宏，然后按照描述的思路录制一段看看先

老师真的来不及了，下周就要交差，把文件全处理好给领导，江湖救急，以后一定好好学习，学成以后回来造福论坛的朋友

wp231957

fatcat88888888 发表于 2020-5-28 19:42
老师真的来不及了，下周就要交差，把文件全处理好给领导，江湖救急，以后一定好好学习，学成以后回来 ...

Sheets.Add(after:=Sheets(Sheets.Count)).Name = Format(Now(), "yyyymmdd")
这句代码 可以在末位插入 名字为yyyymmdd的表
至于里面的复制区域内容   没啥难点吧，你给的附件 里  啥数据都没有   没办法写代码

wp231957

fatcat88888888 发表于 2020-5-28 19:42
老师真的来不及了，下周就要交差，把文件全处理好给领导，江湖救急，以后一定好好学习，学成以后回来 ...

1. Sheets.Add(after:=Sheets(Sheets.Count)).Name = Format(Now(), "yyyymmdd")

复制代码

刚才发的帖子被审核了，这个就是新建表 了，复制区域数据 也没啥难度吧   关键你给的附件
里没有数据，所以没办法写代码

fatcat88888888

liulang0808 发表于 2020-5-28 19:40
楼主查询一下怎么录制宏，然后按照描述的思路录制一段看看先

老师再帮我一次吧，周末处理完数据，我好好把你做的目录和内容都看一遍

fatcat88888888

liulang0808 发表于 2020-5-28 19:19
format(date,"YYYYMMDD") 设置楼主的日期格式
其他内容，楼主自己录制宏看下

老师~~~~~~~~~~~~~~~~~