如何删除 Excel.Name 对象？

Question

我在 Workbook.Names 集合下有一堆 Excel.Name 对象，其中包含无效引用。换句话说，当我评估 Excel.Name.RefersTo 属性时，我得到一个以“=#REF ...”开头的值。我尝试运行以下代码，但删除名称似乎没有效果：

var ranges = myWorkBook.Names;
for (int i = 1; i <= ranges.Count; i++)
{
    var currentName = ranges.Item(i, Type.Missing, Type.Missing);
    var refersTo = currentName.RefersTo.ToString();
    if (refersTo.Contains("REF!"))
    {
        currentName.Delete();
    }
}

谁能建议我在这里做错了什么？或者，也许我错过了一步？

Answer 1

使用名称删除：

workbook.Names.Item(rangeName, Type.Missing, Type.Missing).Delete();

（在 C# 中）。

Answer 2

试试Workbook.Names[i].Delete()。您不能使用currentName.Delete。 （根据记忆，我会尝试找到我的代码来执行此操作。）

Answer 3

我遇到的问题是，当您从活动工作簿中删除一堆名称时，名称集合的索引会立即更新。这可能会导致坏索引/索引超出范围异常。

如果您想确保删除所有可用的名称，请使用以下代码：

public void finalize()
    {
        Microsoft.Office.Interop.Excel.Workbook myWorkbook = Globals.ThisAddIn.Application.ActiveWorkbook;


        var ranges = myWorkbook.Names;
        int leftoveritems;
        leftoveritems = ranges.Count;

        while (leftoveritems > 0)
        {
            int i = 1;
            try
            {
                while (i <= leftoveritems)
                {
                    myWorkbook.Names.Item(i).Delete();
                    //System.Windows.Forms.MessageBox.Show(i + " deleted.");
                    i++;
                }
            }
            catch (Exception ex)
            {
                //System.Windows.Forms.MessageBox.Show(i + " failed " + ex.Message);
            }

            ranges = myWorkbook.Names;
            leftoveritems = ranges.Count;
        }
    }

Answer 4

AMissico 引导我朝着正确的方向前进。 currentName.Delete() 绝对不行。但是 VSTO 2005 SE 下不支持 Workbook.Names[i].Delete，所以我又挖了一些，发现 Workbook.Names.Item(i, Type.Missing, Type.Missing) 成功了。

这是一个有效的代码示例：

var ranges = myWorkBook.Names;

int i = 1;
while (i <= ranges.Count)
{
    var currentName = ranges.Item(i, Type.Missing, Type.Missing);
    var refersTo = currentName.RefersTo.ToString();
    if (refersTo.Contains("REF!"))
    {
        ranges.Item(i, Type.Missing, Type.Missing).Delete();
    }
    else
    {
        i++;
    }
}

Answer 5

我只是将它设置为 VBA 函数，然后从 C# 中调用它：

VBA（如果您只想删除引用错误命名范围，可以取消注释一行）：

Sub DeleteNamedRanges()
   Dim nm As Object
   Dim mystr As String

   For Each nm In ThisWorkbook.Names
      On Error Resume Next
      'If InStr(1, nm.RefersTo, "#REF!") Then
      nm.Delete
      On Error GoTo 0
   Next
End Sub

C#：

XlApp.Application.Run($"'{fileName}'!{yourWorksheet.CodeName}.DeleteNamedRanges");

关于 C# 的注意事项，就我而言，我将该 VBA 放入特定工作表的代码中，因为我将该工作表复制到其他工作簿中，并且我希望它可以在这些工作簿中访问，因此我必须调用完全限定路径VBA 方法。如果您不需要类似的东西，只需将 VBA 代码放入 ThisWorkbook 或模块并更直接地调用它会简单得多。