Excel - แมโครเพื่อเปิดไฟล์ด้วย Notepad

ปัญหา

ฉันต้องการเปิดไฟล์ด้วย Notepad ฉันมีมาโครขนาดเล็กสำหรับจุดประสงค์นี้ แต่ปัญหาคือรหัสเปิดไฟล์ของฉันด้วย Word แทนที่จะเป็น Notepad

 กลุ่มย่อย () Dim s As ตัวแปร Dim i As Integer s = Shell ("C: \ Program Files \ Microsoft Office \ Office12 \ WINWORD.EXE C: \ Users \ Username \ Desktop \ filename.txt") 

สารละลาย

แทนที่ WINWORD.EXE โดย notepad.exe:

 s = Shell ("Office \ Office12 \ notepad.exe Files \ Microsoft C: \ Program C: \ Users \ ชื่อผู้ใช้ \ Desktop \ filename.txt")