タイトル : Re: RECORDCOUNTについて 投稿日 : 2014/04/17(Thu) 15:11 投稿者 : YK
> いつもお世話になっております。 > 相変わらず初心者の小村です。 > 今回、VB6でエクセルのシートからレコード件数を取得しようと > 色々と閲覧しながら作ってみたのですが、正しい数を取得することが > 出来ません。ちなみに、エクセルのシートには、最大行数(65536行)と > K列まですべてにおいて罫線が書かれていて、その中にデータも記入 > されています。(エクセルは2010、VB6.0、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 件数と同じ数値が表示されると思いますが。又、計算だけでなく使用済み(空白)の行もカウント されることがあります。 該当シートをシートコピー(新規エクセルに値のみで)してそのエクセルを利用する なんて方法があります。 |