我将 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"