如何在页面上插入Excel图表?

ohawz 2004-06-09 12:59:24
最简单的方式是什么?
...全文
194 3 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
3 条回复
切换为时间正序
请发表友善的回复…
发表回复
ohawz 2004-06-09
  • 打赏
  • 举报
回复
谢谢孟子E章,程序在这一行报错误: excel.range('a1:a12').select();

"Object doesn't support this property or method."
xueqs 2004-06-09
  • 打赏
  • 举报
回复
超连接:
<A href="ExcelGraph.xls">excel图表</a>
孟子E章 2004-06-09
  • 打赏
  • 举报
回复
<script>

function create_chart() {

var xlLineMarkers = 65;
var xlColumns = 2;

var chDimSeriesNames = 0;
var chDimCategories = 1;
var chDimValues = 2;
var chDimXValues = 4;

chart.Charts.Add();

chart.ChartType = xlLineMarkers;
chart.DataSource = excel;//.Range("A1:B12");
var s = chart.Charts(0).SeriesCollection;

var data_series = s.Add();

data_series.SetData(chDimCategories, 0, "A1:A12");
data_series.SetData(chDimValues, 0, "B1:B12");

return false;
}

function l() {

excel.DisplayToolbar = false;

excel.range('a1:a12').select();
excel.Selection.NumberFormat = 'mmm-yy';

excel.range('a1' ).value = 'Jan-2004';
excel.range('a2' ).value = 'Feb-2004';
excel.range('a3' ).value = 'Mar-2004';
excel.range('a4' ).value = 'Apr-2004';
excel.range('a5' ).value = 'May-2004';
excel.range('a6' ).value = 'Jun-2004';
excel.range('a7' ).value = 'Jul-2004';
excel.range('a8' ).value = 'Aug-2004';
excel.range('a9' ).value = 'Sep-2004';
excel.range('a10').value = 'Oct-2004';
excel.range('a11').value = 'Nov-2004';
excel.range('a12').value = 'Dec-2004';

excel.range('b1' ).value = 10;
excel.range('b2' ).value = 15
excel.range('b3' ).value = 18
excel.range('b4' ).value = 17
excel.range('b5' ).value = 20
excel.range('b6' ).value = 23
excel.range('b7' ).value = 22
excel.range('b8' ).value = 24
excel.range('b9' ).value = 27
excel.range('b10').value = 27
excel.range('b11').value = 29
excel.range('b12').value = 32
}
</script>

<body onLoad='l();'>

<form>
<input type=submit onclick='return create_chart()' value='Create Chart'>
</form>

<object
id = 'excel'
classid = 'CLSID:0002E510-0000-0000-C000-000000000046'>

<param name=DisplayTitleBar value=false >
<param name=ViewableRange value='a1:b12'>
<param name=AutoFit value=true >
</object>

<object
width = 800
height = 400
id = 'chart'
classid = 'CLSID:0002E500-0000-0000-C000-000000000046'
</object>
</body>
</html>

62,243

社区成员

发帖
与我相关
我的任务
社区描述
.NET技术交流专区
javascript云原生 企业社区
社区管理员
  • ASP.NET
  • .Net开发者社区
  • R小R
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告

.NET 社区是一个围绕开源 .NET 的开放、热情、创新、包容的技术社区。社区致力于为广大 .NET 爱好者提供一个良好的知识共享、协同互助的 .NET 技术交流环境。我们尊重不同意见,支持健康理性的辩论和互动,反对歧视和攻击。

希望和大家一起共同营造一个活跃、友好的社区氛围。

试试用AI创作助手写篇文章吧