VBA修改股票OHLC图表动态源数据时SetSourceData调用异常求助

故障核心原因 #

触发运行时异常的核心是传入SetSourceData的数据源范围构造完全不符合要求，叠加多个逻辑漏洞引发连锁报错：

• Range(RngSt, RngEnd)的错误写法：两个参数都是纯行号整数时，VBA只会解析为A列下对应两行之间的单列纵向区域，完全没有覆盖OHLC蜡烛图必需的「时间标签、开盘价、最高价、最低价、收盘价」多列数据结构，图表无法识别有效数据源直接触发报错
• 未显式定义RngEnd变量，依赖VBA隐式声明极易触发类型不匹配问题
• 用Select/ActiveCell计算最后行号的写法非常脆弱，只要工作表激活状态偏移、或者A列存在空行，就会算错数据范围
• 坐标轴配置逻辑冲突：先设置HasTitle = False关闭坐标轴标题，紧接着又给AxisTitle赋值，会触发找不到对象的运行错误
• 变量类型定义为Integer存在溢出风险，Excel最大支持104万行数据，超过Integer的取值上限32767时会直接报错

修复后可直接运行的代码 #

Sub Edit75MinChartToOHLCCandlestickChart()
    Dim OHLCChart As ChartObject
    Dim LastRow As Long
    Dim RngSt As Long
    Dim RngEnd As Long
    Dim dataWs As Worksheet
    Dim chartDataRng As Range
    
    ' 直接绑定工作表对象，无需激活或选中
    Set dataWs = ThisWorkbook.Worksheets("75Min")
    ' 从A列底部向上定位最后非空行，不受空行、激活状态影响
    LastRow = dataWs.Cells(dataWs.Rows.Count, "A").End(xlUp).Row
    
    RngSt = LastRow - 59
    RngEnd = LastRow + 15
    ' 构造覆盖A-E列的完整矩形数据区（匹配时间+开高低收的OHLC数据结构）
    Set chartDataRng = dataWs.Range("A" & RngSt & ":E" & RngEnd)
    
    ' 绑定Exhibit工作表中的目标图表
    Set OHLCChart = ThisWorkbook.Worksheets("Exhibit").ChartObjects(1)
    
    With OHLCChart.Chart
        .SetSourceData chartDataRng
        .ChartType = xlStockOHLC
        
        .HasTitle = True
        .ChartTitle.Text = "75Min Candlestick chart"
        
        ' 修正坐标轴配置的逻辑冲突
        .Axes(xlValue, xlPrimary).HasTitle = True
        .Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = "Price"
        
        .PlotArea.Format.Fill.ForeColor.RGB = RGB(242, 242, 242)
        .ChartArea.Format.Line.Visible = msoFalse
        .Parent.Name = "OHLC Chart"
    End With
End Sub

关键调整说明 #

• 所有行号类变量替换为Long类型，彻底规避行号溢出问题
• 全流程通过对象引用完成操作，移除所有不必要的Select、Activate语句，代码稳定性大幅提升
• 明确构造覆盖全部必需列的矩形数据范围，完全匹配OHLC蜡烛图的数据源结构要求
• 修正原代码中坐标轴标题的逻辑冲突，避免运行时对象找不到的报错
• 替换原代码中End(xlDown)的定位逻辑，从列底部向上查找最后非空行，不受列内空行干扰

内容的提问来源于stack exchange，提问作者Imran Shaikh