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

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

Answer 2

最近我在另一台笔记本电脑上工作时遇到了同样的公式问题。发现公式不对，设置了excel为“,”，而公式中含有“;”作为分隔符。经典。

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

Invalid procedure call or argument applying Excel conditional formatting from Access vba

excel

ms-access

vba

conditional-formatting