「calculationメソッドは失敗しました」とエラーが出ます

Question

以下のコードのcalculationプロパティを設定しようとした時に「calculationメソッドは失敗しました」とエラーが出ます。
生成したエクセルのインスタンスのcalculationプロパティは設定できないんでしょうか？

Public Sub test()


    Dim xls As New Excel.Application
    
    Dim wk As Workbook

    
    xls.ScreenUpdating = False
    xls.EnableEvents = False
    xls.Calculation = xlCalculationAutomatic


End Sub

Answer 1

VBAですよね？
わざわざ「Dim xls As New Excel.Application」をせずとも、

Application.Calculation = xlCalculationAutomatic

で良いです。

補足として、なぜご質問のソースでうまくいかないかというと、
"xls"変数に紐づくワークブックがないがためにCalculationする対象がないからです。
だからエラーが発生するのです。

xls.Workbooks.Add を実行した後に
xls.Calculation = xlCalculationAutomatic
を実行するとエラーは起きません。

Comments

[pgnoobdesu]

なるほど！
ありがとうございました！