程序员经验分享-hwhale

Worksheet 类的 ShowAllData 方法失败

2023-11-24

我注意到当自动过滤器已打开时我的 VBA 脚本不起作用。知道这是为什么吗？

    wbk.Activate
    Set Criteria = Sheets("Sheet1").Cells(i, 1)

    Set rng = Sheets("Sheet1").Range(Cells(i, 2), Cells(i, 4))

    wb.Activate
    If ActiveSheet.AutoFilterMode Then ActiveSheet.ShowAllData 'remove autofilter, but it crashes on this line

    Selection.AutoFilter

    Range("$A$1:$BM$204").AutoFilter Field:=2, Criteria1:=Criteria.Value

    rng.Copy

    Range("$BC$2:$BE$204").SpecialCells(xlCellTypeVisible).PasteSpecial

非常感谢


如果启用，AutoFilterMode 将为 True，无论是否实际应用到特定列的过滤器。当这个情况发生时，ActiveSheet.ShowAllData仍然会运行，并抛出错误（因为没有实际的过滤）。

我遇到了同样的问题并让它与

If (ActiveSheet.AutoFilterMode And ActiveSheet.FilterMode) Or ActiveSheet.FilterMode Then
  ActiveSheet.ShowAllData
End If

当没有应用实际过滤器但打开了 AutoFilterMode 时，这似乎会阻止 ShowAllData 运行。

第二次捕获Or ActiveSheet.FilterMode应该捕获高级过滤器

本文内容由网友自发贡献，版权归原作者所有，本站不承担相应法律责任。如您发现有涉嫌抄袭侵权的内容，请联系:hwhale#tublm.com(使用前将#替换为@)

Excel

vba

autofilter

