Excel - Makro avaa tiedosto Notepadilla

Ongelma

Haluaisin avata tiedoston Muistio. Minulla on pieni makro tähän tarkoitukseen, mutta ongelma on, että koodi avaa tiedostoni Wordilla Notepadin sijaan.

 Sub bloc () Dim s As Variantina Dim i As Integer s = Shell ("C: ohjelmatiedostot Microsoft Office Office 12 WINWORD.EXE C: Käyttäjätunnus Desktopinimi.txt") 

Ratkaisu

Vaihda WINWORD.EXE by notepad.exe:

 s = Shell ("C: ohjelmatiedostot Microsoft Office 12: n epad.exe C: Käyttäjätunnus Käyttäjätunnus