現在、Access2000でフォームにあるコマンドボタンをクリックするとブラウザが立ち上がり、LAN上にある指定したフォルダが開くようなモノを作成していますが思うようにいきません。
コマンドボタンに次のコードを記述したのですが、インターネット上のサイトは開くことができてもLAN上にあるファイルやフォルダを開く事ができず途方にくれています。
どなたかご存知の方がいらっしゃいましたら、是非、ご教示をお願いします。
<ソース>
Private Sub コマンド1_Click()
Const nu As String = vbNull
Dim ret As Long
Dim url As String
url = "http://www.yahoo.co.jp/"
ret = ShellExecute(0, "open", url, nu, nu, 0)
End Sub
*これでヤフーは開くことができますが、URLの所に「\\」で始まるLAN上にあるフォルダの場所を指定しても開くことができません。
No.1
- 回答日時:
詳しいことはわかりませんが
ret = ShellExecute(0, "open", url, nu, nu, 1)
としたら開きました。
No.2ベストアンサー
- 回答日時:
回答は出てますが・・・
最後の引数はウインドウの状態を指定します。
0 は SW_HIDE で非表示を指定しているので、
表示されないのが正常な状態だと思います。
URLの場合IEが表示されるみたいですが、
これの方が異常な状態かも。(^^;
通常は、1(SW_NORMAL)か、3(SW_MAXIMIZE)辺りを、
指定すれば良いと思います。
---------------------------------------------------
上記で解決すれば蛇足ですが、
アプリケーションの関連付けによっては、
うまく開かない場合があるかもしれません。
第3引数はエクスプローラを指定して、
第4引数にurl(サーバのフォルダ名)の方が確実かも。
ret = ShellExecute(0, "open", "EXPLORER.EXE", url, nu, 1)
---------------------------------------------------
因みに、開くだけでいいなら、API関数を使うまでもなく、
下記でも大丈夫だと思います。
Shell "EXPLORER.EXE " & url, vbNormalFocus
返信(お礼)が遅くなりスイマセン…汗
分かりやすい説明ありがとうございました!
おかげ様でうまく進めることができています。
取り急ぎお礼まで。
ありがとうございました!
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) 【マクロ】フォルダを3つ、POモニター上に、決まった並べ方をしたい 4 2022/08/31 11:05
- Excel(エクセル) 【マクロ】フォルダAからダBへファイルを、ファイルの更新日時の条件で、1つづつ移動するには? 3 2022/08/25 09:56
- Visual Basic(VBA) VBA This Workbookモジュールを別ファイルにコピーする方法 1 2022/09/14 01:51
- Visual Basic(VBA) エクセルのマクロについて教えてください。 2 2023/07/15 15:48
- Visual Basic(VBA) ExcelのVBAコードについて教えてください。 1 2023/08/08 15:45
- Excel(エクセル) 【マクロ】フォルダを2つのモニターの定位置に並べたい 2 2022/09/02 01:14
- Visual Basic(VBA) フォルダの場所を可変にしたいです(マクロ) 4 2023/05/11 10:00
- Visual Basic(VBA) エクセルのマクロについて教えてください。 4 2023/07/03 09:11
- Visual Basic(VBA) VBA★PDFをPDFアプリで印刷しようと思っていますが上手くゆきません 1 2022/06/06 22:04
- Visual Basic(VBA) ExcelのVBAコードについて教えてください。 1 2023/08/09 10:33
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
BLOB型のPDF出力の方法
-
autorun がうまく動作しない
-
Excel 2019 のピボットテーブル...
-
Oracle 2つのDate型の値の差を...
-
エクセルVBAで5行目からオート...
-
「直需」の意味を教えてください
-
テーブルの存在チェックについて
-
Excel→Accessへ貼り付けがおかしい
-
【Access】フォームで自動計算...
-
Access テキスト型に対する指定...
-
アクセスクエリの計算
-
Accessでテーブル名やクエリ名...
-
SUBSTRING 関数に渡した長さの...
-
列が存在しないと言われる
-
Oracleのビュー作成時に「指定...
-
accessで重複を防ぎたい
-
変数が選択リストにありません
-
Accessのフィールド数が255しか...
-
ACCESSに同時アクセス(編集)を...
-
Accessクエリーで両方のテーブ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
BLOB型のPDF出力の方法
-
エクセル内のURLからHPのタイト...
-
TortoiseSVNのリポジトリブラウ...
-
リバースプロクシを使って接続...
-
autorun がうまく動作しない
-
Excel 2019 のピボットテーブル...
-
「直需」の意味を教えてください
-
エクセルVBAで5行目からオート...
-
Accessでテーブル名やクエリ名...
-
Accessでテーブルの値をテキス...
-
Oracle 2つのDate型の値の差を...
-
セルの右クリックで出る項目を...
-
Access テキスト型に対する指定...
-
作番ってどういう意味でしょうか?
-
Accessでコードを入れると名前...
-
Accessのフィールド数が255しか...
-
Accessのリンクテーブルのパス...
-
テーブルの存在チェックについて
-
ACCESSのクエリで集計で、先頭...
-
ACCESSで400以上のフィールドが...
おすすめ情報