ベストアンサー

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

2010/08/23 09:28

DOUGLAS_の回答

DOUGLAS_
ベストアンサー率74% (397/534)

2010/08/27 23:24 回答No.5

【１】前４回答について＞回答のNo3.No4についてはまだ理解できていません＞No4はいくつかのファィルを連続して作ってしまうということでしょうかとのことですが、前４回答の要旨は下記の通りです。 No1）追記するだけのコードを呈示しました。 No2）必要データをクリップボードに積んでから EmEditor で開くのではなくて、txtファイルに書き込んでから、その txtファイルを EmEditor で開く方法もあるということ。 No3 - ア）EmEditor.exe を開く（wshShell.Run）ときに、起動オプションに「/i」を付けるということ。 No3 - イ）[DataObject オブジェクト] を使用しなくても、[Copy メソッド] を行なうだけでデータをクリップボードに積むことができるということについて。 No4）グループごとに、１つの txtファイルを作成し、マクロが終了した時点で、すべての txtファイルを EmEditor で開く方法。 -------------------------------- 【２】No3 に対する「お礼」の中の問題点について　従いまして、＞No4により「3行目」を次に変更したところ＞ActiveWorkbook.FollowHyperlink strFILENAME ＞「ブロジャーの呼び出しまたは引数が不正です。」＞というメッセージが出てしまいこちらはできませんでした。とのことですが、No4 の回答は、「一旦 txtファイルに書き出してからその txtファイルを開く」という方法ですので、No4 の場合には、「strFILENAME」に、その txtファイル名が入っています。＞wshShell.Run ～～＞のところは、＞ActiveWorkbook.FollowHyperlink strFILENAME ＞だけでイケると書きましたが、No1 のように、もともとあるコードに「追記」するだけの場合には、＞「3行目」を次に変更しても、「strFILENAME」には何も入っていませんので、エラーになります。 -------------------------------- 【３】「張り付けたあと」の操作について＞張り付けたあと、EmEditorのマクロを使用して、貼り付け内容を操作　やはり、私の思った通り（No1 の後半部分）で、Excel VBA と EmEditor とを併用しなくても、Excel VBA だけで済む操作のようですね。　以下の点を拝見すると、やはり、No4 のやり方を少しずつ弄っていけば、Excel VBA だけで目的が完了します。＞１．空白行の削除 TS.WriteLine Cells(j, Mid("FEDCAB", i, 1)).Value の時点で、「Cells(j, Mid("FEDCAB", i, 1)).Value」が空白であるか否かを判定して、空白でない場合のみ「TS.WriteLine」する。＞２．テキスト１行目（タイトルにあたる）の10文字めからうしろ（文字数不定）を削除し、そこに４文字程度追記（追記文字はファィルごとに変わります）　ファイルごとに変わる「追記文字」を別途、VBA に書き込んでおけば、「i = 1」・「j = rngStart.Row」のときの TS.WriteLine Cells(j, Mid("FEDCAB", i, 1)).Value の時点で、「Cells(j, Mid("FEDCAB", i, 1)).Value」の＞10文字めからうしろ（文字数不定）を削除し、そこに４文字程度追記する。＞３．修正した１行目をクリップボードに貼り付け＞４．ファイル保存を呼び出し、＞５．ファイル名に３でクリップした文字を貼り付け＞６．そのファイル名でファイル保存 strFILENAME = "D:\hoge\Group_" & k & ".txt" の行で、「Group_" & k & ".txt"」のところに「そのファイル名」を入れる。＞当然２のところも、追記部分は手動　これも、「追記文字はファィルごとに変わ」る法則があれば簡単なことです。法則がなければ、配列に入れておくという手もあります。というような段取りになります。 -------------------------------- 　長くなりましたので、回答を２つに分けます。

質問者

お礼 2010/08/28 07:38

他のファイル（この場合txt）の保存指示もエクセルマクロ内でできるのですか。（エクセルではファイルを開くところまでで、あとはそちらの作業に引き継ぐのかと思ってます）＞当然２のところも、追記部分は手動　これも、「追記文字はファィルごとに変わ」る法則があれば簡単なことです。法則がなければ、配列に入れておくという手もあります。先に書いたようにマチマチです。正確にいえば１０種類くらいなのでプルダウン方式で選択可能なマクロで対応することは可能です。ただ、ファィル名だけの変更でなく各テキストの１行めもなおすす必要があります。それからNo6(No4の修正版と考えていいですよね）ですが、基本的なこととして、この記述は先に別のマクロで現在運用している(別Q&ANo7)へのテキストへの保存部分を追記するものでしょうか。それともNo7を置き換える形でしょうか。記述内容を見ていると、データを収集している部分があるような、ないようなよくわからないからです。１行ずつの記述の意味を直接教えてくれるような身近な人がいれば理解度は早いのですが、悲しいかな、独力ではなかなか理解しきれずご迷惑をかけます。なおNo1～No4のそれぞれの趣旨についてはわかりやすかったです。ただ、No2の「EmEditor で開くのではなくて」というのは、TXTファィルに書き込んだらそのまま保存すれば、EmEditorで再度開く必要がないのではないかと疑問を持ちました。保存できればいいので、それを再度あけるときはEmEditorwで関連付けしてあるので、保存の都度開くことはないような気がしているのですが。