Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
2325 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【68681】ADODB.ConnectionでExcel複数接続 NS 11/4/6(水) 14:34 質問[未読]
【68735】解決できましたので、報告いたします。 NS 11/4/13(水) 9:28 回答[未読]
【68681】ADODB.ConnectionでExcel複数接続
質問  NS  - 11/4/6(水) 14:34 -
引用なし
パスワード
   初めて投稿させていただきます。よろしくお願いいたします。

ネットワーク共有フォルダ内の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_DBFile & """;" & _
　　　　"Extended Properties=""Excel 8.0;HDR=Yes;"";"

また、２台目の端末から直接Ｅｘｃｅｌで同ファイルを開こうとすると、
ロック状態で、開けませんでした。

もしかすると、ネットワーク共有フォルダ内のExcelファイルを
ADODB.Connectionで利用することはできなのでしょうか。

よろしくお願いいたします。
【68735】解決できましたので、報告いたします。
回答  NS  - 11/4/13(水) 9:28 -
引用なし
パスワード
   解決できましたので、報告いたします。

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

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を付けると）では、
ダメでした。

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

ありがとうございました。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
2325 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free