共用方式為


ApplicationFactory.HasVstoObject 方法 (ListObject)

傳回值,這個值表示指定的原生清單物件是否有 Microsoft.Office.Tools.Excel.ListObject 存在。

命名空間:  Microsoft.Office.Tools.Excel
組件:   Microsoft.Office.Tools.Excel (在 Microsoft.Office.Tools.Excel.dll 中)
  Microsoft.Office.Tools.Excel.v4.0.Utilities (在 Microsoft.Office.Tools.Excel.v4.0.Utilities.dll 中)

語法

'宣告
Function HasVstoObject ( _
    listObject As ListObject _
) As Boolean
bool HasVstoObject(
    ListObject listObject
)

參數

傳回值

型別:System.Boolean
如果指定的 Microsoft.Office.Interop.Excel.ListObject 物件有 Microsoft.Office.Tools.Excel.ListObject 存在,則為 true,否則為 false。

範例

下列程式碼範例會檢查工作表中每個原生的清單物件,以判定清單物件是否有關聯的主項目。 若要使用這個程式碼,請在以 .NET Framework 4 或 .NET Framework 4.5 為目標之 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;
        }
    }
}

.NET Framework 安全性

請參閱

參考

ApplicationFactory 介面

HasVstoObject 多載

Microsoft.Office.Tools.Excel 命名空間