ApplicationFactory.HasVstoObject 方法 (ListObject)

项目
08/12/2011

返回一个值，该值指示指定的本机列表对象是否存在 Microsoft.Office.Tools.Excel.ListObject。

命名空间： Microsoft.Office.Tools.Excel
程序集： Microsoft.Office.Tools.Excel（在 Microsoft.Office.Tools.Excel.dll 中）

语法

声明
Function HasVstoObject ( _
    listObject As ListObject _
) As Boolean

bool HasVstoObject(
    ListObject listObject
)

参数

listObject
类型：Microsoft.Office.Interop.Excel.ListObject
要测试的本机 Excel 列表对象。

返回值

类型：System.Boolean
如果指定的 Microsoft.Office.Interop.Excel.ListObject 对象存在 Microsoft.Office.Tools.Excel.ListObject，则为 true；否则为 false。

示例

下面的代码示例检查工作表中的每个本机列表对象以确定列表对象是否有关联的宿主项。若要使用此代码，请从针对 .NET Framework 4 的 Excel 外接程序项目的 ThisAddIn 类中运行此代码。

Dim mySheet As Excel.Worksheet = Me.Application.ActiveSheet
If mySheet.ListObjects.Count > 0 Then
    For Each list As Excel.ListObject In mySheet.ListObjects
        If Globals.Factory.HasVstoObject(list) = True Then
            System.Windows.Forms.MessageBox.Show( _
                "The VSTO properties of list objects are not " _
                + "persisted when you save and close this workbook.", _
                "VSTO ListObject", _
                System.Windows.Forms.MessageBoxButtons.OK, _
                System.Windows.Forms.MessageBoxIcon.Warning)
            Exit For
        End If
    Next
End If

Excel.Worksheet mySheet = (Excel.Worksheet)
    this.Application.Worksheets["Sheet1"];
if (mySheet.ListObjects.Count > 0)
{
    foreach (Excel.ListObject list in mySheet.ListObjects)
    {
        if (Globals.Factory.HasVstoObject(list) == true)
        {
            System.Windows.Forms.MessageBox.Show(
                "The VSTO properties of list objects are not "
                + "persisted when you save and close this workbook.",
                "VSTO ListObject",
                System.Windows.Forms.MessageBoxButtons.OK,
                System.Windows.Forms.MessageBoxIcon.Warning);
            break;
        }
    }
}