从文本文件到单元格的Excel公式

我想从文本文件中获取公式到单元格以通过命名范围来标识行。 我有这个macros:

Dim objStream Dim strData As String Set objStream = CreateObject("ADODB.Stream") objStream.Charset = "utf-8" objStream.Open objStream.LoadFromFile ("path_of_txt_file") strData = objStream.ReadText() strData = Trim(Application.Clean(strData)) Columns("A:A").Select Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove Range("A1").Select ActiveCell.Value = "Name" Range("A2").Select Range("A2").FormulaR1C1 = strData 

文本文件包含像这样:

 =IF( OR( named range="this"; named range="that"; named range="something" ); "True"; "False" ) ... 

它是一个嵌套的IF公式。

没有平等的标志,但我需要把它放在手工。 有了这个,我得到这个错误

 Runtime error '1004': Application-defined or object-defined error 

我怎样才能解决这个问题? 我用价值而不是FormulaR1C1,但结果相同。

感谢所有的答案!

Range("A2").FormulaR1C1 = strData似乎没有问题Range("A2").FormulaR1C1 = strData 。 取代; 在公式与工作。

发布答案,因为它为OP工作。