Excel VBA質問箱 IV

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

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


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

【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をすると、ちゃんと立ち上がります。

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

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