ListObjects.Add-Methode (Excel)

  • Artikel

Erstellt ein neues Listenobjekt.

Syntax

Ausdruck. Add (SourceType, Source, LinkSource, XlListObjectHasHeaders, Destination, TableStyleName)

Ausdruck Eine Variable, die ein ListObjects-Objekt darstellt.

Parameter

Name Erforderlich/Optional Datentyp Beschreibung
SourceType Optional XlListObjectSourceType Gibt die Quellenart für die Abfrage an.
Source Optional Variant Wenn SourceType = xlSrcRange: Ein Range-Objekt , das die Datenquelle darstellt. Wenn diese Angabe nicht angegeben wird, wird als Quelle standardmäßig der Bereich verwendet, der vom Listenbereichserkennungscode zurückgegeben wird.

Wenn SourceType = xlSrcExternal: Ein Array von String-Werten , die eine Verbindung mit der Quelle angeben, die die folgenden Elemente enthält:
  • 0 – URL zur SharePoint-Website
  • 1 – ListName
  • 2 – ViewGUID
Wenn SourceType = xlSrcQuery: ODBC- oder OLEDB-Verbindungszeichenfolge akzeptiert (dies funktioniert auch mit xlSrcExternal).

Wenn SourceType = xlSrcModel: Akzeptiert ein WorkbookConnection-Objekt (siehe TableObject als Beispiel).
LinkSource Optional Boolescher Wert Zeigt an, ob eine externe Datenquelle mit dem Objekt ListObject verknüpft werden soll. Wenn SourceTypexlSrcExternal ist, ist der Standardwert True. Ungültig, wenn SourceTypexlSrcRange ist, und gibt einen Fehler zurück, wenn er nicht angegeben wird.
XlListObjectHasHeaders Optional Variant Eine XlYesNoGuess-Konstante , die angibt, ob die importierten Daten Spaltenbeschriftungen aufweisen. Wenn die Quelle keine Header enthält, generiert Excel automatisch Header. Standardwert: xlGuess.
Ziel Optional Variant Ein Range-Objekt, das einen einzelnen Zellbezug als das Ziel für die obere linke Ecke des neuen Listenobjekts angibt. Wenn das Range-Objekt auf mehr als eine Zelle verweist, wird ein Fehler generiert.

Das Argument Destination muss angegeben werden, wenn SourceType auf xlSrcExternal festgelegt ist. Das Argument Destination wird ignoriert, wenn SourceType auf xlSrcRange festgelegt ist.

Der Zielbereich muss sich auf dem Arbeitsblatt befinden, das die durch expression angegebene ListObjects-Auflistung enthält. Neue Spalten werden am Ziel eingefügt, damit sie in die neue Liste passen. Daher werden vorhandene Daten nicht überschrieben.
TableStyleName Optional String Der Name eines TableStyle; beispiel: "TableStyleLight1".

Rückgabewert

Ein ListObject-Objekt , das das neue Listenobjekt darstellt.

HinwBemerkungeneise

Wenn die Liste über Kopfzeilen verfügt, wird die erste Zellenzeile in Text umgewandelt, wenn sie nicht bereits auf Text festgelegt ist. Die Konvertierung basiert auf dem sichtbaren Text für die Zelle. Wenn ein Datumswert mit einem Date-Format vorliegt, dessen Gebietsschema sich ändert, hat die Konvertierung auf Grundlage des Gebietsschemas des aktuellen Systems zu einer Liste demzufolge möglicherweise unterschiedliche Ergebnisse zur Folge. Wenn sich darüber hinaus zwei Zellen in der Kopfzeile befinden, die denselben sichtbaren Text aufweisen, wird eine inkrementelle Ganzzahl angefügt, um jede Spaltenüberschrift eindeutig zu machen.

Beispiel

Im folgenden Beispiel wird ein neues ListObject-Objekt basierend auf Daten aus einer Microsoft SharePoint Foundation-Website zur Standardmäßigen ListObjects-Auflistung hinzugefügt und die Liste in Zelle A1 im ersten Arbeitsblatt der Arbeitsmappe platziert.

Hinweis

Im folgenden Codebeispiel wird davon ausgegangen, dass Sie einen gültigen Servernamen und die Listen-GUID in den Variablen strServerName und strListGUIDersetzen. Außerdem muss auf den Servernamen folgen "/_vti_bin" (strListName) , sonst funktioniert das Beispiel nicht.

Set objListObject = ActiveWorkbook.Worksheets(1).ListObjects.Add(SourceType:= xlSrcExternal, _ 
Source:= Array(strServerName, strListName, strListGUID), LinkSource:=True, _ 
XlListObjectHasHeaders:=xlGuess, Destination:=Range("A1")), 
TableStyleName:=xlGuess, Destination:=Range("A10"))

Support und Feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.