自动更新总表数据到打开的分表

13782671637

lsc900707 发表于 2018-8-23 08:47
Sub 更新()
    Set wk = ThisWorkbook
    r1 = [c2]: r2 = [h2].Value

老师：其它都很好！最后一个问题是：如果点击《总表》的【更新】按钮时，怎样才能不自动关闭已经打开的，《三同》、《组三》、《组六》某一工作簿？例如：我同时打开了《总表》和《组三》两个工作簿，怎样才能在《总表》点击【更新】按钮后，让《组三》仍然保持打开状态。

lsc900707

13782671637 发表于 2018-8-23 09:10
老师：其它都很好！最后一个问题是：如果点击《总表》的【更新】按钮时，怎样才能不自动关闭已经打开的， ...

要么都关闭，要么都不关闭，自己手动关闭！

13782671637

lsc900707 发表于 2018-8-23 09:21
要么都关闭，要么都不关闭，自己手动关闭！

比如：我同时打开了《总表》和《组三》两个工作簿，怎样才能在《总表》点击【更新】按钮后，让《组三》仍然保持打开状态。

9楼的代码是在《总表》点击【更新】按钮后，就会自动关闭已打开的分表。但我需要的是不要关闭已打开的分表。

13782671637

lsc900707 发表于 2018-8-23 09:21
要么都关闭，要么都不关闭，自己手动关闭！

请老师修改代码，更新时，不关闭 所有打开的工作簿

13782671637

请老师修改代码，更新数据时，不会关闭 所有打开的工作簿

13782671637

lsc900707 发表于 2018-8-23 09:21
要么都关闭，要么都不关闭，自己手动关闭！

老师：如果把【河南快三】里的四个工作簿同时打开，在《总表》的I列添加新数据后，点击【更新】按钮运算结束后，为什么每次都是只保留《总表》和《三同》工作簿处于打开状态、而总是自动关闭《组三》和《组六》两个工作簿？

lsc900707

13782671637 发表于 2018-8-23 09:48
请老师修改代码，更新数据时，不会关闭 所有打开的工作簿

   注释掉这一句就好： wb.Close True

13782671637

lsc900707 发表于 2018-8-23 10:10
注释掉这一句就好： wb.Close True

老师：注释掉  wb.Close True 后，虽然不再自动关闭已打开的工作簿了，却也不能再更新最新输入的数据了！还有没有其他方法？

13782671637

lsc900707 发表于 2018-8-23 10:10
注释掉这一句就好： wb.Close True

老师：注释掉  wb.Close True 后，虽然不再自动关闭已打开的工作簿了，却也不能再更新最新输入的数据了！还有没有其他方法？

13782671637

lsc900707 发表于 2018-8-23 08:49
如果点更新，则三个分工作簿的数据都会一起更新，不是想更新哪个更新哪个！

版主老师：下载了10楼附件，打开《总表》，点击【更新】按钮，运行正常。但把代码复制粘贴到实际文件夹里的《总表》后，点击按钮时，出现下列问题，是什么原因造成的？

实际工作簿与1楼附件【河南快三】除了C2的指定最大行号不同外，其它格式都一样，为什么无法运行？实际工作簿十几MB，文件太太，无法上传。能否告知您的QQ？我的QQ是1336602627