VB代码错误'运行时错误1004在VB "方法单元的对象"global_failed& #

Question

我得到了这个错误

runtime error 1004 in VB "method cells of object global_failed"

这些是我的代码:

Set oXL = EDOffice1.GetApplication()
Dim oWB As Excel.Workbook
Set oWB = EDOffice1.ActiveDocument()
Dim oSheet As Excel.Worksheet
Dim oRng As Excel.Range
Dim SUM As Long
Set oSheet = oWB.ActiveSheet

Range("F1").Formula = "=SUM(" & Range(Cells(2, 2), Cells(25, 2)).Address(False, False) & ")"

请帮。

Answer 1

也许您不在sheet代码中调用Cells而不引用工作表。

试着确定你想要做的工作表，并使用:

Sheet.Range("F1").Formula = "=SUM(" & Sheet.Range(Sheet.Cells(2, 2), Sheet.Cells(25, 2)).Address(False, False) & ")"

Answer 2

Try this (untesting)

将Range("F1").Formula = "=SUM(" & Range(Cells(2, 2), Cells(25, 2)).Address(False, False) & ")"行更改为

With oSheet 
    .Range("F1").Formula = "=SUM(" & _
                           .Range(.Cells(2, 2), .Cells(25, 2)).Address(False, False) & _
                           ")"
End With