次の方法で共有

OfficeDataSourceObject.SetSortOrder メソッド (Office)

  • [アーティクル]

差し込み印刷データの並べ替え順序を設定します。

構文

式。SetSortOrder (SortField1, SortAscending1, SortField2, SortAscending2, SortField3, SortAscending3)

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

パラメーター

名前 必須 / オプション データ型 説明
SortField1 必須 String 差し込み印刷のデータを並べ替える最初のフィールドを指定します。
SortAscending1 省略可能 ブール型 (Boolean) 場合は true。 SortField1; で昇順の並べ替えを実行する (既定値) False 降順に実行する並べ替えします。
SortField2 省略可能 String 差し込み印刷データの並べ替えを行う 2 番目のフィールドを指定します。 既定値は空の文字列です。
SortAscending2 省略可能 ブール型 (Boolean) 場合は true。 SortField2; で昇順の並べ替えを実行する (既定値) False 降順に実行する並べ替えします。
SortField3 省略可能 String 差し込み印刷データの並べ替えを行う 3 番目のフィールドを指定します。 既定値は空の文字列です。
SortAscending3 省略可能 ブール型 (Boolean) 場合は true。 SortField3; で昇順の並べ替えを実行する (既定値) False 降順に実行する並べ替えします。

例

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

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

関連項目

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

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