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;
        }
    }
}