コードがVBAで終了しない限りシェルでExcelが開かない

Question

VBAで "im exportissues 123456"クエリを使用してPTC（MKS）からCR（変更要求）ステータスを取得しようとしています。私のコードが終了しない限り、ステータスシート（クエリで開く新しいExcelシート）を開きます。以下は私のコードのスニペットです。

Sub Query_CR_Status() 

    shell_output = Shell("im exportissues 123456", 1)  'this should open up a new excel sheet containing CRs) 

    Application.Wait (Now + TimeValue("0:00:20"))   'waiting 20sec 

    'here: My code which will read information from the above generated excel sheet 
End Sub 

しかし、ここで私の問題は、新しいExcelシートで、それは「End Subの」

Answer 1

Application.Wait()は、指定された時間のための何をやってからアプリケーションを防ぐことができますするために達しない限り、オープンscroll down toパソコンへ転送。だから、もしあなたがブックを開くコマンドをシェルすると、アプリケーションはを待つとが待っていると遅れます。

あなたがしようとするようなものを使用することによってこの問題を回避することができます

Sub Query_CR_Status() 

Dim wbC As byte 
wbC = Workbooks.Count 

    shell_output = Shell("im exportissues 123456", 1) 

    While Workbooks.Count = wbC 
     DoEvents '// Process pending messages until workbook count changes 
    Wend 

    '// Rest of code 

End Sub 

---

はまた、チップピアソンはこのに適しかもしれない機能を作成しました。