87,907
社区成员
发帖
与我相关
我的任务
分享怎么一创建ActiveXObject就出错阿？
在我自己的机器上没有出错，但是在其他一些机器上javascript中一执行var oXL = new ActiveXObject("Excel.Application")就出错是什么原因阿？请各位大侠帮帮忙啊~！
...全文
请发表友善的回复…
发表回复
llldreamnew 2003-08-22
- 打赏
- 举报
谢谢，我已经找到原因了，是浏览器安全级别的问题~~~~！^_^
whywzf 2003-08-22
- 打赏
- 举报
<html>
<head>
<title>Build Document by Script</TITLE>
</HEAD>
<SCRIPT LANGUAGE="JavaScript">
function AutomateExcel() {
// Start Excel and get Application object.
var savePath=document.form.T1.value;
var oXL = new ActiveXObject("Excel.Application");
var oWB = new ActiveXObject("Excel.Sheet");
var oSheet = oWB.ActiveSheet;
var table = document.all.myData;
var hang = table.rows.length;
var lie = table.rows(0).cells.length;
// Add table headers going cell by cell.
for (i=0;i<hang;i++){
for (j=0;j<lie;j++){
oSheet.Cells(i+1,j+1).Value = table.rows(i).cells(j).innerText;
}
}
oXL.Visible = true;
oXL.UserControl = true;
oWB.SaveAs (savePath);
// oSheet.PrintOut();
//oSheet.Application.Quit();
//oWB.Application.Quit();
oXL.Application.Quit();
}
</SCRIPT>
<BODY>
<Table name="myData" id="myData" border=1 align=center>
<Tr align=center>
<Td>产品名称</Td>
<Td>产品描述</Td>
<Td>产品单价</Td>
<Td>产品等级</Td>
</Tr>
<Tr align=center>
<Td>产品一</Td>
<Td>This is a test</Td>
<Td>300.50</Td>
<Td>一级</Td>
</Tr>
<Tr align=center>
<Td>产品二</Td>
<Td>This is a test</Td>
<Td>300.50</Td>
<Td>一级</Td>
</Tr>
<Tr align=center>
<Td>产品三</Td>
<Td>This is a test</Td>
<Td>300.50</Td>
<Td>一级</Td>
</Tr>
</Table>
<p align=center><input type=button onclick="AutomateExcel() " value="调用" name="button"></p>
<form name="form" method="POST" action="--WEBBOT-SELF--">
<!--webbot bot="SaveResults" U-File="fpweb:///_private/form_results.txt"
S-Format="TEXT/CSV" S-Label-Fields="TRUE" -->
<p align="center"><input type="text" name="T1" size="20" value=""></p>
</form>
</BODY>
</HTML>
试试我这个报不?
<head>
<title>Build Document by Script</TITLE>
</HEAD>
<SCRIPT LANGUAGE="JavaScript">
function AutomateExcel() {
// Start Excel and get Application object.
var savePath=document.form.T1.value;
var oXL = new ActiveXObject("Excel.Application");
var oWB = new ActiveXObject("Excel.Sheet");
var oSheet = oWB.ActiveSheet;
var table = document.all.myData;
var hang = table.rows.length;
var lie = table.rows(0).cells.length;
// Add table headers going cell by cell.
for (i=0;i<hang;i++){
for (j=0;j<lie;j++){
oSheet.Cells(i+1,j+1).Value = table.rows(i).cells(j).innerText;
}
}
oXL.Visible = true;
oXL.UserControl = true;
oWB.SaveAs (savePath);
// oSheet.PrintOut();
//oSheet.Application.Quit();
//oWB.Application.Quit();
oXL.Application.Quit();
}
</SCRIPT>
<BODY>
<Table name="myData" id="myData" border=1 align=center>
<Tr align=center>
<Td>产品名称</Td>
<Td>产品描述</Td>
<Td>产品单价</Td>
<Td>产品等级</Td>
</Tr>
<Tr align=center>
<Td>产品一</Td>
<Td>This is a test</Td>
<Td>300.50</Td>
<Td>一级</Td>
</Tr>
<Tr align=center>
<Td>产品二</Td>
<Td>This is a test</Td>
<Td>300.50</Td>
<Td>一级</Td>
</Tr>
<Tr align=center>
<Td>产品三</Td>
<Td>This is a test</Td>
<Td>300.50</Td>
<Td>一级</Td>
</Tr>
</Table>
<p align=center><input type=button onclick="AutomateExcel() " value="调用" name="button"></p>
<form name="form" method="POST" action="--WEBBOT-SELF--">
<!--webbot bot="SaveResults" U-File="fpweb:///_private/form_results.txt"
S-Format="TEXT/CSV" S-Label-Fields="TRUE" -->
<p align="center"><input type="text" name="T1" size="20" value=""></p>
</form>
</BODY>
</HTML>
试试我这个报不?
llldreamnew 2003-08-22
- 打赏
- 举报
Object Error
whywzf 2003-08-22
- 打赏
- 举报
报什么错?
llldreamnew 2003-08-22
- 打赏
- 举报
补充一句，那几台不成功的机器上也装了OFFICE的。（有的是97，有的是2000。我自己的装的是2000）
