投稿日 | : 2004/12/03(Fri) 13:25 |
投稿者 | : ひろ |
Eメール | : |
URL | : |
タイトル | : EXCELのグラフのデータ範囲をVBより指定する。 |
グラフが書いてある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