Excel VBA質問箱 IV

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

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


63786 / 76732 ←次へ | 前へ→

【17538】Re:ハイパーリンク先のファイルを実行せず選択にとどめるには
発言  ichinose  - 04/9/1(水) 22:22 -

引用なし
パスワード
   sanodgさん、ちゃっぴ さん、こんばんは。

>>きっぱりあきらめて、Shell関数等でExplorerを引数指定起動
>>するようにしたほうがいいのでは?
>
>こいつのサンプルです。
>
>Shell "Explorer /Select,パス名"
>
>自分のセルへ飛ぶようHyperlink設定しておいて
>FollowHyperlinkイベントで上記のソースを
>実行させるようにするとよいでしょう。
簡単なのは、↑が一番ですねえ・・・。
一応、別解ということで・・・。
'=====================================================
Sub test()
  Set ep = CreateObject("InternetExplorer.Application")
  With ep
   .Visible = True
   .MenuBar = False
   .navigate "D:\My Documents\TESTエリア" '←フォルダ名
   .document.SelectItem .document.Folder.ParseName("Test.xls"), 1
'                             ↑選択するファイル名
'  ちなみに最後に記述してある1を「3」とか「16」にして試してみて下さい
'  色々してくれますから・・・  
   End With
  Set ep = Nothing
End Sub

1 hits

【17527】ハイパーリンク先のファイルを実行せず選択にとどめるには sanodg 04/9/1(水) 18:13 質問
【17529】Re:ハイパーリンク先のファイルを実行せず... ちゃっぴ 04/9/1(水) 19:18 回答
【17530】Re:ハイパーリンク先のファイルを実行せず... ちゃっぴ 04/9/1(水) 19:27 回答
【17538】Re:ハイパーリンク先のファイルを実行せず... ichinose 04/9/1(水) 22:22 発言
【17549】Re:ハイパーリンク先のファイルを実行せず... sanodg 04/9/2(木) 7:47 お礼

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