OfficeDataSourceObject.RowCount プロパティ (Office)

長 を指定したデータ ソース内のレコードの数を表すを取得します。 読み取り専用です。

構文

式。行数

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

例

次の使用例は、Region フィールドが空白のレコードをすべて削除する新しいフィルターを追加し、作業中の文書に適用します。

Sub OfficeFilters() 
 Dim appOffice As OfficeDataSourceObject 
 Dim appFilters As ODSOFilters 
 
 Set appOffice = Application.OfficeDataSourceObject 
 appOffice.Open bstrConnect:="DRIVER=SQL Server;SERVER=ServerName;" & _ 
 "UID=user;PWD=;DATABASE=Northwind", bstrTable:="Employees" 
 
 Set appFilters = appOffice.Filters 
 
 MsgBox appOffice.RowCount 
 
 appFilters.Add Column:="Region", Comparison:=msoFilterComparisonEqual, _ 
 Conjunction:=msoFilterConjunctionAnd, bstrCompareTo:="WA" 
 appOffice.ApplyFilter 
 
 MsgBox appOffice.RowCount 
 
End Sub

関連項目

• OfficeDataSourceObject オブジェクト メンバー

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

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