[リストへもどる]
一括表示
投稿時間：2003/09/19(Fri) 07:20
投稿者名：kara
Ｅメール：
ＵＲＬ　：
タイトル：MSFlexGridがうまく動かない
おはようございます。
お世話になります。


サンプルを試しました。

ExcelファイルをMSFlexGridに表示
で、Set RS = DB.OpenRecordset("Sheet1$", dbOpenTable）の部分で
エラーが起きます？（型が一致しません）
RS=NOTHINGとでます。



Excelファイルをテキストボックスに表示

Set RS = DB.OpenRecordset(xlSheetName)の部分で
エラーが起きます？（型が一致しません）
RS=NOTHINGとでます。

よく分かりません。
ご指示下さい。
よろしくお願いします。

投稿時間：2003/09/19(Fri) 07:24
投稿者名：kara
Ｅメール：
ＵＲＬ　：
タイトル：Re: MSFlexGridがうまく動かない
追伸

windowsxp
vb6.0 sp5
EXCEL97

です。
よろしくお願いします。

投稿時間：2003/09/19(Fri) 10:51
投稿者名：花ちゃん
Ｅメール：
ＵＲＬ　：
タイトル：Re: MSFlexGridがうまく動かない
> で、Set RS = DB.OpenRecordset("Sheet1$", dbOpenTable）の部分で

色々試して見ましたが、ご指摘のようなエラーメッセージは出ませんね！
只、Excel97は持っていないので？？ですが
それとDAOは何を使っておられますか？


どこかコードを変更されたのでしょうか？
一度違うExcelファイルでここのコードをどこも変更せずに実行してどうなるか
試して頂けませんか？

投稿時間：2003/09/19(Fri) 11:47
投稿者名：花ちゃん
Ｅメール：
ＵＲＬ　：
タイトル：Re^2: MSFlexGridが（追加）
ひょっとしてADOにも参照設定がされていて、優先順位がDAOより上に
なっているとか？
その場合、DAOの方を優先順位を上に設定してみて下さい。
又は、下記のように宣言して下さい。

    Dim DB       As DAO.Database
    Dim RS       As DAO.Recordset

投稿時間：2003/09/19(Fri) 13:17
投稿者名：kara
Ｅメール：
ＵＲＬ　：
タイトル：解決しました。
ありがとうございます。こんにちは
お世話になっております。

うまく行きました。

DAO3.6 Object Libray
dao360.dllです。

'Private rs As ADODB.Recordset
'Private cmd As ADODB.Command
を消してもうまく行かず。



Dim DB          As DAO.Database
Dim rs          As DAO.Recordset

にしましたところ動作しました
ありがとうございました。