サポート

My Esri サインイン

FAQ
スタンドアロンテーブルで選択された行を、プログラミングにより別のテーブルにエクスポートする方法

ナレッジ番号：5525 | 登録日：2023/07/27 | 更新日：2024/11/21

【概要】
ArcObjects を使用して、スタンドアロンテーブルで選択した行を、新規スタンドアロンテーブルにエクスポートする方法について解説します。

【手順】
下記のステップで行います。

ArcMap を起動します。
Visual Basic Editor を開きます（ArcMap の [ツール] > [マクロ] > [Visual Basic Editor]）。
プロジェクトエクスプローラウィンドウで、'Project' を展開し、ArcMap Objects > ThisDocument を選択します。右クリックして、[コードの表示] を選択します。

※ Project の ThisDocument コードモジュールは、現在のマップドキュメントにおいてのみ実行します。すべてのマップドキュメントにおいてコードを保存したい場合には、Normal.mxt の ThisDocument コードモジュールを開きます。
以下のコードをコードモジュールにコピー＆ペーストします。

Sub ExportSelectedRowsTable()

    ' アクティブなデータフレームのテーブルコレクションを取得します。
    ' TOC の最上位テーブルへの参照を作成します。
　 Dim pMxDoc As IMxDocument
    Set pMxDoc = Application.Document
    Dim pMap As IStandaloneTableCollection
    Set pMap = pMxDoc.FocusMap
    Dim pStdAloneTbl As IStandaloneTable
    Set pStdAloneTbl = pMap.StandaloneTable(0)

    ' テーブル名を取得し、それをデータセット名に渡します。
    Dim pTable As ITable
    Set pTable = pStdAloneTbl.Table
    Dim pDataset As IDataset
    Set pDataset = pTable
    Dim pInTableName As ITableName
    Set pInTableName = pDataset.FullName
    Dim pInDsName As IDatasetName
    Set pInDsName = pInTableName

    ' テーブルの選択セットを取得します。
    Dim pTableSel As ITableSelection
    Set pTableSel = pStdAloneTbl
    Dim pSelSet As ISelectionSet
    Set pSelSet = pTableSel.SelectionSet

    ' 出力テーブル名を新規作成し、データセット名に渡します。
    Dim pOutTableName As ITableName
    Set pOutTableName = New TableName
    Dim pOutDSName As IDatasetName
    Set pOutDSName = pOutTableName
    pOutDSName.Name = "TestExport.dbf"   ' 名前を定義します。

    ' 出力ワークスペースを指定し、それを出力データセット名に渡します。
    Dim pWorkspaceName As IWorkspaceName
    Set pWorkspaceName = New WorkspaceName
    pWorkspaceName.PathName = "c:\temp"
    pWorkspaceName.WorkspaceFactoryProgID = "esriCore.shapefileworkspacefactory.1"
    Set pOutDSName.WorkspaceName = pWorkspaceName

    ' テーブルをエクスポートします。
    Dim pExportOp As IExportOperation
    Set pExportOp = New ExportOperation
    pExportOp.ExportTable pInDsName, Nothing, pSelSet, pOutDSName, 0

End Sub
Visual Basic Editor を閉じます。
コードを実行します。
A. [ツール] > [マクロ] > [マクロ] をクリックし、[マクロ] ダイアログを表示します。
B. マクロを選択し、[実行] をクリックします。