WSHで自動化ソフトを作りたいけど、エクセルとの連携、エラー防止はどうすれば？

質問

以下の業務を自動をするために、WSHでプログラムを作っていますが、４点困っていることがあります。

●●●業務内容●●●
１、業務のメールボックスをactivateする。
２、sendkeys("{Enter}")を使って、メールを開く。
３、AlTからEditツールのEDIT、を選択し、メールを編集状態にする。
４、CTRL＋Fで、文字列検索。（「発表日」を検索します。）
５、「発表日」の下に発表される日時が8桁で表示されているので、sendkeysを使い、コピー。
６、業務に使うエクセルファイルをactivateする。
■■ここでVBAを使いたいのですが、WSH内のプラグラム内で、VBAを入力することは可能でしょうか？■■
７、エクセルファイルを開いたら、発表日がある列の空白セルのひとつにペースト。（上のセルから順にペーストしていくので、 i=1 activate.cells(F,i) i=i=1 do while i=10のようにコマンドするつもりです。）
８、業務のメールボックスを再びActivateする。
■■（業務のメールボックスは新しいメールをタブでふぴじする仕組みになっているので、どうのようにActivateすればいいか困っています。）■■
９、開いてあるメールを閉じる。（Sendkeysで閉じる予定です）（これから処理する全てのメールを開いたまま、プログラムを実行すれば、確実にエラーが起きるような数のメールなので。）
１０、メールボックスに戻るので、{down}と｛enter｝で次のメールを開く。
繰り返し。

●●●困っていること●●●
１、sendkeysをなるべく使わずに実行したい。
sendkeysでは、たとえば他のプラグラム（セキュリティーソフトなど）が実行された場合でも、そのまま実行され続けるので、リスクが大きい。
２、仮に１で書いたような事態が起きた場合、プログラムを自動的に停止するようにしたいが、どのやってコンピューターにエラーが起きていると判断させるかわからない（違うメールやプログラムを開いている場合に呈する等）。
３、エクセルと連携させて、Sendkeysを減らしたい。
４、繰り返し処理はこの場合、どうやって命令するのか。

●●●今のコード●●●
var WShell = WScript.CreateObject("WScript.Shell");
WShell.AppActivate("業務に使うメールソフト(別のウィンドウに開いてある必要があります)");
WShell.Sendkeys("{ENter}");
WScript.sleep(100);
WShell.sendkeys("%");
WScript.sleep(100);
WShell.sendkeys("a");
WScript.sleep(100);
WShell.sendkeys("d");
WScript.sleep(100);
WShell.sendkeys("^F");
WScript.sleep(100);
WShell.sendkeys("検索したい文字列");
WScript.sleep(100);
WShell.sendkeys("｛ESC｝");
WShell.sendkeys("{DOWN}");
WScript.sleep(100);
WShell.sendkeys("+{RIGHT}{RIGHT}{RIGHT}{RIGHT}{RIGHT}{RIGHT}{RIGHT}{RIGHT}");
WScript.sleep(100);
WShell.sendkeys("^c")
WScript.sleep(100);
WShell.AppActivate("EXCEL");
WScript.sleep(10000);
WShell.sendkeys("セルまで移動")
WShell.sendkeys("^V");
WShell.AppActivate("業務に使うメールソフト");
WShell.sendkeys("%");
WShell.sendkeys("w");
WShell.sendkeys("window がある番号");
WShell.sendkeys("%");
WShell.sendkeys("^W");
WShell.sendkeys("{DOWN}");
WScript.Echo "作業が完了しました。"

回答No.8

SHIMAPEE

●回答番号 No.7の補足へのアドバイスです。スクリプト例です

SaveFile0001.txt、SaveFile0002.txt、SaveFile0003.txt…というファイル名でデータが保存されているものとします。

『// 目的の文字列を抽出してExcelに書き込みます---』の下のコメントのルールで目的の8文字を抽出してExcelに書き込みます。何を検索するか、1行読み飛ばしが必要か等はご判断下さい。

-----
// テキストファイル内を検索してExcelに書き込む
var Fs = WScript.CreateObject("Scripting.FileSystemObject");
var ForReading = 1;
var ExportDir = "C:\\test\\";
var SaveBase = "SaveFile";
var FileName = "c:\\test\\test.xls"; //★Excelファイル名
var MaxRow = 1000; //★ さしあたり1000行の範囲で処理する。

oExcel = WScript.CreateObject("Excel.Application");
oExcel.Visible = true;
oBooks = oExcel.WorkBooks.Open(FileName);
for (Row = 1; Row < MaxRow; Row++) {
if (oExcel.Cells(Row, 1).Value == null) // A列の空きセルを探す。
break;
}

Count = 0;
for (FileIndex = 1; ; FileIndex++) {
Num = "0000" + FileIndex;
SaveFileName = ExportDir + SaveBase + Num.substr(Num.length-5, 5) + ".txt";
if (!Fs.FileEXists(SaveFileName))
break;
Count++;
TextFile = Fs.OpenTextFile(SaveFileName, ForReading);
try{
// 目的の文字列を抽出してExcelに書き込みます---------------------
while(!TextFile.AtEndOfStream){
Line = TextFile.ReadLine();
if (Line.match(/DATES:Material ID/)) // タイトル行まで読み飛ばす
break;
}
Line = TextFile.ReadLine(); // 1行読み飛ばす（不要なら削除）
Line = TextFile.ReadLine(); // 目的の行を読む
if (Line.match(/.*\t.*\t(........)/)){ // 二つ目のタブ直後の8文字を抽出
// 私の環境だと09/04/10は2010/9/4になるので書式を文字列に設定する。
// 必要なら文字を入れ替えて日付として扱うことも可能。
oExcel.Cells(Row + FileIndex-1, 1).NumberFormatLocal = "@";
oExcel.Cells(Row + FileIndex-1, 1).Value = RegExp.$1;
}
//---------------------------------------------------------------
}
finally{
TextFile.Close();
}
}
WScript.Echo(Count + "件のテキストファイルを処理しました。");
-----

