分配Range.Formula时出现错误1004
我正在尝试在VBA中将公式写入Excel工作表。 这是我的代码:
destWorkBook.Sheets("Forecast Sheet").range("A" & i).Formula = "=IF(ISERROR(MATCH(C" & i & ", ""'Forecast Sheet Old'""!C:C,0)), ""'NEW'"", IF(H" & i & "=""'Forecast Sheet Old'""!H" & i & ",""''"",""'CHANGED'""))"
不知何故,它不工作,无论我尝试:
destWorkBook.Sheets("Forecast Sheet").range("A" & i).Formula = "=IF(ISERROR(MATCH(C" & i & ", 'Forecast Sheet Old'!C:C,0)), 'NEW', IF(H" & i & "='Forecast Sheet Old'!H" & i & ",'','CHANGED'))"
像这样或者其他的一百万事物,根本就不是这个公式。
错误消息是:
运行时错误1004:应用程序定义或对象定义的错误
这应该工作,许多撇号
destWorkBook.Sheets("Forecast Sheet").Range("A" & i).Formula = "=IF(ISERROR(MATCH(C" & i & ", 'Forecast Sheet Old'!C:C,0)), ""NEW"", IF(H" & i & "='Forecast Sheet Old'!H" & i & ","""",""CHANGED""))"