Excel VBA : cannot Sum() over Range()

Question

我应该如何修复此代码，因为它抛出:“该对象不支持此属性或方法”

Sub macro1()
    Workbooks("OUTPUT.xls").Sheets("Sheet1").Activate
    ActiveSheet.Range("B4") = _ 
    Workbooks("INPUT.xlsx").Sheets("Sheet1").Sum(Range("D40:D50"))
End Sub

上面的代码在调整后工作正常:

Sub macro2()
    Workbooks("OUTPUT.xls").Sheets("Sheet1").Activate
    ActiveSheet.Range("B4") = _
    Workbooks("INPUT.xlsx").Sheets("Sheet1").Range("D40")
End Sub

但是，这不是可接受的解决方案，因为我想按照 Macro1() 中的描述对 Range() 进行 Sum() 。

Answer 1

尝试

ActiveSheet.Range("B4").Formula = Application.WorksheetFunction.Sum(Range("D40:D50"))