[ツリー表示へ] [ワード検索] [Home]
タイトル ： Re: RECORDCOUNTについて 投稿日 ： 2014/04/17(Thu) 15:11 投稿者 ： YK
| > いつもお世話になっております。 > 相変わらず初心者の小村です。 > 今回、VB6でエクセルのシートからレコード件数を取得しようと > 色々と閲覧しながら作ってみたのですが、正しい数を取得することが > 出来ません。ちなみに、エクセルのシートには、最大行数（65536行）と > Ｋ列まですべてにおいて罫線が書かれていて、その中にデータも記入 > されています。（エクセルは２０１０、ＶＢ６．０、Windows7） > どうしたら、正しいレコード件数を取得出来るのでしょうか？ こんにちは。 これはエクセルの問題です。 試しに下記コードを追加してみて下さい。 Debug.Print "件数="; rs.RecordCount 'Stop を外す rs.Close DB.Close Set xlApp = New Excel.Application xlApp.Visible = True Set xlBook = xlApp.Workbooks.Open(xlFileName) Debug.Print xlBook.Worksheets(Left(xlSheetName, Len(xlSheetName) - 1)).UsedRange.Rows.Count End Sub 件数と同じ数値が表示されると思いますが。又、計算だけでなく使用済み（空白）の行もカウント されることがあります。 該当シートをシートコピー（新規エクセルに値のみで）してそのエクセルを利用する なんて方法があります。 |
をクリックするとツリー全体を一括表示します） - RECORDCOUNTについて - 小村 14/04/17-12:25No.15887