投稿日	： 2003/01/31(Fri) 16:03
投稿者	： 聖魔
Ｅメール	：
ＵＲＬ	：
タイトル	： Re^2: ISAMドライバ

ご返答ありがとうございます。
> > Set DB = OpenDatabase(xlFileName, False, False, "Excel 8.0;HDR=NO;")
>
> この部分の　Excel 8.0　を　Excel 9.0 や　Excel 10.0 にしていませんか？
ご返答ありがとうございます。
最初していたのですが8.0に変えてやってみてもやっぱりなりませんでした。
ずーっと調べていてやっと原因がわかりました！！
Ｊｅｔ　ＩＳＡＭドライバが使えなくなっていたみたいです。
Ｊｅｔ　ＩＩＳＡＭドライバ関連のファイルをインストールすることで解決したのですが、
今後は「このコレクションには項目がありません」というエラーが出てしまいました。
ソースは下記のとおりです(こちらのソースを見ながら作っていますご了承ください)
Dim DB As Database
Dim RS As Recordset
Dim xlFileName As String
Dim xlSheetName As String
Dim xlData As String
xlFileName = App.Path & "\test2.xls"
xlSheetName = "Sheet1" & "$"
Set DB = OpenDatabase(xlFileName, False, False, "Excel 8.0;HDR=NO;")
Set RS = DB.Recordsets(xlSheetName)
Do While Not RS.EOF
    xlData = xlData & RS.Fields(0) & vbCrLf
    RS.MoveNext
Loop
Text1.Text = xlData
RS.Close
DB.Close
Set RS = Nothing
Set DB = Nothing

Excelの中は
A1 = 11
A2 = 22
です。

やりたいことはExcelのシートを指定して、そのシート内のデータを全てVBのTextBoxに表示させたいのですが・・・

よろしくお願いします。

★ - ISAMドライバ - 聖魔 01/31-13:52No.2498
• Re: ISAMドライバ - 花ちゃん 01/31-15:13 No.2501
  • Re^2: ISAMドライバ - 聖魔 01/31-16:03 No.2504
    • Re^3: ISAMドライバ(これで解決しませんか) - 花ちゃん 01/31-17:20 No.2519
      • Re^4: ISAMドライバ - 聖魔 01/31-17:38 No.2523
• Re: ISAMドライバ - 魔界の仮面弁士 01/31-16:04 No.2505
  • Re^2: ISAMドライバ - 聖魔 01/31-16:10 No.2508