OfficeDataSourceObject オブジェクト (Office)

差し込み印刷処理の差し込み印刷データ ソースを表します。

注釈

OfficeDataSourceObject オブジェクトを操作するには、変数を OfficeDataSourceObject オブジェクトとして宣言します。 その後、このオブジェクトに関連するプロパティやメソッドを操作します。 SetSortOrder メソッドを使用して、データ ソース内のレコードを並べ替える方法を指定します。

例

次の例では、データ ソースを最初に郵便番号に従って降順で並べ替え、次に姓と名を昇順で並べ替えます。

Sub SetDataSortOrder() 
 Dim appOffice As OfficeDataSourceObject 
 
 Set appOffice = Application.OfficeDataSourceObject 
 appOffice.Open bstrConnect:="DRIVER=SQL Server;SERVER=ServerName;" & _ 
 "UID=user;PWD=;DATABASE=Northwind", bstrTable:="Employees" 
 
 appOffice.SetSortOrder SortField1:="ZipCode", _ 
 SortAscending1:=False, SortField2:="LastName", _ 
 SortField3:="FirstName" 
End Sub

データ ソースクエリ条件を取得または設定するには、Column、Compare、CompareTo、および Conjunction の各プロパティを使用します。 次の例では、既存のフィルターを変更して、"WA" と等しい [リージョン ] フィールドを持たないすべてのレコードを差し込み印刷から削除します。

Sub SetQueryCriterion() 
 Dim appOffice As Office.OfficeDataSourceObject 
 Dim intItem As Integer 
 
 appOffice.Open bstrConnect:="DRIVER=SQL Server;SERVER=ServerName;" & _ 
 "UID=user;PWD=;DATABASE=Northwind", bstrTable:="Employees" 
 
 With appOffice.Filters 
 For intItem = 1 To .Count 
 With .Item(intItem) 
 If .Column = "Region" Then 
 .Comparison = msoFilterComparisonNotEqual 
 .CompareTo = "WA" 
 If .Conjunction = "Or" Then .Conjunction = "And" 
 End If 
 End With 
 Next intItem 
 End With 
End Sub

関連項目

• OfficeDataSourceObject オブジェクト メンバー
• オブジェクト モデル リファレンス

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

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