定义一个字符串作为选项卡名称,我如何使用它?

定义一个字符串作为选项卡名称,我如何使用它?

我将 fname 定义为选项卡名称,并且我想从当前选项卡更改图形数据。但是当我使用 fname 时,如下所示,什么都没有发生。

Sub paste_and_update_data()

'
' paste_and_update_data Macro
'
Dim fname As String
fname = ActiveSheet.Name


'MsgBox fname

'    ActiveSheet.ChartObjects("Chart 7").Activate
    ActiveChart.PlotArea.Select

    Application.CutCopyMode = False
    ActiveChart.FullSeriesCollection(1).Values = "='fname'!$D$4:$D$8"
    ActiveChart.FullSeriesCollection(2).Values = "='fname'!$F$4:$F$8"
    ActiveChart.FullSeriesCollection(3).Values = "='fname'!$h$4:$h$8"

End Sub

答案1

你需要连接变量在传递给属性或方法之前先转换为字符串。

例如:

ActiveChart.FullSeriesCollection(1).Values = "='" & fname & "'!$D$4:$D$8"

相关内容