從文本文件到單元格的Excel公式

Question

我想從文本文件中獲取公式到單元格中，以按命名范圍標識行。 我有這個宏：

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

我怎樣才能解決這個問題？ 我嘗試使用Value而不是FormulaR1C1，但是結果相同。

感謝所有答案！

Answer 1

Range("A2").FormulaR1C1 = strData似乎沒有問題。 更換; 在的公式中,有效。

發布答案，因為它適用於OP。