| |
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\ＴＥＳＴエリア" '←フォルダ名
.document.SelectItem .document.Folder.ParseName("Test.xls"), 1
' ↑選択するファイル名
' ちなみに最後に記述してある1を「3」とか「16」にして試してみて下さい
' 色々してくれますから・・・
End With
Set ep = Nothing
End Sub
|
|
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
