从文本文件到单元格的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工作。