【Excel宏自动化】一键导出图表数据,上班摸鱼不是梦!

Sub CreateAndUpdateChart()    Dim ws As Worksheet    Dim chartObj As ChartObject    Dim lastRow As Long    ' 尝试设置工作表变量，如果失败则提示错误信息    On Error Resume NextSet ws = ThisWorkbook.Sheets("Sheet1")    On Error GoTo 0    If ws Is Nothing Then        MsgBox "工作表 'DataSheet' 不存在。", vbExclamation        Exit Sub        End If        ' 获取最后一行行号        lastRow = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row' 检查数据范围是否有效If lastRow < 2 Then    MsgBox "工作表 'DataSheet' 中没有足够的数据。", vbExclamation    Exit Sub    End If    ' 删除现有图表（如果存在）    For Each chartObj In ws.ChartObjects    chartObj.DeleteNext chartObj' 添加一个新的图表对象Set chartObj = ws.ChartObjects.Add(Left:=10, Width:=375, Top:=100, Height:=225)    With chartObj.Chart        ' 设置图表的数据源范围        .SetSourceData Source:=ws.Range("A1:G" & lastRow)        ' 设置图表类型为折线图        .ChartType = xlLine        ' 设置图表标题        .HasTitle = True        .ChartTitle.Text = "成绩折线图"    End WithEnd Sub