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
関連項目
サポートとフィードバック
Office VBA またはこの説明書に関するご質問やフィードバックがありますか? サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。
フィードバック
https://aka.ms/ContentUserFeedback」を参照してください。
以下は間もなく提供いたします。2024 年を通じて、コンテンツのフィードバック メカニズムとして GitHub の issue を段階的に廃止し、新しいフィードバック システムに置き換えます。 詳細については、「フィードバックの送信と表示