次の方法で共有

ListObjects.Add メソッド (Excel)

  • [アーティクル]

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

構文

式。Add (SourceType、 Source、 LinkSource、 XlListObjectHasHeaders、 Destination、 TableStyleName)

式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 オブジェクトにリンクするかどうかを指定します。 SourceType が xlSrcExternal の場合、既定値は True です。 SourceType が xlSrcRange の場合は無効で、省略しないとエラーが返されます。
XlListObjectHasHeaders オプション バリアント型 インポートされるデータに列ラベルがあるかどうかを示す XlYesNoGuess クラスの定数。 ソースにヘッダーが含まれていない場合、Excel はヘッダーを自動的に生成します。 既定値: xlGuess。
宛先 省略可能 バリアント型 新しいリスト オブジェクトの左上隅の変換先として単一セル参照を指定する Range オブジェクト。 Range オブジェクトが複数のセルを参照する場合は、エラーが生成されます。

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

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

戻り値

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

注釈

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

例

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

注:

次のコード例では、変数 strServerName と strListGUIDで有効なサーバー名とリスト 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 のサポートおよびフィードバックを参照してください。