エクセルマクロで外部ファイルを開きたい

質問

エクセルマクロで外部ファイルを開きたい
エクセルのマクロをまだ詳しく知らないため、
ここで教えていただき一連の作業の最後にデータをクリップボードに
納めるところまでのマクロを作っていただきました。
そしてこのクリップされたデータをエディタソフト(Em-Editor)をその都度起動して張り付けています。
ついては使用中のマクロの中に外部ファイル（エディタ）を呼び出すところまでできれば
都合がいいのですが、手元にある解説書などを見ると
ファイルの呼び出しマクロはエクセルのワークブックのことしか記述してありません。
外部ファイル（エディタ・新規）をマクロで呼び出すことは可能でしょうか。
WindowsXP-SP3/Excel2003/

回答No.4

DOUGLAS_

＞各データをグループごとにつくり、その都度テキストデータに張り付けています。
　状況は変わったかも知れませんが、面白そうなお題でしたので、[ANo.2] を少し変えて、それぞれの グループ の データ を 別ファイル に書き込むようにしてみました。

　ちなみに、EmEditor が、拡張子「txt」に関連付けされていると存じますので、
wshShell.Run """C:\Program Files\EmEditor\EmEditor.exe""" & strFILENAME, 1, False
のところは、
ActiveWorkbook.FollowHyperlink strFILENAME
だけでイケると存じます。

Sub Create_TextFile_for_each_Group()
　Dim FSO As Object
　Dim wshShell As Object
　Dim rngStart As Range
　Dim strFILENAME As String
　Dim TS As Object
　Dim i As Integer
　Dim j As Long
　Dim k As Integer
　Set FSO = CreateObject("Scripting.FileSystemObject")
　Set wshShell = CreateObject("Wscript.Shell")
　Set rngStart = Range("F1")
　Do
　　k = k + 1

　　'グループ ごとに テキストファイル を作成。
　　strFILENAME = "D:\hoge\Group_" & k & ".txt"
　　Set TS = FSO.CreateTextFile(Filename:=strFILENAME, Overwrite:=True)
　　For i = 1 To 6
　　　For j = rngStart.Row To rngStart.End(xlDown).Row
　　　　TS.WriteLine Cells(j, Mid("FEDCAB", i, 1)).Value
　　　Next j
　　Next i
　　TS.Close

　　'作成した テキストファイル を開く。
　　ActiveWorkbook.FollowHyperlink strFILENAME
' 　wshShell.Run """C:\Program Files\EmEditor\EmEditor.exe""" & strFILENAME, 1, False

　　'次の グループ の先頭位置を確認
　　If k = 1 Then
　　　Set rngStart = Range("F26")
　　Else
　　　Set rngStart = rngStart.End(xlDown).End(xlDown)
　　End If
　Loop Until rngStart.Row = Rows.Count
　Set rngStart = Nothing
　Set TS = Nothing
　Set FSO = Nothing
　Set wshShell = Nothing
End Sub

お礼

この部分はNo6に再掲載されていますのでそちらへの質問と共通ですが、
順を追ってここから質問させてください。

>ActiveWorkbook.FollowHyperlink strFILENAME
だけでイケると存じます。
ここはエラーとして私が体験した追記するタイプの分でなく
No4の方法をとるとした場合の意味ですね。

D:\hoge\Group_" & k & ".txt
これは保存フォルダ名、テキスト名に一連の番号をつけてゆく操作と考えていいですか

For i = 1 To 6
６列のデータを張り付けることですか

Set rngStart = Range("F1")
スタートの位置をF1にするということでしょうか。もしF1でなくF2だとしたら書き換える必要がありますか

'次の グループ の先頭位置を確認
Set rngStart = Range("F26")
ここもそうですが、次のスタートをF26に…？。次のスタートは必ずしも26行目にならないので
その場合その都度記述するのでしょうか。
（１グループごとの貼り付け行数は、15～50行とまちまちになります。グループごとに空白行が１行存在しています。）

なお、保存する際に各テキストの１行めは、先にも書いたようにその都度変わります
これは保存ファイル名にも使うほか、後で別の作業上必要とします。
その１行めは「100825○○○○」といったようにするのですが、(100825は日付ですがあらかじめデータの中に関数で組み込まれて表示できるようにしてあります。)
○○○○はもともと別の文字が入っていて、それを●●●になおしたり、○○○○の一部をそのまま残したり
○○○○を半角にして残したりとまちまちです。
したがってマクロを一時停止させて、その都度記述する必要があろうかと思います。
（他のマクロ(Lotus123)での経験上、この記述停止もマクロ内で組めるかとは思いますが）