今エクセルで開いているファイルをエクスプローラーで開く。 なんで今まで作っていなかったのか謎だ。 Sub OpenWithExploler() Shell "explorer.exe /e,/select, " + ActiveWorkbook.FullName, vbNormalFocus End Sub