複数のサブを一度に1つずつ実行する

Question

他のワークブックとそのマクロを呼び出すために使用するワークブックを作成しました。私はボタンにサブ "ナップ"を割り当てました。私は、更新が必要なときはいつでも押すでしょう。しかし、ボタンを押してブックを開き、マクロを呼び出すと、vbaは特定のワークブックの計算が完了するのを待たずに続行し、次のワークブックのオープンを開始します。私はコマンドApplication.waitを使用しようとしましたが、動作しないようです。それは待つことになるが、平均時間のバックグラウンドでは計算されない。

Sub Knap() 

Call LongerSeries 
Application.Wait (Now + TimeValue("00:03:00")) 
Call QuickCorrelation 
Application.Wait (Now + TimeValue("00:03:00")) 
Call SPX 

End Sub 

Sub LongerSeries() 

Workbooks.Open ("G:\FONDS\Quick financials_Longer Series (2).xlsb") 
Application.Run "RefreshData" 

End Sub 

Sub QuickCorrelation() 

Workbooks.Open ("G:\FONDS\Quick correlation_1.xlsb") 
Application.Run "RefreshData" 

End Sub 

Sub SPX() 

Workbooks.Open ("G:\FONDS\Quick Intra Corr (SPX)_1.xlsb") 
Application.Run "RefreshData" 

End Sub 

Answer 1

アレイを試しましたか？

Sub Knap() 

Dim MyWorksheets() 

MyWorksheets = Array("LongerSeries", "QuickCorrelation", "SPX") 

For Each mw in MyWorksheets 
    If mw = "LongerSeries" then 
     Call LongerSeries 
    ElseIf mw = "QuickCorrelation" Then 
     Call QuickCorrelation 
    ElseIf mw = "SPX" Then 
     Call SPX 
    Else 
    End If   
Next  
End Sub 

Sub LongerSeries() 

Workbooks.Open ("G:\FONDS\Quick financials_Longer Series (2).xlsb") 
Application.Run "RefreshData" 
Application.Calculate 
If Not Application.CalculationState = xlDone Then 
    DoEvents 
End If 

End Sub 

Sub QuickCorrelation() 

Workbooks.Open ("G:\FONDS\Quick correlation_1.xlsb") 
Application.Run "RefreshData" 
If Not Application.CalculationState = xlDone Then 
    DoEvents 
End If 

End Sub 

Sub SPX() 

Workbooks.Open ("G:\FONDS\Quick Intra Corr (SPX)_1.xlsb") 
Application.Run "RefreshData" 
If Not Application.CalculationState = xlDone Then 
    DoEvents 
End If 

End Sub 

これが役に立ちます。

Answer 2

このようにしてみてください。

Sub LongerSeries() 
    Workbooks.Open ("G:\FONDS\Quick financials_Longer Series (2).xlsb") 
    Application.Calculate 
    Application.Run "RefreshData" 
End Sub 

それはすべて開いたワークブックにclaculationを強制します。 See more about Calculate here。