Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

45144 / 76735

←次へ　｜　前へ→


	【36594】Re:サーバーにアクセスする時に、パスワードを問い合わせるダイアログを出すには？

Jaka - 06/4/5(水) 9:23 -


	引用なし

	パスワード

▼カドさん：
>そうですか、ＶＢＡでも出来ないことがあるのですね。
>
>補足
>ネットワーク接続出来ていないSQLサーバー（と言っても良く知らないけど）に
>ＶＢＡでアクセスして処理をしているコードを見たことがあるので
>てっきり簡単に出来るものと思っていました。
いや、出来ると思うんですけど、私が知らないだけです。

知らないから、こんな物を使ってたりします。

下記コードをメモ帳に張付け、拡張子をvbsに変更。
このファイルをサーバーの棒フォルダに入れ、このファイルのショートカットをデスクトップに作っておき極たまに使ってます。
単純に
ショーカット元のファイルがおいてあるフォルダをエクスプローラーで開くだけですけどね。

FulPass = WScript.ScriptFullName
BPth = left(FulPass,instrrev(FulPass,"\"))

'Shell "Explorer.exe /e," & BPth, vbNormalFocus
WScript.CreateObject("WScript.Shell").Run "Explorer.exe /e," & BPth '& , vbNormalFocus

0 hits

▼

【36579】サーバーにアクセスする時に、パスワードを問い合わせるダイアログを出すに... カド 06/4/4(火) 13:29