VBS for Excel：在范圍選擇中使用腳本變量

Question

我已經看到過類似的問題，要求在excel中使用VBA，但我使用的是VBScript，所以有所不同。 其他問題的答案給了我一些線索，但我只是不知道該如何解決。

我正在使用.SetSourceData定義要在圖形中使用的范圍。 它可以很好地定義從第一行到最后一行（整個工作表）的范圍，但是我想使用前面定義的變量來定義動態范圍。 所以這工作：

.SetSourceData objWorksheet.Range("E1","F" & LastRow), xlColumns

其中LastRow定義為LastRow=objWorksheet.UsedRange.Rows.Count 。 現在我要做的是使用從最后一行開始的范圍，然后再返回幾行。 所以我的想法是這樣做：

.SetSourceData objWorksheet.Range(Rowstring,"F" & LastRow), xlColumns

RowString被定義為

WeekNumber = LastRow - 1000
RowString = "E" & WeekNumber

但這給了我一個錯誤。 如何使用某個范圍內的字符串變量，並將其設置為圖表生成的源數據？ 這是我正在使用的代碼

    WeekNumber = LastRow - 1000
    RowString = "E" & WeekNumber
    WScript.echo(RowString)


' Data for last week

Sub LastWeek()
    WeekNumber = LastRow - 1000
    RowNumber = LastRow - WeekNumber
    RowString = "E" & RowNumber
End Sub

myrange = "E1:E52"

Set Range1 = objWorksheet.Range(myrange)

' Define chart properties 

Set objChart = objExcel.Charts.Add()
    With objChart
        'define chart type
        .ChartType = xlXYScatterLinesNoMarkers
        'format chart
        .SeriesCollection(1).Border.Color = RGB(255, 0, 0)
        REM .ChartArea.Color = RGB(255, 255, 255)
        .PlotArea.Interior.Color = RGB(255, 255, 255)
        .HasTitle = True 
        .ChartTitle.Text = "usage"
        .Axes(xlCategory, xlPrimary).HasTitle = True
        .Axes(xlCategory, xlPrimary).AxisTitle.Characters.Text = "Time"
        .Axes(xlValue, xlPrimary).HasTitle = True
        .Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = "test"
        .HasLegend = False
        'define data
        .SetSourceData objWorksheet.Range(RowString,"F" & LastRow), xlColumns
        .Export "Test.png", "PNG"
    End With

先感謝您

Answer 1

.SetSourceData objWorksheet.Range(Rowstring,"F" & LastRow), xlColumns

哪里

WeekNumber = LastRow - 1000
RowString = "E" & WeekNumber

給

...Range("E4414","F" & LastRow)...

而且我認為您最有可能

...Range("E4414:F" & LastRow)...

所以你需要更換,用逗號分隔 : 分號

像這樣重建您的RowString變量

RowString = "E" & weekNumber & ":"

和整個陳述

.SetSourceData objWorksheet.Range(Rowstring & "F" & LastRow), xlColumns

' PlotBy:=xlColumns for VBA