ListObjects.Add メソッド (Excel)

新しいリスト オブジェクトを作成します。

構文

Add (SourceTypeSourceLinkSourceXlListObjectHasHeadersDestinationTableStyleName)

ListObjects オブジェクトを表す変数。

パラメーター

名前 必須 / オプション データ型 説明
SourceType 省略可能 XlListObjectSourceType クエリで使用されるソースの種類を指定します。
Source Optional バリアント型 SourceType = xlSrcRange の場合: データ ソースを表す Range オブジェクト。 省略した場合、 ソース は既定でリスト範囲検出コードによって返される範囲になります。

SourceType = xlSrcExternal の場合: 次の要素を含む、ソースへの接続を指定する String 値の配列。
  • 0 - SharePoint サイトの URL
  • 1 - ListName
  • 2 - ViewGUID
SourceType = xlSrcQuery の場合: ODBC または OLEDB 接続文字列を受け入れます (これは xlSrcExternal でも機能します)。

SourceType = xlSrcModel: WorkbookConnection オブジェクトを受け入れる場合 (例: TableObject を参照)。
LinkSource 省略可能 Boolean 外部データ ソースを ListObject オブジェクトにリンクするかどうかを指定します。 SourceTypexlSrcExternal の場合、既定値は True ですSourceTypexlSrcRange の場合は無効で、省略しないとエラーが返されます。
XlListObjectHasHeaders オプション バリアント型 インポートされるデータに列ラベルがあるかどうかを示す XlYesNoGuess クラスの定数。 ソースにヘッダーが含まれていない場合、Excel はヘッダーを自動的に生成します。 既定値: xlGuess。
宛先 省略可能 バリアント型 新しいリスト オブジェクトの左上隅の変換先として単一セル参照を指定する Range オブジェクト。 Range オブジェクトが複数のセルを参照する場合は、エラーが生成されます。

SourceTypexlSrcExternal に設定されている場合は、Destination 引数を指定する必要があります。 SourceTypexlSrcRange に設定されている場合、Destination 引数は無視されます。

変換先の範囲は、で指定された ListObjects コレクションを含むワークシート上にある必要があります。 新しい列は、新しいリストに合わせて Destination に挿入されます。 したがって、既存のデータは上書きされません。
TableStyleName 省略可能 String TableStyle の名前。たとえば、"TableStyleLight1" です。

戻り値

新しいリスト オブジェクトを表す ListObject オブジェクト。

注釈

リストに見出しがあり、セルの最初の行が文字列以外である場合、セルの最初の行は文字列に変換されます。 変換はセル内に表示されている文字列に基づいて実行されます。 たとえば、ロケールによって決まる日付型 ( Date ) の日付の値は、現在のシステム ロケールに応じて、リストへの変換結果が異なることがあります。 さらに、見出し行の 2 つのセル内に同じ文字列が表示されている場合、各列の見出しが一意になるよう、整数型 (Integer) の連番が添えられます。

次の例では、Microsoft SharePoint Foundation サイトのデータに基づいて新しい ListObject オブジェクトを既定の ListObjects コレクションに追加し、ブックの最初のワークシートのセル A1 にリストを配置します。

注:

次のコード例では、変数 strServerNamestrListGUIDで有効なサーバー名とリスト guid を置き換えると想定しています。 さらに、サーバー名の後に に "/_vti_bin" (strListName) 続ける必要があります。または、サンプルは機能しません。

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")) 

サポートとフィードバック

Office VBA またはこの説明書に関するご質問やフィードバックがありますか? サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。