Complex(?) Excel 公式不能用 VBA 寫入 DataBodyRange

Question

通過 VBA，我從以文本形式存儲公式的配置表中讀取公式，並將它們作為真實公式寫入其他文件。 當這樣的公式 = '=1+1 這將 go 很好，但是公式

'=IFNA(INDEX(tblRoute[ROUTE_ID];MATCH(TRUE;INDEX(tblRoute[RouteFuncKey]=[@RouteFuncKey];0);0));">>> Niet aanwezig!") 

導致錯誤。

我將配置表放入一個數組並從中讀取公式如下：

strNewFormula = arrTableFieldsWithUpdateAction(6, i)

我用以下公式編寫公式：

wbkMDRoutingRCGFile.Worksheets(strTableWorksheet).ListObjects(1).ListColumns(strTableField).DataBodyRange.Formula = strNewFormula

發生意外錯誤：

運行時錯誤“1004”：應用程序定義的或對象定義的錯誤。

Answer 1

如果公式在邏輯上是正確的，那么參數分隔符會給你帶來麻煩。

公式

=IFNA(INDEX(tblRoute[ROUTE_ID];MATCH(TRUE;INDEX(tblRoute[RouteFuncKey]=[@RouteFuncKey];0);0));">>> Niet aanwezig!")

通過 VBA 應該是

=IFNA(INDEX(tblRoute[ROUTE_ID],MATCH(TRUE,INDEX(tblRoute[RouteFuncKey]=[@RouteFuncKey],0),0)),">>> Niet aanwezig!")

即所有分號都應替換為逗號！