投稿日 | : 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