Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
3929 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【58941】WSHで共有EXCELを起動する時 いのっち 08/11/19(水) 11:23 質問[未読]
【58945】Re:WSHで共有EXCELを起動する時 Jaka 08/11/19(水) 13:11 発言[未読]
【58957】Re:WSHで共有EXCELを起動する時 いのっち 08/11/20(木) 11:12 お礼[未読]
【59436】Re:WSHで共有EXCELを起動する時 いのっち 08/12/11(木) 10:49 回答[未読]
【58941】WSHで共有EXCELを起動する時
質問  いのっち  - 08/11/19(水) 11:23 -
引用なし
パスワード
   こんにちは、少し、場違いかもしれませんが、ご存知の方お教えください。WSHで共有フォルダにあるエクセルを起動する、以下WSHを作りました。
==========================
Dim xlApp
Set xlApp = CreateObject("Excel.Application")
xlApp.Visible = True
xlApp.DisplayAlerts = False
xlApp.Workbooks.Open "\\共有サーバ\○○○.xls"
Set xlApp = Nothing
==========================

このままWSHをダブルクリックすると、エラー（ファイルがありませんのような）が出て、エクセルが起動しません。ネットワーク上のユーザー名・パスワードが必要だからだと思います。

ちなみに、一旦、手動でネットワーク上のユーザー名・パスワードを入力し、手動でエクセルを起動したあとに、このWSHをすると、ちゃんと立ち上がります。

ＷＳＨの中に、ユーザー名・パスワードを設定する方法がありましたら、お教えください。
【58945】Re:WSHで共有EXCELを起動する時
発言  Jaka  - 08/11/19(水) 13:11 -
引用なし
パスワード
   私のスレは参考にならんけど。

【6371】ネットワークパスワード入力ダイアログについて　
ht　tp://www.vbalab.net/vbaqa/c-board.cgi?cmd=ntr;tree=6371;id=excel
【58957】Re:WSHで共有EXCELを起動する時
お礼  いのっち  - 08/11/20(木) 11:12 -
引用なし
パスワード
   ▼Jaka さん：

>【6371】ネットワークパスワード入力ダイアログについて　
>ht　tp://www.vbalab.net/vbaqa/c-board.cgi?cmd=ntr;tree=6371;id=excel

Jakaさんありがとうございました。
似たような問題で困った方がいらっしゃったのですね、”WSH”の仕様に集中してたものですから、検索ヒットしないと思い込んでました・・・参考になりました。

そのままではつながらなかったのですが、WSHの中にShellが使えることがわかったので、我流でなおしてみたら（一応）つながりました。

また、何かありましたら助言をお願いいたしますm(_ _)m
【59436】Re:WSHで共有EXCELを起動する時
回答  いのっち  - 08/12/11(木) 10:49 -
引用なし
パスワード
   つながったWSHの記述を記入しておきます。

※一旦、ネットワーク関連キャッシュをクリアし、アクセス（ネットワークパスワードの入力）のみします（これで本当にあっているかどうかはわかりませんが、一応、問題なくつながっています）

Dim Wshell
Set WShell = WScript.CreateObject("Wscript.Shell")
WShell.Run "nbtstat -R"
WShell.Run "ipconfig /flushdns"
WShell.Run "net use \\サーバ\共有フォルダ パスワード /user:ユーザー"
Set WShell = Nothing
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
3929 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free