ADOでExcel接続時、Excelの全体を読込むには？ (ID:112099)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 VB6.0SP5 ADO2.8 Windows2000 ADOを使用しExcelファイルの編集を行っているのですが、 全ての行を取得してくれません。どうしてなのでしょうか？ 下記のコードで読込むと４１件しかRecordCountで表示されないのですが、 実際は９０件強あります。 dim CN as adodob.connection dim RS as adodob.connection Set CN = New ADODB.Connection CN.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Fname & ";" & _ "Extended Properties=Excel 8.0;Persist Security Info=False" CN.Open SQL = "SELECT * FROM [" & SheetName & "] " Set RS = New ADODB.Recordset RS.CursorLocation = adUseClient RS.Open SQL, CN1, adOpenKeyset, adLockBatchOptimistic, adCmdText debug.print rs.recordcount