执行ws.ShowAllData后无法进行PasteSpecial？

taijun_2008 · 发表于 2024-5-22 00:38

我在PasteSpecial方法前面插入了一个ws.ShowAllData操作，用来清除工作表中的筛选状态。但是在ws.ShowAllData执行后，Application.CutCopyMode变为了0，后面的PasteSpecial也就无效了。但是我手动进行筛选、清除筛选的操作后，都不会影响复制状态（即被复制的范围仍有闪动的虚线框）。请问高手如何解决？

另外，我的这页ws中有多个智能表，使用ws.FilterMode判断是否存在筛选时似乎只会检查第一个智能表，其他智能表即使处于筛选状态ws.FilterMode仍然为False，请问高手应怎么改？

谢谢。

taller · 发表于 2024-5-22 06:41

ykcbf1100 · 发表于 2024-5-22 08:26

ws.ShowAllData操作放到copy操作的前面。如果是多个表，那表循环一下即可。
没有附件只能这样说下了。

taijun_2008 · 发表于 2024-5-22 10:45

ykcbf1100 发表于 2024-5-22 08:26
ws.ShowAllData操作放到copy操作的前面。如果是多个表，那表循环一下即可。
没有附件只能这样说下了。

copy是手动操作的，有解吗

taijun_2008 · 发表于 2024-5-22 10:49

taller 发表于 2024-5-22 06:41

有没有不用遍历的方法，我感觉加了遍历会又慢又卡。
ws.FilterMode看语法应该是对整页ws起效，为啥不行呢

taller · 发表于 2024-5-22 11:08

taijun_2008 发表于 2024-5-22 10:49
有没有不用遍历的方法，我感觉加了遍历会又慢又卡。
ws.FilterMode看语法应该是对整页ws起效，为啥不行 ...

你需要处理哪个表格ListObject，就查看哪个表属性，无需遍历

不需要闻声色变，遍历对象通常非常快

taijun_2008 · 发表于 2024-5-22 18:48

taller 发表于 2024-5-22 11:08
你需要处理哪个表格ListObject，就查看哪个表属性，无需遍历

不需要闻声色变，遍历对象通常非常快

那如何解决后续的粘贴问题呢？

taller · 发表于 2024-5-22 22:29

拷贝和粘贴之间不要有任何其他代码操作，相关操作移到拷贝之前，或者粘贴之后

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

[求助] 执行ws.ShowAllData后无法进行PasteSpecial？