Excel Vba - 尝试将系列公式分配给单元格值时的运行时错误1004

Question

我坚持运行时错误代码1004：应用程序定义或对象定义。

当我尝试获取所有图表的所有系列值时，我需要将其粘贴到单元格以便于监视。一切工作正常，但它试图给单元格的值与系列值相等时卡住了。

例子：

Dim xchart As ChartObject 
For Each xchart In ActiveSheet.ChartObjects 

Dim ser As Series 

For Each ser In xchart.Chart.SeriesCollection 
...... 
    Sheet1.Range("a1").Value = ser.Formula ' Run-time Error Occur 
.... 
Next ser  
Next xchart 

任何人可以帮助我解决这个问题？

Answer 1

使用

Sheet1.Range("a1").Value = "'" & ser.Formula 

有存储在单元格

文本值否则将其解释为（未知）公式