我的VBA没有返回任何错误，但不会在MS-Excel中设置单元格的值

也许只是因为它仍然是早晨，但我不明白为什么我的程序不会按预期做。 我通常非常相似的代码来设置代码的其余部分的值，但这套不会工作。

public sub setValue(wrkBook as object, wrkSht as object) dim CurCell as object wrkSht = wrkbook.Sheets("TestSheet") Set curCell = wrkSht.Cells(4,1) CurCell.Value = "Test" end sub 

它不会返回任何错误，它只是不会将单元格（4,1）的值设置为“test”。 我正在使用Acess内部的VBA

Answer 1

wrkShr与wrkSht不一样：

 Public Sub setValue(wrkBook As Object) Dim CurCell As Range, wrkSht As Worksheet Set wrkSht = wrkBook.Sheets("TestSheet") Set CurCell = wrkSht.Cells(4, 1) CurCell.Value = "Test" End Sub 

注意：

除了拼写外，我们还修正了Dim的值，并使用Set来创build工作表对象。