エクセルのマクロについて教えてください。

マクロ
Sub 作成()
Dim filePath As String: filePath = ThisWorkbook.Path & "\FDﾃﾞｰﾀ.txt"
Open filePath For Output As #1
Close #1
End Sub
が有ります。
マクロを実行するとテキストファイル名「FDﾃﾞｰﾀ.txt」が作成され、ファイルはクローズされます。
このマクロを実行したタイミングで「FDﾃﾞｰﾀ.txt」が作成された後、作成されたテキストファイル「FDﾃﾞｰﾀ.txt」がそのまま開いた状態に出来る方法を教えてください。
よろしくお願いします。

質問者からの補足コメント

• 

  回答ありがとう御座います。
  「FDﾃﾞｰﾀ.txt」は「Sub 作成()」のマクロがあるエクセルからマクロを実行して「FDﾃﾞｰﾀ.txt」が作成されます。
  マクロコードの「Close #1」を削除してみましたが、エクセル上には「FDﾃﾞｰﾀ.txt」が有るようですが、画面上には表示されていません。どのように解決したら良いかを教えてください。
  よろしくお願いします。

  No.2の回答に寄せられた補足コメントです。 補足日時：2023/02/05 10:32

No.1 回答者： めぐみん_ 回答日時： 2023/02/05 10:21

' Close #1

コメント文にして様子を窺うとか？

この回答へのお礼

回答ありがとう御座います。
参考にさせて頂きます。

お礼日時：2023/02/05 11:11

No.2 回答者： Chown 回答日時： 2023/02/05 10:23

「FDﾃﾞｰﾀ.txt」は、Excelから新たに作成するのでしょうか。

それとも、もともと用意されていたファイルでしょうか。

No.3 ベストアンサー 回答者： Chown 回答日時： 2023/02/05 11:05

「Close #1」をコメントアウトしてみましたが、確かにファイルは開きません。

とても単純なコードなのに不思議ですね。

以下の方法はいかがでしょうか。なお「FDﾃﾞｰﾀ.txt」は、「Oドライブ」に作成するようにしました。

Sub 作成()

Dim filePath As String

filePath = "O:\FDﾃﾞｰﾀ.txt"

Open filePath For Append As #1

CreateObject("Shell.Application").ShellExecute "O:\FDﾃﾞｰﾀ.txt"

'Close #1

End Sub

この回答へのお礼

何度もありがとうございます。
又、詳しく説明及びコードを考えて頂きまして感謝いたします。
早速試して見ます。

お礼日時：2023/02/05 11:12

No.4 回答者： めぐみん_ 回答日時： 2023/02/05 11:17

No.1です。

＞作成されたテキストファイル「FDﾃﾞｰﾀ.txt」がそのまま開いた状態に

てっきりメモリ上での話で画面上とは思ってませんでした。
のでスル～して下さい。