用Excel VBA实现数据一键追加到另一个文件

吴雨俊 · 发表于 2023-6-30 21:06

在一个名为“数据”的EXCEL表里将重要的信息收集成一个记录，需要创建一个快捷按钮，按一下，就可以将收集到的数据做为一个记录自动追加到另一个“数据汇总”的EXCEL的文件里有内容的下一行。请教大神们如何用VBA实现？谢谢老师。

吴雨俊 · 发表于 2023-6-30 21:10

模拟文件.rar (17.22 KB, 下载次数: 5)
在一个名为“数据”的EXCEL表里将重要的信息收集成一个记录，需要创建一个快捷按钮，按一下，就可以将收集到的数据做为一个记录自动追加到另一个“数据汇总”的EXCEL的文件里有内容的下一行。请教大神们如何用VBA实现？谢谢老师。

ykcbf1100 · 发表于 2023-6-30 21:54

本帖最后由 ykcbf1100 于 2023-6-30 22:01 编辑

已有记录的就提示“已存在”并退出，新记录就写入数据汇总工作簿。

lcluck2002 · 发表于 2023-6-30 22:05

伪代码：
在点击按按钮事件中
声明变量icnt 为整型
选择需要复制的记录区域并复制
打开数据汇总工作簿
激活正确的工作表
获得已使用区域最后一行的下一行并赋值给iCnt
在iCnt行的适当的列select
活动工作表.paste
关闭当前工作簿并保存
显示提示框提示当前记录复制完成。
如有必要，删除已复制过的记录，避免重复复制
事件完成

吴雨俊 · 发表于 2023-7-1 10:43

ykcbf1100 发表于 2023-6-30 21:54
已有记录的就提示“已存在”并退出，新记录就写入数据汇总工作簿。

感谢老师！我先试下。多谢多谢！

吴雨俊 · 发表于 2023-7-1 17:30

ykcbf1100 发表于 2023-6-30 21:54
已有记录的就提示“已存在”并退出，新记录就写入数据汇总工作簿。

感谢老师！我先试下。多谢多谢

吴雨俊 · 发表于 2023-7-1 17:32

lcluck2002 发表于 2023-6-30 22:05
伪代码：
在点击按按钮事件中
声明变量icnt 为整型

感谢老师！我先试下。多谢多谢！

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

[求助] 用Excel VBA实现数据一键追加到另一个文件

用Excel VBA实现数据一键追加到另一个文件

评分