ApplicationFactory.GetVstoObject 方法 (ListObject)

發行項
08/12/2011

傳回 Microsoft.Office.Tools.Excel.ListObject，用於擴充指定之原生清單物件的功能。

命名空間： Microsoft.Office.Tools.Excel
組件： Microsoft.Office.Tools.Excel (在 Microsoft.Office.Tools.Excel.dll 中)

語法

'宣告
Function GetVstoObject ( _
    listObject As ListObject _
) As ListObject

ListObject GetVstoObject(
    ListObject listObject
)

參數

listObject
型別：Microsoft.Office.Interop.Excel.ListObject
要擷取其擴充物件的原生清單物件。

傳回值

型別：Microsoft.Office.Tools.Excel.ListObject
可擴充原生清單物件功能的物件。

備註

在應用程式層級增益集 (Add-In) 內呼叫這個方法，即可自訂任何在 Excel 工作表中列出的物件。如果之前沒有產生任何 Microsoft.Office.Tools.Excel.ListObject 物件，這個方法會產生此一新物件。對這個方法的後續呼叫會傳回現有 Microsoft.Office.Tools.Excel.ListObject 物件的快取執行個體 (Instance)。如需詳細資訊，請參閱在應用程式層級增益集的執行階段中擴充 Word 文件和 Excel 活頁簿。

範例

下列程式碼範例會建立 Microsoft.Office.Tools.Excel.ListObject 主項目。若要使用這個程式碼，請在以 .NET Framework 4 為目標之 Excel 增益集專案的 ThisAddIn 類別中執行該程式碼。

Dim mySheet As Excel.Worksheet = Me.Application.ActiveSheet
If mySheet.ListObjects.Count > 0 Then
    Dim vstoListObject As ListObject = _
        Globals.Factory.GetVstoObject(mySheet.ListObjects(1))

    vstoListObject.SetDataBinding(ds, "Product", "Name")
End If

Excel.Worksheet mySheet = (Excel.Worksheet)
    this.Application.Worksheets["Sheet1"];
if (mySheet.ListObjects.Count > 0)
{
    ListObject vstoListObject =
        Globals.Factory.GetVstoObject(mySheet.ListObjects[1]);

    vstoListObject.SetDataBinding(ds, "Product", "Name");
}