时间戳

首页 > 解决方案 > 在 Sheet2 中的 targetSheet 中粘贴图表

excel - 在 Sheet2 中的 targetSheet 中粘贴图表

问题描述

我正在尝试使用 VBA 自动化这两个图表。经过多次尝试，我终于整理了一些仅适用于一个图表并给出时间运行错误“800401a8”的代码，但图表显示在我从中获取输入而不是 targetSheet 的同一个 Excel 中。这是我尝试过的一些代码-

'graph1................

Dim graphSheet As Worksheet
        Set graphSheet = targetWorkbook.Worksheets(2)

        graphSheet.Activate


    recordLayerSheet.Activate
    recordLayerSheet.ShowAllData
    recordLayerSheet.Range("R:R,F:F,F:F,R:R").Select
    ActiveSheet.Shapes.AddChart.Select
    ActiveChart.SetSourceData Source:=recordLayerSheet.Range( _
        "'Record Layer'!$R:$R,'Record Layer'!$R:$R" _
        )
    ActiveChart.ChartType = xlLine
    ActiveChart.Copy
    
    graphSheet.Activate
    targetSheet.Range(I2).PasteSpecial
'graph2.............
Dim graphSheet As Worksheet
        Set graphSheet = targetWorkbook.Worksheets(2)

        graphSheet.Activate


    recordLayerSheet.Activate
    recordLayerSheet.ShowAllData
    recordLayerSheet.Range("S:S,F:F,F:F,S:S").Select
    ActiveSheet.Shapes.AddChart.Select
    ActiveChart.SetSourceData Source:=recordLayerSheet.Range( _
        "'Record Layer'!$S:$S,'Record Layer'!$S:$S" _
        )
    ActiveChart.ChartType = xlLine
    ActiveChart.Copy
    
    graphSheet.Activate
    targetSheet.Range(K2).PasteSpecial

我猜这真的很简单。任何帮助将不胜感激。谢谢！

标签： excelvba

解决方案

推荐阅读