VBAでAS400の処理が終わってから次の処理へ行きたい

Question

VBAで、AS400からデータをダウンロード→Excelを開く→Excelへ貼り付けという作業をやりたいのですが、AS400からのデータダウンロードにかかる時間が定まっておらず、Waitメソッドなどを使うにしても何分にすればいいのかわからないような状況です。

AS400での処理中は待つなどということは可能でしょうか？もしくはAS400のマクロでしか出来ないのでしょうか？

使っている機種
Windows10です。
AS400のバージョンなどは不明です。

[追記]
AS400はIBMのサーバーのAS400のことです。
ダウンロードの終了時間が分からないのは本当に時間がまちまちであり、前に処理したときの最長時間を超えるかどうかの判断が出来ないためです。
As400からのデータダウンロード方法は、.dtfという拡張子のAS400でデータダウンロードするための定義を使っております。

Comments

[dodox86]

いきなりAS400などと書かれても誰も分からないと思います。IBMのサーバーAS/400のことでしょうか？ また、ダウンロードするのは自分自身のVBAのプログラムなのですよね。そうであればなぜ、ダウンロードの終了が自分で分からないのでしょうか。

[otn]

AS400からデータをダウンロードはどうやっていますか？

[porpora_0316]

情報足らずで申し訳ございません。
AS400はIBMサーバーのことで、なぜダウンロードの終了が分からないのかは時間がまちまちで、次に同じ処理をしたときに今の最長時間を超えるのか超えないのかも不明だからです。
今はしばらく放置したうえでちょこちょこと確認しています。
AS400からデータをダウンロードはdtfというAS400からデータ転送するための者を使っております。

Answer 1

AS400からのダウンロードをこのような方法で行えば
ダウンロード後に実行できるように思えましたが、いかがでしょうか

https://a-habakiri.hateblo.jp/entry/2016/11/22/221242

Answer 2

As400からのデータダウンロード方法は、.dtfという拡張子のAS400でデータダウンロードするための定義を使っております。

１．ダウンロード対象のファイルが１つなのか、複数なのか。
２．ダウンロード対象のファイルをどのように作成しているのか。
方式１：一時ファイルに出力し、完了した時点で、正しいファイルにリネームしている。
方式２：いきなり正しいファイル名を作成し、そのファイルに書き込んでいる。
上記について、どのようになっているかが、不明なので、一般論で回答になります。
方法としては、いかのようになります。
１．ダウンロード対象が存在するかをチェックする。
２．存在しない場合、一定時間スリープし、１へ戻る。
３．方式１でおこなっているなら、ダウンロード完了となる。
４．方式２で行っている場合は、確実な完了の判定ができない為、以下の方法をとる。
５．そのファイルのファイルサイズを取得し、そのサイズが一定時間、変わらなければ、完了とする。

あなたの環境で、もし、以下のようなダウンロードができるなら、この方法が確実です。
１．ダミーのファイル（空のファイル）をAS400に作成しておく。
２．ダウンロード対象のファイルの最後にダミーファイルを追加する。
（必ず、最後にダミーファイルがダウンロードされること）
３．ダミーファイルが出現するまで、監視し、出現した時点で、ダウンロード完了とする。

Comments

[porpora_0316]

ありがとうございます！
無事に解決しました。