excel マクロボタンで他のアプリ起動して表示させるには

質問

WinXPのexcel（2003）でボタンを設定して、そのボタンで、たとえば、Excelとは別の画面でメモ帳を立ち上げaaa.txtファイルを表示させるにはどのようなマクロを組めばいいのでしょうか？また、その発展で、ボタンをクリックすると、指定フォルダ内にある.txtを選択するボックスが表示させてその中からファイルを選択してメモ帳等で表示させることもできるでしょうか？

回答No.1

masa_019 · ベストアンサー

こんにちは。
そのような場合Shell関数を使うと良いでしょう。
aaa.txtがD:\Sampleというフォルダーにあるとして、

Sub sample()

Dim myFilePath As String

myFilePath = "D:\Sample\aaa.txt"

Shell "notepad.exe " & myFilePath, vbNormalFocus

End Sub

テキストファイルを選択させるには、GetOpenFilename メソッドを使って、

Sub sample2()

Dim myFilePath As String

myFilePath = _
Application.GetOpenFilename("テキスト ファイル (*.txt), *.txt")

Shell "notepad.exe " & myFilePath, vbNormalFocus

End Sub

最初のサンプルコードにある"D:\Sample\aaa.txt"の部分を
ユーザーに選択させるわけです。

お礼

masa_019様　早速のご回答ありがとうございます。
ＶＢＡの本を見てもよくわからず、悩んでいましたが、シンプルに完璧な回答に無事問題解決しました。感謝です。ありがとうございました。