对象全局失败vba的方法单元格

Question

我正在使用下面的代码在 excel 中引用一个范围并将一个值放入其中。 该代码第一次运行良好，但如果我再次加点就会失败。 我收到错误消息（见标题）。 下面是我的代码，有人能看到任何问题吗？

xlApp.Workbooks("JDE1.xlsx").Sheets("TempHours").Range(Cells(2, 18), Cells(Cells(ws.Rows.Count, 1).End(xlUp).Row, 18)).Value = Batch

Answer 1

我知道这是一个老问题，我碰巧遇到了这个问题，但我仍然会继续回答它。

您需要完全限定您的单元格对象。 注意cells()之前的 DOT 吗？ 人们应该始终像您为Sheets("TempHours")所做的那样完全限定对象。

With xlApp.Workbooks("JDE1.xlsx").Sheets("TempHours")
    .Range(.Cells(2, 18), .Cells(.Cells(ws.Rows.Count, 1).End(xlUp).Row, 18)).Value = Batch
End With

希望这对未来的游客有所帮助。