Excel VBA：從動態工作表中選擇圖表數據

Question

我正在嘗試創建一個程序，將多個數據集加載到它們自己的工作表中，然后基於該數據創建一個圖表。 我一直在努力獲取圖表的正確數據。 我一直在使用計數器來標記我的數據集，因為它們被放置在工作表上。 我的工作表名稱已定義為如下所示的字符串。 程序嘗試獲取數據時收到錯誤。

Dim CurrentSheet is string
CurrentSheet = ActiveSheet.Name

Charts.Add
ActiveChart.SeriesCollection(1).Values = "=CurrentSheet!$C$2:$C$100000"
ActiveChart.SeriesCollection(1).XValues = "=CurrentSheet!$A$2:$A$100000"

Answer 1

嘗試：

Dim CurrentSheet As String

CurrentSheet = ActiveSheet.Name
Charts.Add
ActiveChart.SeriesCollection(1).Values = "=" & CurrentSheet & "!$C$2:$C$100000"
ActiveChart.SeriesCollection(1).XValues = "=" & CurrentSheet & "!$A$2:$A$100000"

以后編輯

更好的方法是處理工作表名稱中包含白色字符的情況：

Dim CurrentSheet As String

CurrentSheet = ActiveSheet.Name
Charts.Add
ActiveChart.SeriesCollection(1).Values = "='" & CurrentSheet & "'!$C$2:$C$100000"
ActiveChart.SeriesCollection(1).XValues = "='" & CurrentSheet & "'!$A$2:$A$100000"