パスとファイル名が含まれているセルからフォルダを開く

Question

パスのあるファイル名を含むセルからWindowsエクスプローラでフォルダを開きたいとします。例えば私は "C：\ files \ test.xls"をActiveCellに持っていて、 "test.xls"ファイルを含むWindowsエクスプローラの "C：\ files"フォルダを開きたいとします。

私は本当に助けが必要です。

おかげで、LACI

Answer 1

Shell "explorer.exe " & Left$(ActiveCell.Text, InStrRev(ActiveCell.Text, "\")) 

右の部分は完全な名前からフォルダを取得します。左の部分は、そのフォルダ内のWindowsエクスプローラを起動します。

パスにスペースが含まれている可能性があるため、このバージョンは、（追加の二重引用符でパスを囲む）安全です：

Shell "explorer.exe """ & Left$(ActiveCell.Text, InStrRev(ActiveCell.Text, "\")) & """"