Worksheet 类的 ShowAllData 方法失败 的相关文章

  • 使用PHP从doc、xls文件中读取数据

    我想知道是否可以从 doc 和 xls 文件中读取数据并将 将内容读取到图像文件中 创建文档的页面样本 例如 我有一些文件希望我的客户购买 所以我需要自动创建小图像 例如我的文档样本 我们将不胜感激您的帮助 对于读取 xls 文件 我真的推

  • 如何使用vba复制Excel工作表中的动态范围

    我试图使宏中的范围是动态的 而不指定最后一行x Sheets SheetName Range A2 K1000 Copy在 1000 行中 我想将其更改为动态 因为有时我的数量会更少或更多 尝试这个 Sub Test Dim lRow as

  • 将 MS 转换为秒

    我发现这个公式可以用来将 MS 转换为秒 但它是为 Excel 2002 编写的 而我正在使用 2010 CONCATENATE TEXT INT B1 1000 86400 hh mm ss B1 INT B1 1000 1000 以下是

  • 读取上传的Excel文件而不保存它

    在这段代码中 我从用户那里获取上传的文件并将其保存在我的应用程序中的文件夹中 然后对此 Excel 文件进行 OleDbConnection 并读取数据 我的问题是 有人可以建议一种阅读此 Excel 文件的首选方法 但无需预先保存它 因为

  • 将 Excel 读取到从第 5 行开始并包括标题的 Python 数据框

    我有一个 Excel 工作簿 它在打开时运行一些 vba 刷新数据透视表并执行其他一些操作 然后我希望将数据透视表刷新的结果导入到 python 中的数据框中以进行进一步分析 import xlrd wb xlrd open workboo

  • 使用“Openxml writer”合并 Excel 中的单元格

    我想合并单元格是excel 通过使用 DOM 方法 我可以轻松做到这一点 但由于我的 Excel 文件太大 当我尝试获取工作表时 它会抛出内存不足异常 所以我必须使用SAX方法来读取excel文件 但我不知道如何用这种方法合并单元格 查了很

  • 在Excel VBA中将图像（jpg）转换为base64？

    我需要在 Excel 中转换图像 或通过VBA 转为base64 最后我将进行XML输出 我怎样才能做到这一点 我需要引用 DOM 吗 我一直在读书这个问题 https stackoverflow com questions 169907

  • 计算序列中的重复值

    如何使用Excel计算列中的重复数据 Example A B apple 1 apple 2 apple 3 ball 1 bat 1 dog 1 dog 2 gole 1 gole 2 gole 3 gole 4 我认为对于你的情况中的所

  • 索引行和列意外结果

    我试图理解以下行为 如果我有以下数据 A B a 1 b 2 c 3 如果我使用 INDEX A 1 B 3 它将正确显示整个范围 如果我使用 INDEX A 1 B 3 1 它将正确显示两列第一行的数据 如果我使用 INDEX A 1 B

  • 如何在缩进层次结构中找到父级？

    我目前有一张 Excel 工作表 其中包含缩进的项目层次结构 如下所示 每个项目都缩进 每个缩进四个空格 以显示它如何适应整体层次结构 我已经能够创建一个 级别 列 将缩进级别转换为数字 Item Level Parent P1 1 N A

  • Python在没有pandas的情况下解码excel表

    我正在尝试在 python 中读取 excel 文件而不使用pandas or xlrd 我一直在尝试将结果转换为bytes to utf 8没有任何成功 xls 文件中的数据 colA colB colC spc 1D0 20190705

  • 从Excel单元格中提取固定长度的数字

    一些类似名称的线程 但仍然无法解决我的问题 我需要从 Excel 字符串中提取固定长度的 NUMBER 值 在我的场景中为 8 位数字 为此目的提供了以下 Excel 公式 MID A1 FIND SUBSTITUTE SUBSTITUTE

  • 使用 Excel VBA 循环工作簿文件夹并将所有工作表导出为制表符分隔文本

    我拼凑了一个 Excel VBA 脚本 该脚本将打开的工作簿中的所有工作表写入单独的制表符分隔文件 这仍然是 宏 吗 我正在 Excel 真空中学习这一点 它一次只处理一本工作簿 效果很好 这里是 Sub exportSheetsToTex

  • 字符串在换行符处拆分

    我在 MS Access 表单上有一个文本框 用户将从 Excel 电子表格中复制一列数字到其中 我需要获取此输入并将其用作参数来构建查询 我的代码看起来像这样 Dim data as variant Dim input as String

  • python XlsxWriter 设置多个单元格周围的边框

    I need an easy way to set border around multiple cells like so 我发现的只是 1 个单元格的边框 并合并单元格 这不是我需要的 我期待类似的事情 worksheet range

  • DAO.DBEngine 类不再在使用 Windows 10 的 MS Access 2016 中注册

    客户端最近从 Windows 7 升级到 10 并从 Access 2013 迁移到 2016 包含在 Office 365 中 Excel 中的 VBA 宏现在会生成以下错误 运行时错误 2147221164 80040154 类未注册

  • 如何解锁和锁定 Excel 单元格以运行宏

    我有一个电子表格 有两个按钮 从数据库检索记录 另一个按钮用于将更改从 Excel 上传到数据库 从数据库检索记录的宏如下 现在 在检索记录后 我希望用户仅编辑某些列 此处为从一月到场景的列 以便用户在更新这些单元格后可以单击更新按钮将更改

  • 使用 EPplus 在 Excel 中添加下拉菜单

    我需要帮助 如何使用 Epplus 在 Excel 中添加下拉列表 无需验证 我只需要把它添加到我的模板中 下拉列表中的记录不是动态的 using ExcelPackage p new ExcelPackage ExcelWorksheet

  • 宏在第二张幻灯片上不起作用的 Powerpoint 进度

    我正在尝试创建一个宏 它将在 powerpoint 演示文稿中的幻灯片中运行 我本来可以工作 但现在停止工作了 我不知道为什么 运行幻灯片和动画的 vbscript 是 Private Sub PPTEvent SlideShowNextB

  • 使用java读取Excel工作表的单列

    我有一张 Excel 表格 我想编写一个方法 该方法将参数作为要读取的列号 并返回一个由该列中的所有数据组成的数组 然后将该列元素放置在 xml 工作表中 我怎样才能编写一个方法来做到这一点 使用 Apache POI 您可以在他们的使用页

