从Access vba应用Excel条件格式的过程调用或参数无效

我已经阅读了许多这个代码工作的例子。 然而，当我尝试执行它，这是行不通的，我不明白为什么。

Dim xl As Object Set xl = CreateObject("Excel.Application") xl.Range("G2:G375").FormatConditions.Add Type:=xlExpression, Formula1:="=OR(G2=""New"",G2=""Reintroduced"")" 

我得到一个Run-time error '5': Invalid procedure call or argument 。 已经通过定义活动工作表，工作表名称，活动工作簿等来尝试它，并仍然得到这个相同的错误。 我读过的所有东西都说它应该可以工作，但是它不是。

此外，电子表格中的数据在代码中的其他位置打开。

这只是我用作参考的一个例子：

在这里input链接描述

Answer 1

您可能需要在Access中添加对Microsoft Excel对象库的引用。

有了这个参考，这个代码在我testing时工作。

 Dim xl As Excel.Application Set xl = New Excel.Application xl.Workbooks.Add xl.ActiveWorkbook.ActiveSheet.Range("G2:G375").FormatConditions.Add Type:=xlExpression, Formula1:="=OR(G2=""New"",G2=""Reintroduced"")" xl.Visible = True