對象「global_failed」的VB代碼錯誤「vb」方法單元格中的「運行時錯誤1004」。

我得到這個錯誤對象「global_failed」的VB代碼錯誤「vb」方法單元格中的「運行時錯誤1004」。

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) & ")"

請幫助。

來源

2013-05-06 Gibrilla

試試這個（未經測試）

改線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

來源

2013-05-06 20:08:04

ahahah，它可以完美運行。希望這是一個永久的解決方案。我第一次嘗試它可以正常工作，但是反覆運行後失敗了。 – Gibrilla 2013-05-06 20:35:51

更改此行'設置oWB = EDOffice1.ActiveDocument（）'爲'設置oWB = EDOffice1.ActiveWorkbook（）'如果它允許您試用它？ – 2013-05-06 20:38:04

在設置它們之後，還要使用適當的錯誤處理來檢查「oWB」和「oSheet」是否是有效的對象。 – 2013-05-06 20:40:05

也許你不是一個sheet代碼中調用Cells沒有引用表。

嘗試找出你要做到這一點，利用表：

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

來源

2013-05-06 20:09:00

是的，它使用oSheet指定表單後工作。謝謝。 – Gibrilla 2013-05-06 20:37:37

對象「global_failed」的VB代碼錯誤「vb」方法單元格中的「運行時錯誤1004」。

回答

相關問題