为什么我掉用函数会出现“类型不匹配”？？
为什么我掉用函数会出现“类型不匹配”？？
代码如下：
call AutomateExcel()
<SCRIPT LANGUAGE="javascript">
var idTmr = "";
function AutomateExcel()
{
var oXL = new ActiveXObject("Excel.Application");
var oWB = oXL.Workbooks.Add();
var oSheet = oWB.ActiveSheet;
oWB.Worksheets(1).Columns("B").columnwidth=30;
var hang = outtable.rows.length;
var lie = outtable.rows(0).cells.length;
for (i=0;i<hang;i++)
{
for (j=0;j<lie;j++)
{
oSheet.Cells(i+1,j+1).value = outtable.rows(i).cells(j).innerText;
}
}
oWB.SaveAs("c:/aaa.xls");
oXL.Close (savechanges=false);
//oXL.visible = false;
oXL.Quit();
oXL=null;
idTmr = window.setInterval("Cleanup();",1);
}
function Cleanup() {
window.clearInterval(idTmr);
CollectGarbage();
}
</SCRIPT>
问题点数：20、回复次数：9Top
1 楼andymu077（明治佐玛戒--秀曼）回复于 2005-07-27 08:53:53 得分 10
javascript----用call来调用函数？Top
2 楼hameizi（梅子）回复于 2005-07-27 08:56:35 得分 0
<%call AutomateExcel() %>
在ASP中这样调用不对吗？Top
3 楼net_lover（【孟子E章】）回复于 2005-07-27 08:59:22 得分 10
<SCRIPT LANGUAGE="javascript">
AutomateExcel()
</SCRIPT>Top
4 楼hameizi（梅子）回复于 2005-07-27 09:10:59 得分 0
我这样写了，为什么还是出错呢？Top
5 楼hameizi（梅子）回复于 2005-07-27 09:16:32 得分 0
<TABLE id="outtable1" name="outtable1">
<TR>
<TD>项目名称</TD>
<TD>开盘日期</TD>
<TD>开发商</TD>
</TR>
<%
rstmid.close
rstmid.open "select prjid,projectname,saledate,DEVELOPER from permit where sellmark=0 order by saledate" ,constr
do while not rstmid.eof
%>
<tr bgcolor="#F9F9F9">
<td height="25" valign="middle" align="center"><%=rstmid("projectname")%></a></td>
<td valign="middle" align="center"><%=rstmid("saledate")%></td>
<td valign="middle" align="center"><%=rstmid("DEVELOPER")%></td>
</tr>
<%rstmid.movenext
loop
%>
<SCRIPT LANGUAGE="javascript">
AutomateExcel() //////////////////////////////////这边调用的
</SCRIPT>
</TABLE>
<input type="button" name="out_excel1" onclick="AutomateExcel1();" value="即将入网项目导入到excel" class="notPrint">
<SCRIPT LANGUAGE="javascript">
var idTmr = "";
function AutomateExcel()
{
var oXL = new ActiveXObject("Excel.Application");
var oWB = oXL.Workbooks.Add();
var oSheet = oWB.ActiveSheet;
oWB.Worksheets(1).Columns("A").columnwidth=10;
oWB.Worksheets(1).Columns("B").columnwidth=5;
oWB.Worksheets(1).Columns("C").columnwidth=10;
var hang = outtable.rows.length;
var lie = outtable.rows(0).cells.length;
for (i=0;i<hang;i++)
{
for (j=0;j<lie;j++)
{
oSheet.Cells(i+1,j+1).value = outtable.rows(i).cells(j).innerText;
}
}
oWB.SaveAs("c:/aaa.xls");
oXL.Close (savechanges=false);
//oXL.visible = false;
oXL.Quit();
oXL=null;
idTmr = window.setInterval("Cleanup();",1);
}
function Cleanup() {
window.clearInterval(idTmr);
CollectGarbage();
}
</SCRIPT>
Top
6 楼andymu077（明治佐玛戒--秀曼）回复于 2005-07-27 09:35:00 得分 0
有点看不太懂了，你把这个AutomateExcel() ，直接放到脚本里边的函数定义上方，看看行不？Top
7 楼hameizi（梅子）回复于 2005-07-27 10:00:01 得分 0
这样可以的，谢谢拉！Top
8 楼andymu077（明治佐玛戒--秀曼）回复于 2005-07-27 10:55:38 得分 0
可以了就结贴喽！Top
9 楼andymu077（明治佐玛戒--秀曼）回复于 2005-07-27 10:56:05 得分 0
可以了就结贴喽！Top
