グラフが書いてあるExcelのファイル(grf1.XLS)
があります。このグラフのデータの範囲をVBより指定して新たに
grf2.xlsとして保存したいのですが、
データの範囲指定がうまくいきません
教えてください。
On Error Resume Next
Dim xlapp As Excel.Application
Dim xlbook As Excel.Workbook
Dim xlsheet As Excel.Worksheet
    Set xlapp = CreateObject("Excel.Application")
    Set xlbook = xlapp.Workbooks.Open("c:\grf1.xls")
    Set xlsheet = xlbook.Worksheets(1)
    xlapp.Visible = True

        xlbook.ActiveChart.SetSourceData xlsheet.Range("A1:I3"), xlColumns
  
    xlsheet.SaveAs "c:\grf2.xls"
    xlapp.Quit
    Set xlsheet = Nothing
    Set xlbook = Nothing
    Set xlapp = Nothing

> グラフが書いてあるExcelのファイル(grf1.XLS)
> があります。このグラフのデータの範囲をVBより指定して新たに
> grf2.xlsとして保存したいのですが、

Excel でそのような一部のセルの部分だけ保存ってできました。
多分、その部分だけを新たなブックにコピーして保存するしかないのでは。
やりたい事をExcel上でマクロに記録してそのマクロを見ればコードが解ります。