VB6.0用掲示板の過去のログ(No.1)−VBレスキュー(花ちゃん)
[記事リスト] [新規投稿] [新着記事] [ワード検索] [過去ログ] [管理用]

投稿日: 2002/08/29(Thu) 13:41
投稿者パパイヤ
Eメール
URL
タイトルVBとExcelについて

初めまして m(_ _)m
一つどうしてもわからない事があって投稿させてもらいました。
あまり使わないでしょうが、Excelについてです。
Windows2000上でVB6(SP5)とExcel ver9.0との連動なのですが、
Excel内のデータをリストボックスに表示させようと試みてるのですが、
「実行時エラー'3170': インストール可能なISAMドライバが見つかりませんでした。」と
出てきてしまいます。
同じような内容のコードでデータベースをAccessやOracleなどにしてやってみると
ちゃんと動くのですがどうしてもExcelでは出来ないのです。
Excelのバージョン指定を「8.0」にすると何故かアクセスでき機能します。
このエラーの理由と解決法を知りたいです。
どなたかわかる方がいらっしゃったら是非教えてください。お願いします。
ちなみにコードは以下のようになっております。 m(_ _)m


Private Sub Form_Load()
    Dim Db as DAO.Database
    Dim Rs as DAO.Recordset
    Dim strConnect as String
    Dim intRecCount as Integer
    Dim i As Integer

    strConnect = "Excel 9.0;" & "DATABASE=C:\Test\A.xls"

    Set Db = OpenDatabase("C:\Test\A.xls", False, False, strConnect)
    Set Rs = Db.OpenRecordset("Test1" & "$", dbOpenTable)

    intRecCount = Rs.RecordCount
    For i = 1 To intRecCount
        List1.AddItem (Rs.Fields("F1") & Rs.Fields("F2"))
        Rs.MoveNext
    Next
    
    Rs.Close
    Db.Close
    
    Set Rs = Nothing
    Set Db = Nothing

End Sub


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

- 返信フォーム (この記事に返信する場合は下記フォームから投稿して下さい)

- Web Forum -