エクセルのマクロ

質問

エクセルでそのExcelファイルより下位にあるテキストファイルを読み込みたいのです。

例えば、ａというボタンを押したらａ.txtというファイルが読み込まれ、bを押したらb.txtというファイルが読み込まれるようにしたいのですが、どのようにすればできますか？

回答No.2

hornest · ベストアンサー

＃１は変更しなくても大丈夫です。
ファイル処理の所に処理を追加しましょう。

私が提示したコードを実行してもらうと
ボタンに書かれている名前のテキストファイルを開きます。

ファイル処理はしていませんが。

お礼

試しにボタンの名前をCommandButton1で、そのエクセルファイルと同じフォルダにCommandButton1.txtを置き、実行してみたのですが、「ファイルが見つかりません」と出てしまいます。
どうすれば開けるのでしょうか？

回答No.3

hornest

返事おそくなりました・・・

ファイルオープンにはフルパスが必要です。

App.Pathなどを用い、該当ファイルの場所を設定してあげてください。

お礼

ご回答ありがとうございます。
フルパスが必要だったのですね。
試してみようと思います。

回答No.1

hornest

>例えば、ａというボタンを押したらａ.txtというファイルが読み込まれ、bを押したら
>b.txtというファイルが読み込まれるようにしたいのですが、どのようにすれば
>できますか？
コマンドボタンの名前＋".txt"
を読み込みたいということでしょうか。

Private Sub CommandButton1_Click()
　　Dim FileName As String
FileName = CommandButton1.Caption & ".txt"

　　Open FileName For Input As #1
　　　　’ファイル処理
　　Close #1
End Sub

お礼

ご回答ありがとうございます。
そうです、コマンドボタンの名前と同じファイルを開きたいのです。

このプログラムの　＃１　という部分を変更すれば良いのでしょうか？