[[20180912201919]]　『指定しフォルダー内にあるもの開くには』（パパ）　ページの最後に飛ぶ

『指定しフォルダー内にあるもの開くには』（パパ）

エクセルのVBAで、指定しているフォルダを開く際に
保存している
エクセル以外のPDF パワーポイントなどを選択した際に開く設定方法が知りたく質問しました

＜使用 Excel：Excel2007、使用 OS：Windows7 ＞

どこまではわかってる（できてる）んでしょうか？
とりあえず、開きたいファイル（エクセル以外のPDF パワーポイント）のフルパスを取得するところまではできてますか？

（もこな２） 2018/09/12(水) 21:36

コメントありがとうございます
フルパスを取得理解していません
ダイアログボックスから選択されたフォルダーのオープン迄です
（パパ） 2018/09/12(水) 22:54

とりあえずは、こんな事がしたいのでしょうかね？

 Sub test()
    With Application.FileDialog(msoFileDialogOpen)
        If .Show = True Then
            Shell "cmd /c " & .SelectedItems(1), vbHide
        End If
    End With
 End Sub
（???） 2018/09/13(木) 17:25

コメントありがとうございます
上記のような感じで
エクセルも含んだ状態ですとどのような記述になるのでしょうか
（パパ） 2018/09/13(木) 21:23

いまどんな感じでどう困ってるのか掴めないですが、

＞ダイアログボックスから選択されたフォルダーのオープン迄です
という説明が、
ダイアログボックスから選択されたフォルダーをエクスプローラで開くところまではできてます。
という意味であれば、こんな感じになってるってことです？

 Sub 指定フォルダをエクスプローラで開く()
    With Application.FileDialog(msoFileDialogFolderPicker)
        If .Show = True Then
            Shell "Explorer.exe " & .SelectedItems(1), vbMaximizedFocus
        End If
    End With
 End Sub
（もこな２） 2018/09/14(金) 08:10

私の書いたコードは、拡張子の関連付けによる自動起動を利用したものなので、Excelのブックでも同様に開くと思いますけど、何が問題なのでしょう？

ブックの場合は関連付けで開かず、WorkBooks.Openにしたい、とかでしょうか？ブックの開き方なんて、探せばいくらでも情報が得られると思いますので、ご自分で変更してみてください。
（???） 2018/09/14(金) 09:08

もこな2さんの設定で対応出来ました
一つ一つ拡張子を設定しなければと思っていました
ありがとうございます
（パパ） 2018/09/14(金) 20:15

状況確認しただけで、特に回答したつもりがなかったんですが解決したのかな？
解決したとすればですけど、フォルダ開くだけならわざわざVBA使わなくても、Windowsキー　+　E　押してエクスプローラを起動して、目的のフォルダ選ぶだけなんじゃ・・・・

 ※フォルダのフルパスわかっているならもっと手っ取り早く、
 　Windowsキー　+　R　でファイル名を指定して実行の名前欄にフルパスを入力でも可。

（もこな２） 2018/09/15(土) 09:33

コメント返信：

[ 一覧(最新更新順) ]

[[20180912201919]] 『指定しフォルダー内にあるもの開くには』（パパ） ページの最後に飛ぶ

[[20180912201919]]　『指定しフォルダー内にあるもの開くには』（パパ）　ページの最後に飛ぶ