关于excel,请高手指点

wqspine 2002-05-07 02:54:21
我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
%>
...全文
9 点赞 收藏 4
写回复
4 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
manmanchong 2002-05-07
上面那个的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>
回复
manmanchong 2002-05-07
<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>
回复
wqspine 2002-05-07
sorry,我是新手,我只想实现这样一个功能,
在asp页面中点击一个按钮,打开excel,然后可以填入一些数据,在excel显示出来时我可以看到这个结果,各位,谁给点源码
回复
孟子E章 2002-05-07
asp是在后端执行的,你的<input type="button" value="提交" name="B1" onclick="CommandButton1_Click()">在前端啊,怎么执行啊
回复
相关推荐
发帖
ASP
创建于2007-09-28

2.8w+

社区成员

ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
申请成为版主
帖子事件
创建了帖子
2002-05-07 02:54
社区公告
暂无公告