请问各位大侠，如何用VBA跨表复制指定的新添加内容

ykcbf1100 · 发表于 2023-1-13 12:02

cdhilite 发表于 2023-1-13 10:42
老师好！如何将1工作薄中的99工作表中的序号、姓名、班级、备注复制到5文件夹内2工作薄的99工作表。谢谢 ...

字典+数组

cdhilite · 发表于 2023-1-13 14:24

ykcbf1100 发表于 2023-1-13 12:02
字典+数组

老师好！如果复制按钮在2工作薄该怎么改代码呢？

ykcbf1100 · 发表于 2023-1-13 15:03

cdhilite 发表于 2023-1-13 14:24
老师好！如果复制按钮在2工作薄该怎么改代码呢？

这样的话，主文件是2.xlsm,数据文件是1.xlsx

代码还是不一样的。

cdhilite · 发表于 2023-1-13 15:34

本帖最后由 cdhilite 于 2023-1-14 14:20 编辑

ykcbf1100 发表于 2023-1-13 15:03
这样的话，主文件是2.xlsm,数据文件是1.xlsx

代码还是不一样的。

老师我的数据文件在D：\重要文件夹\1.xlsx内，那么p = Left(p, InStrRev(p, "\")) '//当前目录的上级目录这句怎么改呢？谢谢~

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

[求助] 请问各位大侠，如何用VBA跨表复制指定的新添加内容