求助~ 谁能提供ASP对EXCEL进行读写的详细资料~

[qiaowd]

请问~ ASP中怎么样在EXCEL中绘制圆形?

[webasp]

我有VB的，你要吗？

[aiailove]

webasp(学到老) 可以给我发一份吗?
记得去年有个应聘的工作,就是因为不知道如何在EXCEL里输入柱状图被CUT了:(
请教详细用法啊。..谢谢了
[e-mail]

[qiaowd]

webasp(学到老)
yao
dang ran yao ~
give me :[e-mail]

[qiaowd]

up

[sharkshi]

retxt = "<script language=vbscript>" & Chr(13) & Chr(10)
retxt = retxt & "Set xlapp = CreateObject(""Excel.Application"")" & Chr(13) & Chr(10)
retxt = retxt & " xlapp.Visible = True" & Chr(10) & Chr(13)
retxt = retxt & "xlapp.Workbooks.Open ""http://200.200.200.123/xfsys/gw_mod/zuanban.xls""" & Chr(10) & Chr(13)
retxt = retxt & "Set xlsheet = xlApp.Sheets(""Sheet1"")" & Chr(13) & Chr(10)
retxt = retxt & "xlapp.ActiveSheet.Cells(3, 3).Value =""" & b1 & """" & Chr(10) & Chr(13)
retxt = retxt & "xlapp.ActiveSheet.Cells(4, 1).Value =""" & b3 & """" & Chr(10) & Chr(13)
retxt = retxt & "xlapp.ActiveSheet.Cells(5, 1).Value =""" & b4 & """" & Chr(10) & Chr(13)
retxt = retxt & "xlapp.ActiveSheet.Cells(6, 2).Value =""" & b5 & """" & Chr(10) & Chr(13)
retxt = retxt & "xlapp.ActiveSheet.Cells(7, 2).Value =""" & b6 & """" & Chr(10) & Chr(13)
retxt = retxt & "xlapp.ActiveSheet.Cells(8, 3).Value =""" & b7 & """" & Chr(10) & Chr(13)
retxt = retxt & "xlapp.ActiveSheet.Cells(9, 2).Value =""" & b8 & """" & Chr(10) & Chr(13)
retxt = retxt & "xlapp.ActiveSheet.Cells(10, 2).Value =""" & b9 & """" & Chr(10) & Chr(13)
retxt = retxt & "xlapp.ActiveSheet.Cells(11, 2).Value =""" & b10 & """" & Chr(10) & Chr(13)
retxt = retxt & "xlapp.ActiveSheet.Cells(12, 2).Value =""" & b11 & """" & Chr(10) & Chr(13)
retxt = retxt & "xlapp.ActiveSheet.Cells(13, 2).Value =""" & b12 & """" & Chr(10) & Chr(13)
retxt = retxt & "xlapp.ActiveSheet.Cells(14, 2).Value =""" & b13 & """" & Chr(10) & Chr(13)
retxt = retxt & "xlapp.ActiveSheet.Cells(15, 2).Value =""" & b14 & """" & Chr(10) & Chr(13)
retxt = retxt & "xlapp.ActiveSheet.Cells(17, 1).Value =""" & b15 & """" & Chr(10) & Chr(13)
retxt = retxt & "</script>" & Chr(10) & Chr(13)
response.Write(retxt)