Excel - メモ帳でファイルを開くためのマクロ

問題

メモ帳でファイルを開きたいです。 私はこの目的のために小さなマクロを持っていますが、問題はコードがメモ帳の代わりにWordで私のファイルを開くことです。

 Sub bloc（）VariantとしてDim整数としてSim =シェル（ "C：¥Program Files¥Microsoft Office¥Office12¥WINWORD.EXE C：¥Users¥Username¥Desktop¥filename.txt"） 

溶液

WINWORD.EXEをnotepad.exeに置き換えます。

 s =シェル（ "C：¥Program Files¥Microsoft Office¥Office12¥notepad.exe C：¥Users¥Username¥Desktop¥filename.txt"）