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

質問

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

回答No.20

DOUGLAS_

＞コード 的には、そんなに難しいことはありません。
　ということで、こんな感じになりましょうか。

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

Sub Macro1()
'//Microsoft Forms 2.0 Object Libraryを参照設定

'//変数の宣言
　Dim wshShell As Object　　'WshShell オブジェクト
　Dim rng As Range　　　　　'データセル範囲
　Dim n As Integer　　　　　'データセル範囲の列数
　Dim CB As New DataObject　'クリップボード
　Dim strData As String　　　 '確認用データ
　Dim strFileName As String 'ファイル名
　Dim i As Integer　　　　　'ループカウンター
　Dim x As Integer　　　　　'オフセット量
　Dim c As Range　　　　　　'データセル
　Dim buf As String　　　　 '書込用バッファ

'//「WshShell オブジェクト」と「初期スタート位置」の準備
　Set wshShell = CreateObject("Wscript.Shell")
　MsgBox "スタート行をアクティブ にしてください。"
　Range("R" & Selection.Row).Select

'//グループ ごとの繰り返し作業開始
　Do

'//データ表示数式セル範囲の取得（エラー表示セルはそのまま表示）
　　Set rng = Range("M" & ActiveCell.Row, "R" & ActiveCell.End(xlDown).Row)
　　n = rng.Columns.Count

'//ファイル名 の入力
　　rng.Copy
　　With CB
　　　.GetFromClipboard
　　　strData = .GetText
　　End With
　　Application.CutCopyMode = False
　　If Replace(Replace(Replace(strData, vbCrLf, ""), "#VALUE!", ""), vbTab, "") <> "" Then
　　　strData = "「" & Left(Selection.Value, 10) & "」" & "に続く文字列を入力してください。" _
　　　　& vbCrLf & vbCrLf & "====================================================" & _
　　　　vbCrLf & vbCrLf & strData
　　　strFileName = InputBox(strData, "ファイル名の入力", Mid(Selection.Value, 11, 100))
　　　If strFileName = "" Then
　　　　Exit Sub
　　　Else
　　　　Selection.Value = Left(Selection.Value, 10) & strFileName
　　　End If
　　End If

'//データ抽出（空白セルは抽出しない）
　　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)
　　　　If c.Text <> "" Then _
　　　　　buf = buf & vbCrLf & c.Text
　　　Next
　　Next i
　　buf = Replace(buf, vbCrLf, "", 1, 1)

'//クリップボードに格納
　　With CB
　　.SetText buf
　　.PutInClipboard
　　.GetFromClipboard
　　End With