• ベストアンサー

エクセルVBAで

いつもお世話になります。 エクセルファイル”AAA”で Workbooks.Open ("C:\Documents and Settings\Owner\デスクトップ\BBB.xls") として、”BBB”というファイルを開き、”AAA”にデータを読取っているのですが、自分のPC以外でネットワークを介して別のPCで同じ事をすると”BBB”のファイルを開いてくれません。 何か良い方法があれば教えて頂けないでしょうか。

質問者が選んだベストアンサー

  • ベストアンサー
  • nicotinism
  • ベストアンサー率70% (1019/1452)
回答No.3

投稿前に確認しましたが再度イミディエイトウィンドウで確認。 workbooks.open("\\arere\C$\Documents and Settings\YourName\デスクトップ\test.xls") で開きましたけど? 接続される側(する側)のPC(例arereは自PC名)がWindowsXP Pro やWindows2000で無い場合は 管理共有が利用できないので確かめて下さい。 (Error 1004 が返ってきます) また、ご質問者がどのグループに属しているかも影響しているとのかな? 以上2点はどうですか? と言いますか・・「うまく行かない」では何も状況が伝わってきません エラーメッセージの内容とか 全く反応が無いとか しばらく何かごそごそ動いてからだんまりとか・・・ 詳しくは前回のリンクを読まれれば解決するのでは?と考えています。 ※ActiveDirectory環境(含むDomein)では浅学の為レス出来ないかも知れません 繰り返しになりますが共有フォルダを設定して使われるか サーバー上の共有フォルダを使用されることをお勧めします。

keiri2002
質問者

お礼

回答有難うございます。 Error 1004 が返ってきます。 PCはずっとProだと思っていましたが、なんとHomeでした。 ということは管理共有が利用できないのですね(TT) 有難うございました。

すると、全ての回答が全文表示されます。

その他の回答 (2)

  • nicotinism
  • ベストアンサー率70% (1019/1452)
回答No.2

> ("C:\Documents and ・・・ では常に自PCを参照します。 UNC名で指定することになるのですが C:\Documents and Settings\Owner\デスクトップ\BBB.xls ↓ \\コンピュータ名\C$\Documents and Settings\Owner\デスクトップ\BBB.xls WinXp Pro や Win2Kならこのようになります。 ただし、ご質問者の場合なら開けますが、他の人の場合はアクセス権が設定されてないと 拒絶されます。 なので、必要な人にアクセス権を与えてあげる必要がありますが 質問者のデスクトップが丸見え状態にもなりかねませんのでお勧めできません! 他にもセキュリティ的に非常に脆い状態になります。 ファイルサーバー上に共有フォルダが設けられているなら、 そこにコピーして使ってもらいましょう。 その場合には \\コンピュータ名\共有フォルダ名\これ見てね\BBB.xls などのようになります。 あるいは自PCに共有フォルダを新たに設定するか・・・ 以下は長い話になりますが読んでおいて損はないです(ぜひ読みましょう) アクセス権完全掌握マニュアル http://www.windows-world.jp/special/-/25881.html

keiri2002
質問者

お礼

回答有難うございます。 Workbooks.Open ("\\コンピュータ名\C$\Documents and Settings\Owner\デスクトップ\BBB.xls") コンピュータ名はシステムのプロパティのフルコンピューター名に書き換え、試してみましたがうまくいきませんでした。 自分のPCでも開きませんでした。

すると、全ての回答が全文表示されます。
  • teto_pun2
  • ベストアンサー率41% (12/29)
回答No.1

確認ですが 失敗するPCに、"C:\Documents and Settings\Owner\デスクトップ\BBB.xls"は、存在しますか? 失敗するPCにて、エクスプローラーにてクリックし、開けますか?

keiri2002
質問者

補足

回答有難うございます。 >失敗するPCに、"C:\Documents and Settings\Owner\デスクトップ\BBB.xls"は、存在しますか? ”AAA”も”BBB”も自分のPCに存在しております。失敗するPC(ネットワークで開けようとするやつ)には存在しません。 ただ、失敗するPC(ネットワークで開けようとするやつ)でも個別には ”AAA”も”BBB”も読み書きできます。 VBAで開こうとしたとき Workbooks.Open ("C:\Documents and Settings\Owner\デスクトップ\BBB.xls") ではだめでした。

すると、全ての回答が全文表示されます。