Excel VSTO C＃-创建ListObject的VSTO副本会破坏重命名

如何解决Excel VSTO C＃-创建ListObject的VSTO副本会破坏重命名

我正在使用C＃编写Excel的VSTO外接程序，需要将元数据绑定到工作表中创建的表，这些表不能向用户公开或在工作表中重复表时不能复制。为此，我正在使用ListObject's Tag property，该方法效果很好，似乎适用于此用例。为了设置Tag属性，我创建了ListObject的VSTO对象，因为该属性在互操作对象中不可用：

foreach (Microsoft.Office.Interop.Excel.Worksheet worksheet in Globals.ThisAddIn.Application.ActiveWorkbook.Worksheets)
{
    foreach (Microsoft.Office.Interop.Excel.ListObject table in worksheet.ListObjects)
    {
        Microsoft.Office.Tools.Excel.ListObject vstoTable = Globals.Factory.GetVstoObject(table);
        vstoTable.Tag = new Tag { Identifier = 123 };
    }
}

但是，一旦为ListObject创建VSTO对象，就无法再更改表的名称。我仍然可以在表选项UI中对其进行编辑，但是保存工作簿将自动将名称恢复为创建VSTO对象时的名称。我试图将VSTO对象无济于事。即使我未设置Tag，问题仍然存在，仅创建VSTO对象似乎足以触发此问题。有趣的是，我还在为工作表创建VSTO对象副本并设置其Tag属性，但是即使在创建对象并设置标签之后，我仍然可以重命名它们。

为验证我的其他代码均不影响此操作，我仅使用功能区按钮上的上述代码片段创建了一个新的外接程序项目，并且发生了相同的问题。我还尝试使用互操作性中提供的其他几个属性来避免创建VSTO对象，但是它们要么对用户公开，要么与表一起复制，要么两者都复制。

很明显，我要么使用了对象不正确，要么这是Excel中的问题。有人知道我如何设置Tag而不失去重命名表的能力，或者是否有其他方法可以将元数据附加到表上？

解决方法

您可能想尝试删除并重新创建列表对象，每次都使用您想要的名称，如此扩展方法所示。这在您的解决方案中可能不起作用，或者您可能必须修改参数以创建具有“新”名称的旧列表对象。每次重新创建列表对象时，我都会对其进行数据绑定，因此这适用于我的情况。

    /// <summary>
    /// Creates a VSTO list object by searching for a native list object by name
    /// If the list object is found it will cast it to a 
    /// VSTO list object and remove it from the worksheet
    /// Once removed (or not found) it will create a VSTO list object
    /// and add it to the worksheet
    /// </summary>
    /// <param name="worksheet"> The worksheet to add the list object to</param>
    /// <param name="name"> The name of the list object to re-create </param>
    /// <returns> The VSTO list object </returns>
    public static ExcelVSTO.ListObject RecreateVSTOListObject(this ExcelVSTO.Worksheet worksheet,string name)
    {
        Excel.ListObject listObject = Globals.ThisAddIn.GetListObjectByName(worksheet,name);

        if (listObject != null)
        {
            Microsoft.Office.Tools.Excel.ListObject vstoListObject = Globals.Factory.GetVstoObject(listObject);
            worksheet.Controls.Remove(name);
        }

        return worksheet.Controls.AddListObject(Globals.ThisAddIn.Application.Selection,name);
    }