ふたつのExcelファイルを制御するには？ (ID:28860)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

Serverコンポーネンツを利用して、二つのExcelファイルを比較しようとしています。まず、
  ExcelApplication1.Connect;
  ExcelApplication1.Visible[0] := true;
  ExcelApplication1.Workbooks.Open(TankaFileName,
                                   EmptyParam,
                                   EmptyParam,
                                   EmptyParam,
                                   EmptyParam,
                                   EmptyParam,
                                   EmptyParam,
                                   EmptyParam,
                                   EmptyParam,
                                   EmptyParam,
                                   EmptyParam,
                                   EmptyParam,
                                   EmptyParam,
                                   0);
  ExcelWorkBook1.ConnectTo(ExcelApplication1.Workbooks.Item[1]);
  ExcelWorkSheet1.ConnectTo(
    ExcelWorkBook1.Worksheets['発注単価'] as _Worksheet);

を実行して一つめのワークブックをオープンしてデータを抽出する作業を行います。それが終わったら、

Excelapplication1.Disconnect;
  Excelapplication1.Quit;

で、一つめを終了させます。さらに

ExcelApplication2.Connect;
  ExcelApplication2.Visible[0] := true;
  ExcelApplication2.Workbooks.Open(KouteiFileName,
                                   EmptyParam,
                                   EmptyParam,
                                   EmptyParam,
                                   EmptyParam,
                                   EmptyParam,
                                   EmptyParam,
                                   EmptyParam,
                                   EmptyParam,
                                   EmptyParam,
                                   EmptyParam,
                                   EmptyParam,
                                   EmptyParam,
                                   0);
  ExcelWorkBook2.ConnectTo(ExcelApplication2.Workbooks.Item[1]);
  ExcelWorkSheet2.ConnectTo(
    ExcelWorkBook2.Worksheets['未出荷'] as _Worksheet);

として二つめのワークブックをオープンしたいのです。
  ところが、この二つを一つのボタンのイベントとして連続実行すると、一つめがクローズする前に二つめが開いてしまい、「インデックスが無効です」というエラーになってしまいます。
  ところが、この二つをそれぞれ別のボタンのイベントとして定義してやるとそれぞれ正常に動きます。思うに、一つめの終了を監視したらうまくいくのでは、と考えています。何か適当な方法はありませんか？

←解決時は質問者本人がここをチェックしてください。

戻る