使用 JET 驱动程序表引用 Excel 工作表时使用下划线重复

Question

我正在使用 JET 数据库驱动程序引用一份 Excel 文档，该文档一直工作正常，直到有一天应用程序失败。经过进一步调查，我注意到选项卡在某些情况下是重复的（实际上是所有选项卡） - 即 Tab1$ 和 Tab1$_。我研究过这个问题，发现这是由用户应用过滤器引起的。现在过滤器已被删除，没有特殊格式、冻结窗格或打印格式，但我仍然复制了这些选项卡。通常我会围绕这个编写代码，但由于我们处于代码冻结状态，我需要提出一个基于 Excel 的解决方案。我想摆脱那些疯狂的下划线标签名称/崇敬。如有必要，我可能可以运行一个程序来清理文件，然后将其发送回用户，但我想首先探索 Excel 选项。想法？我有 Excel 2010，也可以访问任何其他版本。

Answer 1

下划线“sheet”是命名范围。你可以运行VBA吗？如果是这样：

Dim defName As Name
''Either
With ThisWorkbook ''Entire workbook
  For Each defName In .Names
    MsgBox defName.Name
    defName.Delete
  Next
End With
''Or
With Sheets("Sheet1") ''Scoped to sheet only
  For Each defName In .Names
    MsgBox defName.Name
    defName.Delete
  Next
End With