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

質問

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

回答No.9

DOUGLAS_

＞したがって「Ａを片づけ後Ｂにチャレンジ」というのが、
＞Ａはまだ片づいていないものがあるとすれば
＞順序からいけばＣの方法が一番いいかと思います。
　了解しました。

　今までのやりとりを踏まえた上で、白紙に戻して一からご説明いたします。

--------------------------------

　さて、今更ながら、「前回の分のQ&AはNo7の記述」を、初めて具に拝見してみました。

　No5 の「お礼」に
＞１行ずつの記述の意味を直接教えてくれるような
＞身近な人がいれば理解度は早いのですが、
＞悲しいかな、独力ではなかなか理解しきれずご迷惑をかけます。
と書かれていますので、先ず、手始めに、この「前回の分のQ&AはNo7の記述」を解説してみようかと思ったのですが、

＞このFEDCABがデータ列のことかなと勝手に考えつつも、
＞実際の列(M～R)に置き換えてやってみたりしていたり
＞Set rngStart = Range("F1")もF1スタート列だとすれば
＞最初のスタートはR3なので置き換えてみたりしてみました。

とのことですので、先ず、noro6857 さんのお手許にある コード を、そのまま、こちらに コピペ してみてください。

　恐らく、キチンと理解されずに、コード を運用していらっしゃることと存じますので、「１行ずつの記述の意味を」解説させていただきます。

お礼

ありがとうございます。
使用中のマクロは次の通りです。
お説の通り、内容は理解できていませんので教えてもらったものを単に張り付けただけで
使用しています。

－－－－－－－－－－－－
Sub Macro1()
'
' Macro1 Macro
' マクロ記録日 : 2010/2/9 ユーザー名 : QDELLSP２
'

Dim buf As String, buf2 As String, CB As New DataObject
Dim rng As Range 'データセル範囲
Dim c As Range 'データセル
Dim n As Integer 'データセル範囲の列数
Dim i As Integer 'ループカウンター
Dim x As Integer 'オフセット量

'//旧抽出データ消去
Range("AA1:AA500").ClearContents
'//選択セルが対象列範囲外なら中止
If Intersect(ActiveCell, Columns("A:R")) Is Nothing Then Exit Sub
'//データ表示数式セル範囲の取得（エラー表示セルは除外）
Set rng = Range("M" & ActiveCell.Row, "R" & ActiveCell.End(xlDown).Row)
Set rng = rng.SpecialCells(xlCellTypeFormulas, 7)
n = rng.Columns.Count
'//データ抽出
For i = n To 1 Step -1
Select Case i
Case 2: x = 1
Case 1: x = 2
Case Else: x = i
End Select
For Each c In Range(rng.Columns(x).Address)
buf = buf & vbCrLf & c.Value
Next
Next i
buf = Replace(buf, vbCrLf, "", 1, 1)
'//クリップボードに格納
With CB
.SetText buf
.PutInClipboard
.GetFromClipboard
End With
------------------------------
なお、元データには
コードの続きに

'//データ貼り付け（確認用）
ActiveSheet.Paste Destination:=Range("AA1")
Set rng = Nothing
があったのですが、これを入れるとうまく貼り付けができなかったので削除して運用しています。

--------------------
データはM列～R列まで（6列）関数を入れた算式が入っています。（たてに500行くらい）
１グループは15～30行くらいで、エンドダウンキーで止まるようにグループの各最終行
は各列とも算式を削除した空欄行にしてあります。
またグループ内途中にも空欄行が発生する場合があり、これはIf関数で=""表示をして空白になっています
が算式は残っているためデータ内に含まれます。（あとで空白を削除するのはこのためです）
スタートはR列から始まり、RQPOMNの順に収集し、それを縦一列にしたものがテキスト貼り付けになります。1グループのテキストへの貼り付けが終わると次のR列のスタート位置にカーソルを置きマクロを実行します。
各列の１行目はあとで縦一列になったときに区分しやすいように、■記号とタイトルに相当する文字を表示しています。（あとでこれを部分修正してファイル名、その他のちの作業上で使います）

こんな具合でよろしいでしょうか。不足があれば追記いたします。