关于excel，请高手指点

[wqspine]

我asp中点击一个按钮，打开excel,填入一个数据，在vb中可以通过，但在asp中出错，说什么什么不能"read"，原码:

<input type="button" value="提交" name="B1" onclick="CommandButton1_Click()">
<%
Sub CommandButton1_Click()
Set xlapp = CreateObject("excel.application")
xlapp.Visible = True
Set xlformbook = xlapp.workbooks.Add
Set xlformsheet = xlformbook.worksheets(1)
xlformsheet.Cells(1, 1) = "sagaga"
End Sub
%>

[孟子E章]

asp是在后端执行的，你的<input type="button" value="提交" name="B1" onclick="CommandButton1_Click()">在前端啊，怎么执行啊

[wqspine]

sorry,我是新手，我只想实现这样一个功能，
在asp页面中点击一个按钮，打开excel,然后可以填入一些数据,在excel显示出来时我可以看到这个结果，各位，谁给点源码

[manmanchong]

<form>
<INPUT class=btn type="button" value="编 辑" id=btnWord name=btnWord onclick="vbscript:createdoc">
</form>

<script language="vbscript">
sub CreateExcel()
Dim Ex
Set ex = CreateObject("Excel.Application")

ex.visible = True
ex.workbooks.add

ex.columns(1).columnwidth=20
ex.columns(2).columnwidth=30
ex.columns(3).columnwidth=40

ex.cells(1,1).value="属性名称"
ex.cells(1,2).value="值"
ex.cells(1,3).value="说明"
end sub
</script>

[manmanchong]

上面那个的createdoc改为createExcel.
这样就可以：
<form>
<INPUT class=btn type="button" value="编 辑" id=btnWord name=btnWord onclick="vbscript:createExcel">
</form>

<script language="vbscript">
sub CreateExcel()
Dim Ex
Set ex = CreateObject("Excel.Application")

ex.visible = True
ex.workbooks.add

ex.columns(1).columnwidth=20
ex.columns(2).columnwidth=30
ex.columns(3).columnwidth=40

ex.cells(1,1).value="属性名称"
ex.cells(1,2).value="值"
ex.cells(1,3).value="说明"
end sub
</script>