为什么我掉用函数会出现“类型不匹配”？？

[hameizi]

为什么我掉用函数会出现“类型不匹配”？？

代码如下：

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>

[安迪]

javascript----用call来调用函数？

[hameizi]

<%call AutomateExcel() %>

在ASP中这样调用不对吗？

[孟子E章]

<SCRIPT LANGUAGE="javascript">
AutomateExcel()
</SCRIPT>

[hameizi]

我这样写了，为什么还是出错呢？

[hameizi]

<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>

[安迪]

有点看不太懂了，你把这个AutomateExcel() ，直接放到脚本里边的函数定义上方，看看行不？

[hameizi]

这样可以的，谢谢拉！

[安迪]

可以了就结贴喽！

[安迪]

可以了就结贴喽！