Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
10092 / 13657 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【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 -
引用なし
パスワード
   ▼ウッシ さん：
丁寧な説明ありがとうございます。
これができないと何の為にサーバーを
導入したかわからなくなってしまうので
早速チャレンジしてみます。本当にありがとう
ございました。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
10092 / 13657 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free