在记事本中打开文件的超链接

Question

我想在记事本中打开另一个文件扩展名说（.py） - python文件。

我有以下代码完美地完成它，即在记事本中打开python文件

Shell "notepad C:\Users\stackoverflow\Desktop\python.py", vbNormalFocus

但我想做以下事情......

Dim python_open As String
python_open = Shell("notepad C:\Users\stackoverflow\Desktop\python.py", vbNormalFocus)
ActiveSheet.Hyperlinks.Add Range("A1"), Address:=python_open, TextToDisplay:="Open Python File in Notepad"

所以当有人点击“＃Note;在记事本中打开Python文件＆＃34;它应该在记事本中打开python.py ...通过超链接，请

我怎样才能使上面的代码工作？有没有其他方法可以做到但是通过超链接??

先谢谢你们......

干杯 plasma33