Excel 2003：VBA语法在Excel 2010中引起问题-替代方法？

Question

I've got an old VBA-script (Office 2003) to fix which fails in Office 2010. The problem seems to be caused by the syntax used to reference sheets and cells.

ActiveChart.SeriesCollection(1).XValues = _
    "=EP!Z1S2:Z1S" & Mid(Str(Schritte + 2), 2)

    With ActiveChart.SeriesCollection(1)
       .Values = "=EP!Z3S2:Z3S" & Mid(Str(Schritte + 2), 2)
       .Name = "=EP!Z3S1"
    End With

Is there an alternative to using "=Sheet!CellRange"? Or can the problem be solved by changing some configuration in Office / Excel?

Answer 1

You need to provide the cell ranges as coded Range objects and/or Range.Cells property , possibly with the Range.Resize property .

dim ws as worksheet
set ws = worksheets("EP")

ActiveChart.SeriesCollection(1).XValues = _
  ws.range("Z1S2:Z1S" & Mid(Str(Schritte + 2), 2))

With ActiveChart.SeriesCollection(1)
   .Values = ws.cells(3, 2).resize(1, int(Mid(Str(Schritte + 2), 2)))    '=EP!Z3S2:Z3S" & Mid(Str(Schritte + 2), 2)
   .Name = ws.cells(3, 1)    '=EP!Z3S1
End With

When I created a chart using strictly strings describing the ranges, I received Compile error: Type mismatch . As soon as I wrapped the strings in Range or referenced them more directly with .Cells the problem disappeared and the chart generated.