tagCANDY CGI VBレスキュー(花ちゃん)の Visual Basic 6.0用 掲示板
VBレスキュー(花ちゃん)の Visual Basic 6.0用 掲示板
[ツリー表示へ]  [ワード検索]  [Home]

タイトル RECORDCOUNTについて
投稿日: 2014/04/17(Thu) 12:25
投稿者小村
いつもお世話になっております。
相変わらず初心者の小村です。
今回、VB6でエクセルのシートからレコード件数を取得しようと
色々と閲覧しながら作ってみたのですが、正しい数を取得することが
出来ません。ちなみに、エクセルのシートには、最大行数(65536行)と
K列まですべてにおいて罫線が書かれていて、その中にデータも記入
されています。(エクセルは2010、VB6.0、Windows7)
どうしたら、正しいレコード件数を取得出来るのでしょうか?

    Dim DB As DAO.Database
    Dim rs As DAO.Recordset
    Dim xlApp As Excel.Application
    Dim xlBook As Excel.Workbook
    Dim xlSheet As Excel.Worksheet
    Set xlApp = CreateObject("Excel.Application")
    xlApp.Visible = True                                            'Excelを表示
    xlFileName = "D:\BOOK.XLS"      'Excelファイル名
    xlSheetName = "Sheet1" & "$" 'Excelシート名
    Set DB = OpenDatabase(xlFileName, False, False, "Excel 8.0;HDR=NO;IMEX=1")
    Set rs = DB.OpenRecordset(xlSheetName)

    Debug.Print "件数="; rs.RecordCount: Stop

|-------|-------|--------|------|
| 項目1| 項目2 | 項目3 |項目4|
|-------|-------|--------|------|
| AAA   | 1111  |22222   |100   |
|-------|-------|--------|------|
| BBB   | 2222  |33333   |300   |
|-------|-------|--------|------|
|       |       |        |      |
|-------|-------|--------|------|
|       |       |        |      |
|-------|-------|--------|------|

上記のような罫線交じりのリストのデータを取得すると
なぜか732とか、わけのわからないレコード件数が取得されてしまう。
出来れば、上記のデータだと、レコード件数は2と表示して欲しい。
どうしたら、正しいレコード件数を取得できるのでしょうか?

- 関連一覧ツリー をクリックするとツリー全体を一括表示します)

古いスレッドにレスはつけられません。