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

質問

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

回答No.22

DOUGLAS_

＞２グループ以降に移るとき、
＞A1へジャンプして終了
　以上２点につきまして、下記のトコロを書き換えてください。

--------------------------------
'//変数の宣言
のトコロに、
　Dim actRow As Long　　　　'初期アクティブ行
　Dim nextRow As Long　　　 '次期アクティブ行
を追加。
----------------
　MsgBox "スタート行をアクティブ にしてください。"
　Range("R" & Selection.Row).Select
の行を削除。
----------------
'//グループ ごとの繰り返し作業開始
　Do
の後に、
'//次の「スタート位置」を選択
　Range("R" & Selection.Row).Select
　actRow = ActiveCell.Row
　Range("R:R").Find(What:="MB", After:=ActiveCell, LookIn:=xlValues, LookAt _
　　:=xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:= _
　　False, MatchByte:=False, SearchFormat:=False).Select
　If ActiveCell.Row < actRow Then Range("A1").Select: Exit Sub
　nextRow = Range("R:R").Find(What:="MB", After:=ActiveCell, LookIn:=xlValues, LookAt _
　　:=xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:= _
　　False, MatchByte:=False, SearchFormat:=False).Row
を追加。
----------------
　　Set rng = Range("M" & ActiveCell.Row, "R" & ActiveCell.End(xlDown).Row)
を
　　Set rng = Range("M" & ActiveCell.Row, "R" & nextRow - 1)
に置き換える。
----------------
'//次の「スタート位置」を選択
　　Selection.End(xlDown).End(xlDown).Select
を削除。
----------------
End Sub
の前に、
　Range("A1").Select
を追加。
--------------------------------

　以上で、

１）アクティブ行から下方向に向かって、Ｒ列内で最初に「MB」の現れる セル が スタート 位置になります。
　以下、わざわざ「Ｍ列～Ｒ列」の データ を削除しなくても、次の「MB」が入力された Ｒ列 の セル が、次の スタート 位置になります。
　つまり、Ｋ列 に「A」と入力するだけで、その行が開始行になります。

２）マクロ終了後は A1 セル が アクティブ になります。
　ただし、「ファイル名の入力」ダイアログ を キャンセル したときと、「EmEditor での作業が終わったら OK」の メッセージ を キャンセル したときには、スタート 位置 で終了します。

================================

＞当事者同士のみのローカル的なやりとりで
あるが故に、私的には、結構、好きな回答を書けているようにも思えます。

　他者が参入してくると、却って noro6857 さんご自身も、複数の回答者相手に考えなければならなくなり、頭の数がそれだけ必要になるように存じますが、いかがでしょうか？

＞サイトに気が引ける
　私は、「この質疑応答を他の方がご覧になって、何かの ヒント になれば」と思って、そういう スタンス で、常々、回答しているつもりです。
　なればこそ、
＞このQ&Aは他の方にも公開され使える方にも役立てる
のであって、むしろ、中途半端な終わり方をするよりは、「答えが出た」というトコロで終わるべきかと存じますが、いかがでしょうか？

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

＞次の質問を別トビにしたい
　「次の質問」が何を指すのかは存じませんが、コード は、ほぼ出来上がっておりますので、今しばらくお待ちください。

　次の回答が最後になりますように。　(^∧^)

お礼

>本当のトコロはどうなんでしょうか？
どこかのぶれる首相みたいですね。すみません。
>１０種類くらい／特定文字の種類が20通り
正確に数えていないのでアバウトで書いたのですが、種類としては10種類くらい
特定文字で区分すると20通りという意味なのですが、これも違っているかもしれません。

＞連続しなくてすむ方法もあったほうがよさそうな気がします。
＞（時々データ1に付する「1」を間違えて、
＞タイトルから付してしまうことがあるからです）

これは、順列数字(L列）をR列のように付するとき、
タイトルつまり■の欄の本来消すべき順列数字をうっかり消し忘れ、残っていると
そこが1となって、肝心のデータ１行目が2から始まってしまうということです。
しばしばあとから気がつく時があります。

(R)2.Ａ１○○○(Ｂ１△△)
ただし、今回「キャンセル」を入れていただいたので、この問題は解決しました。

>プルダウン方式マクロで対応することは可能です
これは自分で対応可という意味でなく、プルダウンメニューの中にワード候補を
いれるように整理できるという意味ですが、
作成方法がQ&Aのやりとりにそぐわないということであるので撤回します

あと、応用でお聞きしておきたいのですが、収集列範囲を増やしたい場合
コード中の
　Set rng = Range("M" & ActiveCell.Row, "R" & ActiveCell.End
の部分をM～Sのようにすればいいのでしょうか。他にも関連記述がありますか？

ということでここまでをほかのところに書きかけていたらこのご回答が入りましたので、回答場所が
不揃いになりますがあわせてご返事させていただきます。

>他者が参入してくると
多分このやりとりをみてすると他者が参入してくる余地はないと思いますが
途中でほかの案が浮上してきたりするとお説のとおり混乱します。
が、そのために他者の書き込みを封じてはいけないのかなと自戒しています。
通しで対応していただいているのでとても助かっているのですが。

次の質問というのは追記案が１件落着となったところで、
次のVBA取り込み案を別のトビに分けようかなと考えたのです。
もしかしたらVBAで更に20回くらいやりとりをすることになるのかなと思ったのですが
関連で分割するとわかりにくくなるのではあればこのまま続けさせていただきます。

勝手なことを述べて申し訳ありません。

補足

修正した内容について動作結果をご報告します。
※
１グループでマクロを実行すると、２グループめのタイトル追記メニューと内容になります。
たぶん最初のグループの１行めからスタートさせると、
次のMB（すなわち２グループ）を拾ってしまうのではないかと感じます。

２グループめが終わって次のOKを押すと次のようなメッセージが出ました

実行時エラー2147221040(800401d0)
DateObjectGetText Openclipboardに失敗しました。

デバックを見ると次の部分がハイライトされていました。
//ファイル名 の入力
strData = .GetText

今回の修正、追記のしかたが間違ったのかもしれませんが、確認はしたつもりです。