ADODB.Connectionで共有フォルダ内のExcelファイルを複数端末から利用したい

Question

初めて投稿させていただきます。よろしくお願いいたします。

ネットワーク共有フォルダ内のExcelファイルを複数の端末から

同時（読み取り専用）で利用しようとして、下記のように

ADODB.Connectionを作成したのですが、２台目の端末から

ADODB.ConnectionのOpenでエラーになります。

    Set con = New ADODB.Connection

    con.Mode = adModeRead Or adModeShareDenyNone

    con.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _

        "Data Source=""" & C_ExcelFile & """;" & _

        "Extended Properties=""Excel 8.0;HDR=Yes;"";"

１台目を接続中に確認のため、２台目の端末から直接Ｅｘｃｅｌで

同ファイルを開こうとすると、ロック状態で、開けませんでした。

もしかすると、ネットワーク共有フォルダ内のExcelファイルを

ADODB.Connectionで同時利用することはできなのでしょうか。

また、同時利用するにはどのようにすればいいでしょうか。

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

Answer 1

正直なところ、ADODBはたまにしか使ったことがありませんし、ネットワーク上の共有フォルダで操作した経験はありませんので、ヒットした情報提供だけです。

[HOWTO] Visual Basic または VBA から ADO を Excel データで使用する

http://support.microsoft.com/kb/257819/ja

によると、ディフォールトは読み取り専用ですから、できるはずです。

が、もし、ロック状態で開けないとしたら、

 ReadOnly=True;

と明示してみたらいかがでしょうか？

Answer 2

y sakuda さん、石田さん、ありがとうございました。

解決できましたので、報告いたします。

なぜか分からないのですが、次のようにしたら、解決しました。

con.Mode = adModeRead Or adModeShareDenyNone

を

con.Mode = 1

にして、

    Set con = New ADODB.Connection

    con.Mode = 1

    con.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _

        "Data Source=""" & C_ExcelFile & """;" & _

        "Extended Properties=""Excel 8.0;HDR=Yes;"";"

これで、複数端末からの利用が出来るようになりました。

定数を設定していたらダメで、数値を設定したらＯＫ。？

また、con.Mode = 17 （adModeShareDenyNoneを付けると）では、

ダメでした。

一応解決したので、作成を進めようと思います。

ありがとうございました。

Answer 3

>定数を設定していたらダメで、数値を設定したらＯＫ。？

ADOオブジェクトどういう風に使ってらっしゃいますか？

もし、レイトバインド（CreateObject）でやってるんでしたら、当然ADODBの名前空間の名前定数は使えません。

Option Explicitをコードモジュールの頭に付けて実行すると、adXXXの定数が未定義だと怒られるんじゃないかな？

名前定数を使用するのでしたら、事前にしかるべきオブジェクトに参照設定してアーリーバインドにする必要があります。（VBAでADODB.Connectionに参照設定できるのかどうかは存じません）

Answer 4

y sakuda さん、情報ありがとうございます。

commonrope さん、こんにちは。

y sakuda さんからいただいた情報がご参考になればと思います。

同じような情報をお探しの方にも、こちらをご参考いただければと思い、今回は私の方で \[回答としてマーク\] をさせていただきました。

マークをした後でも投稿は出来ますので、引き続きみなさんからの情報も集めていただければと思います。

今後も Answers をよろしくお願いします。

Answer 5

返信、ありがとうございます。

デフォルトで読み取り専用ですよね。

読み取り専用でもロックされるのかと思い、

con.Mode = adModeRead Or adModeShareDenyNone

で、シェアモードも追加したのですがダメなのです。

また、ファイルそのものも共有設定にしてもダメでした。

教えていただいたサイトを見て、もう少しがんばってみます。

また、ＡＤＯではなく、別の方法等がありましたら、

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