タイトル : 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と表示して欲しい。 どうしたら、正しいレコード件数を取得できるのでしょうか? |