如何将公式作为参数从textfile传递到vbscript函数

我试图将以下公式作为参数从文本文件传递到vbscript函数，但在运行时收到未知的运行时错误

文本文件：

=IF(ISBLANK(H2),"""",(CONCATENATE(""0"",K2)))

Function PopulateFormula(fmula,filename)

Set Destfile = CreateObject("Excel.Application")

    Set DWB = Destfile.Workbooks.Open(filename)

    Set fso = CreateObject("Scripting.FileSystemObject")

    Set FormulaLogic = fso.OpenTextFile(textfile)   

                fmula=FormulaLogic.ReadLine()

              DWB.Worksheets(1).Range(M2:M2).Formula = fmula

End function

VBS功能：

=IF(ISBLANK(H2),"""",(CONCATENATE(""0"",K2)))

Function PopulateFormula(fmula,filename)

Set Destfile = CreateObject("Excel.Application")

    Set DWB = Destfile.Workbooks.Open(filename)

    Set fso = CreateObject("Scripting.FileSystemObject")

    Set FormulaLogic = fso.OpenTextFile(textfile)   

                fmula=FormulaLogic.ReadLine()

              DWB.Worksheets(1).Range(M2:M2).Formula = fmula

End function

如果我使用

---

fmula==IF（ISBLANK（H2），“”，（CONCATENATE（“0”），K2））

您确定从文件中正确读取了fmula吗

添加一条语句以检查它：

fmula=FormulaLogic.ReadLine()
MsgBox fmula
DWB.Worksheets(1).Range(M2:M2).Formula = fmula