Question

我想从textfile获取公式到单元格，以按命名范围标识行。我有这个宏：

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的答案。

从textfile到cell的Excel公式

1 个答案: