Excel VBA質問箱 IV

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

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


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

【23825】サーバー上のファイルの自動オープン ageha 05/4/5(火) 11:26 質問[未読]
【23826】Re:サーバー上のファイルの自動オープン ウッシ 05/4/5(火) 11:36 回答[未読]
【23829】Re:サーバー上のファイルの自動オープン ageha 05/4/5(火) 13:40 お礼[未読]
【23831】Re:サーバー上のファイルの自動オープン ウッシ 05/4/5(火) 14:56 回答[未読]
【23832】Re:サーバー上のファイルの自動オープン ageha 05/4/5(火) 15:30 お礼[未読]

【23825】サーバー上のファイルの自動オープン
質問  ageha  - 05/4/5(火) 11:26 -

引用なし
パスワード
   サーバーに保存してあるエクセル書式のデータファイルを自動オープンさせる
マクロを作ったのですが、今回クライアントPCにログインパスワードを設定し
たところ、初回、共有フォルダにアクセスするにあたってネットワークパス
(ユーザー名)を求められます。それ自体は良いのですが、知らないで自動
オープンマクロを先に実行してしまうと「パスが見つかりません」系のエラー
となってしまいます。エクセルのVBAで、この状況を回避する(自動オープン
マクロの実行にあたりネットワークパスを改めて求める?)にはどうすれば
良いでしょうか?ログインしたらまず始めに共有フォルダにアクセスして
パスを開いておけば問題ないのですが、マクロにその機能を盛り込む事は可能
ですか?文章が下手で申し訳ありませんが、知ってる方宜しくお願いします。
僕はこれから書店へ行ってVBA関連の本をあさってきます・・・

【23826】Re:サーバー上のファイルの自動オープン
回答  ウッシ  - 05/4/5(火) 11:36 -

引用なし
パスワード
   こんにちは

こんな感じにしておけばいいかも。

  Dim WShell As Object
  Set WShell = CreateObject("Wscript.Shell")
  WShell.Run ("NET USE \\コンピュータ名\ディレクトリ パスワード /user:ユーザID")
  Set WShell = Nothing

【23829】Re:サーバー上のファイルの自動オープン
お礼  ageha  - 05/4/5(火) 13:40 -

引用なし
パスワード
   ▼ウッシ さん:
ありがとうございます。さっそく実行してみたのですが、やはりうまくいきません。新たに追加した部分はうまくうごいてるはず?ですが、同じところ(ChDir パス + "¥DB")で「パスがみつかりません」とエラーになってしまいます。ちなみに「コンピューター名」はサーバーの名前を入れてみたのですが、これも間違ってますか?初めて見るマクロの記述なので、こちらも詳しく教えていただけると嬉しいです・・・お手数をおかけしますが宜しくお願いします。

【23831】Re:サーバー上のファイルの自動オープン
回答  ウッシ  - 05/4/5(火) 14:56 -

引用なし
パスワード
   こんにちは

ネットワークコンピュータからサーバの共有フォルダを開くとアドレスバーからパスが
取得出来ますよね?
それが「"\\MyServer\DB"」として、パスワードが「1234」とすると

  Dim WShell As Object
  Set WShell = CreateObject("Wscript.Shell")
  WShell.Run "NET USE \\MyServer\DB 1234 /YES", 0
  Set WShell = Nothing

とかで出来ないでしょうか?

>(ChDir パス + "¥DB")で「パスがみつかりません」
は「SetCurrentDirectory」とかを使うといいかも。

【23832】Re:サーバー上のファイルの自動オープン
お礼  ageha  - 05/4/5(火) 15:30 -

引用なし
パスワード
   ▼ウッシ さん:
丁寧な説明ありがとうございます。
これができないと何の為にサーバーを
導入したかわからなくなってしまうので
早速チャレンジしてみます。本当にありがとう
ございました。

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