こんにちはゲストさん。会員登録(無料)して質問・回答してみよう!

解決済みの質問

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

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

投稿日時 - 2008-03-30 14:45:17

QNo.3907285

すぐに回答ほしいです

質問者が選んだベストアンサー

こんにちは。
そのような場合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"の部分を
ユーザーに選択させるわけです。

投稿日時 - 2008-03-30 16:28:03

お礼

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

投稿日時 - 2008-03-30 21:58:18

このQ&Aは役に立ちましたか?

0人が「このQ&Aが役に立った」と投票しています

回答(1)

あなたにオススメの質問