随机推荐

  • 如何用另一个 JPanel 替换 JPanel

    我想用 JFrame 中的另一个 Jpanel 替换 Jpanel 我已经搜索并尝试了我的代码 但什么也没发生 这是我的代码 public class Frame extends JFrame private Container conta

  • HttpClient 和 PushStreamContent

    我将 PushStreamContent 与 REST API ASP NET Web API 结合使用 效果非常好 HttpClient 可以在服务器处理完整请求之前请求资源并获取 HTTP Response 服务器仍然写入推送流 作为

  • 在 Ruby 中查找多个正则表达式匹配的模式和位置

    这应该是一个简单的问题 但我找不到任何相关内容 给定 Ruby 中的正则表达式 对于每个匹配 我需要检索匹配的模式 1 2 但我还需要匹配的位置 我知道 运算符给我第一个匹配的位置 而string scan regex 给我所有匹配的模式

  • 当 scanf!=EOF 或 scanf==1 时？

    其他条件不变的情况下 格式良好的数据 良好的缓冲实践等等 是否有理由我更喜欢在返回时循环scanf是 1 而不是 EOF 我可能在某处读过这篇文章 或者其他什么 但我也可能有错 其他人怎么看 scanf返回成功转换的项目数 或错误时返回 E

  • 在 Android 中从一个活动移动到下一个活动

    我正在 Android 中开发一个具有登录屏幕的应用程序 现在我可以成功接收服务器的响应 成功响应后 它应该带我进入下一个活动或课程 在其中显示新的屏幕 活动 为了实现这个目标我应该做什么 在 Android 中 您可以使用 Intents

  • Linux 中的环境变量未使用 load_dotenv() 加载

    我正在尝试制作一个不和谐的机器人 当我尝试使用 load dotenv 加载 env 时 它不起作用 因为它说 Traceback most recent call last File home fanjin Documents Pytho

  • shell 中范围之间的随机数

    如何在 sh bin sh 而不是 bash 中生成 0 60 之间的随机数 这是卫星盒 没有 RANDOM变量和其他商品 cksum od od vAn N4 tu4 我想随机化 cron 作业时间 如果你有 tr head 和 dev

  • `PowerShell.Create()` 返回 null

    添加参考 PowerShellStandard Library 在默认情况下重现 net core项目 using System Management Automation using System Collections ObjectMo

  • 使用 Lion 上的 FSEvents 跟踪文件重命名/删除

    我正在尝试使用 FSEvents 来检测何时从特定文件夹添加 删除文件 目前 我围绕 FSEvents 实现了一个简单的包装器 它工作得很好 我得到了所有事件 但我现在遇到的问题是 当我在 Finder 中重命名文件时 我捕获了 2 个不同

  • 线程同步。为什么这个锁不足以同步线程[重复]

    这个问题在这里已经有答案了 可能的重复 线程同步 锁究竟如何使内存访问变得 正确 这个问题的灵感来自于这个 我们有以下测试课程 class Test private static object ms Lock new object priv

  • FXML 设置 TableView 列调整大小策略

    如何从 FXML 设置 TableView 的调整大小策略 我这样累了 但它不起作用

  • 使用 Homebrew 更新 OS X 上的 OpenSSL

    我使用的是 MacOS X 10 7 5 并且我需要更新的 OpenSSL 版本 因为握手失败 网上有很多教程 我尝试了以下方法 brew install openssl brew link openssl force 然而 它不起作用 o

  • mq_open() - 打开的文件太多

    我正在尝试编写一个客户端和服务器 它们将使用 POSIX 消息队列交换数据 我尝试通过查看在互联网上看到的示例和课程文档来做到这一点 但是 我陷入困境 当我运行它时 我收到 打开文件太多 错误 这是我的代码 Client int main

  • 将整数值范围映射到Python中的颜色

    我有从 0 到 10000 的整数 我想为每个整数映射一种颜色 然后根据整数值 我想检索与整数值对应的颜色的 RGB 等效值 基本上我想在两种或多种颜色之间有插值效果 例如如果颜色是绿色和红色 则绿色具有最小权重 0 红色具有最高权重 10

  • 使用 AJAX 通过 Flask-WTForms 将条目附加到 FieldList

    我使用 Flask WTForms 在 Flask 中制作了一个简单的表单 家长可以在其中注册自己和他的孩子 家长可以通过单击 添加孩子 按钮来注册任意数量的孩子 WTForms 通过使用 FieldList 功能使这变得非常容易实现 但是

  • LOAD DATA INFILE 轻松将 YYYYMMDD 转换为 YYYY-MM-DD？

    您好 我想导入一个 INFILE 但日期的形式为 AADR 20120403 31 43 31 43 31 4 31 4 1100 AAU 20120403 2 64 2 65 2 56 2 65 85700 AAVX 20120403 1

  • 将 mutate_at 有条件地应用于 R 中数据帧中的特定行

    我在 R 中有一个数据框 如下所示 a b c condition 1 4 2 acap 2 3 1 acap 2 4 3 acap 5 6 8 ncap 5 7 6 ncap 8 7 6 ncap 我正在尝试重新编码条件 ncap 的 a

  • C++：在二叉树中插入节点的指针与指针的指针

    我正在创建一个函数来在二叉树中插入一个元素 首先 我在 Visual Studio 2012 上执行了以下操作 void Insert Nodo root int x if root NULL Nodo n new Nodo n gt va

  • 使用 redux useDispatch 时 useEffect 缺少依赖项

    每当使用反应钩子安装我的组件时 我想获取我的类别useEffect而不是在每次重新渲染时 但我不断收到此警告React Hook useEffect has a missing dependency dispatch 这是我的代码 cons

  • Worksheet 类的 ShowAllData 方法失败

    我注意到当自动过滤器已打开时我的 VBA 脚本不起作用 知道这是为什么吗 wbk Activate Set Criteria Sheets Sheet1 Cells i 1 Set rng Sheets Sheet1 Range Cells

热门标签