我有一个宏,它通过在每个工作簿中创建图表来处理多个excel工作簿。它在我的电脑上运行良好。
当我尝试在另一台计算机上运行它时,它会给我1004错误。但是,当我在某一行上设置一个断点时,宏运行良好。我只需要为每个工作表按F5:
Dim c As Chart
Set c = Charts.add
c.ChartType = xlXYScatterLines
c.SetSourceData source:=Sheets("Data Tables").Range("D4:D9, G4:G9"), PlotBy:=xlColumns
最后一行是我把断点放在上面的那一行。当我这样做时,不会出现错误!
更新:此行因某种原因起作用 c.SetSourceData source:= Sheets(“Data Tables”)。Range(“D4:D9”),PlotBy:= xlColumns
答案 0 :(得分:0)
由于某种原因,这解决了问题!
c.SeriesCollection(1).XValues =表格(“数据表”)。范围(“D4:D9”)
c.SeriesCollection(1).Values = Sheets(“Data Tables”)。范围(“G4:G9”)