Question

我已经阅读了许多这个代码有效的例子;但是，当我尝试执行它时，它不起作用，我不明白为什么。

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。通过定义活动表，工作表名称，活动工作簿等尝试了它，仍然得到同样的错误。我读过的所有内容都表明它应该有用，但同样，它不是。

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

以下是我用作参考的一个例子：

enter link description here

Answer 1

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

使用该引用，此代码在我测试时起作用。

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

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

1 个答案: