Excel VBA質問箱 IV

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

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


2323 / 13644 ツリー ←次へ | 前へ→

【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を作成したのですが、2台目の端末から
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;"";"

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

もしかすると、ネットワーク共有フォルダ内の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;"";"

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

定数を設定していたらダメで、数値を設定したらOK。?

また、con.Mode = 17 (adModeShareDenyNoneを付けると)では、
ダメでした。

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

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

2323 / 13644 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free