「ついで」に対しては例えば次のように書き換えます。

-----
// 目的の文字列を抽出してExcelに書き込みます---------------------
while(!TextFile.AtEndOfStream){
Line = TextFile.ReadLine();
if (Line.match(/RFA SPB/)) // タイトル行まで読み飛ばす
break;
}
Line = TextFile.ReadLine(); // 1行読み飛ばす（不要なら削除）
Line = TextFile.ReadLine(); // 目的の行を読む
if (Line.match(/.*\t.*\t(......)/)){ // 二つ目のタブ直後の6文字を抽出
oExcel.Cells(Row + FileIndex-1, 1).Value = RegExp.$1;
}
//---------------------------------------------------------------
-----

●回答番号 No.7のお礼へのアドバイスです。

メール処理のスクリプトはこちらでは試せませんので何とも言えませんが、
・一覧画面で処理する先頭のメールを選択した状態で開始するのでしたら、いきなり"{DOWN}"はおかしいです。一つのメールを処理した後に"{DOWN}"では。
・exportの形式はDefaultのままでは不都合がありますか。
・メールを閉じるのはCTRL+W ("^W") を使うのが簡単では。
・ファイル名の入力はどこに？
・コメント記号や括弧が抜けています。

メール1件の処理が完成しましたら回答番号5のスクリプトに組み込んでみては。繰り返し処理については一つの解を示しています。

お礼

ご回答とご指摘ありがとうございます。
返事が遅れてすみません。

＞・一覧画面で処理する先頭のメールを選択した状態で開始するのでしたら、いきなり"{DOWN}"はおかしいです。一つのメールを処理した後に"{DOWN}"では。
Appメソッドだけでは、なぜか完全にアクティブにはならず、Enterを押しても認識されないのです。そこで、色々なキーを試したら、矢印キーを打てば、アクティブになることがわかったのです。

export作業の自動化をするためのプログラムは補足に記載します。
これは勉強不足を痛感する作業でした。
VBAの勉強は、まずマクロを記録して記録したマクロを読むことでやっていたので、大雑把な知識しかありません。
これから何かを自動化したいというとき、また人に頼るというわけにもいきませんし、教えてもらったのに理解できていないというのは不誠実に感じます。
そのため、いちからプログラミングを勉強しなおそうと思っています。プログラミングは、１を覚えれば１ができるわけではなく、１０を覚えてようやく１ができるようになるものだと実感しました。しかし、勉強方法はまだ掴めていないので、よろしければアドバイスを頂けないでしょうか？

＞・exportの形式はDefaultのままでは不都合がありますか。
Defualtでも問題ありません。

＞・メールを閉じるのはCTRL+W ("^W") を使うのが簡単では。
原因はわかりませんが、これもだめでした。

＞・ファイル名の入力はどこに？
WShell.sendkeys("i");
です。

＞・コメント記号や括弧が抜けています。
ありがとうございます。修正しました。

補足

var Wsh = WScript.CreateObject("WScript.Shell");
var MB_YESNO=4, MB_ICONQUESTION=32, MB_TOPMOST=0x40000, IDYES=6;
var ExportDir = "C:\\test\\";
var SaveBase = "SaveFile";
var Default = 10;
oExcel = WScript.CreateObject("Excel.Application");
try{
while(true){
Count = oExcel.InputBox("処理するメールの件数を指定して下さい。[1-100]",
"件数の入力", Default);
if (!Count)
WScript.Quit();
if ((1<=Count)&&(Count<=100))
break;
}
}
catch(e){}
finally{
oExcel.Quit();
}
if((Wsh.Popup(Count + "件のメールを \"" + ExportDir + "\" にExportします。\r\r"+
"実行しますか？",
0,"実行の確認",MB_YESNO+MB_ICONQUESTION+MB_TOPMOST))!=IDYES)
WScript.Quit();
// 実行
for (i = 1; i <= Count; i++){
Num = "0000" + i; // ついでにファイル名の生成の方法
SaveFileName = ExportDir + SaveBase + Num.substr(Num.length-5, 5) + ".txt";
WScript.Echo(SaveFileName);

// ここにexportの処理を書く
// {DOWN}
WShell.AppActivate("業務に使うメールソフト");
WScript.sleep(10000);
WShell.Sendkeys("{DOWN}");//業務のメールソフトを完全にアクティブにする
WShell.Sendkeys("{ENter}");//メールを開く
WScript.sleep(100);
WShell.sendkeys("%");//alt
WScript.sleep(100);
WShell.sendkeys("f");//fileを選択
WScript.sleep(100);
WShell.sendkeys("e");//exportを選択
WScript.sleep(100);
WShell.Sendkeys("{ENter}");
WScript.sleep(3000);
WShell.sendkeys("i");//ファイル名を入力
WScript.sleep(100);
WShell.sendkeys("｛Enter｝");//ファイル名を決定
WScript.sleep(20000);//２０秒まつ
WShell.sendkeys("%");//Alt
WScript.sleep(100);
WShell.sendkeys("f");//file
WScript.sleep(1000);
WShell.sendkeys("{DOWN}{DOWN}{DOWN}");//closeを選択
WShell.Sendkeys("{ENter}");
WShell.Sendkeys("{Down}")//次のメールを選択
}
WScript.Echo(Count + "件のメールを処理しました。");