<SCRIPT language="javascript">
<!--
function AutomateExcel()
{
var oXL = new ActiveXObject("Excel.Application");
var oWB = oXL.Workbooks.Add();
oWB.Worksheets(3).Delete();//删除sheet2,sheet3
oWB.Worksheets(2).Delete();
var oSheet = oWB.ActiveSheet;
var table = document.all.Table1;
var hang = table.rows.length;
var lie = table.rows(1).cells.length+1;
oSheet.get_Range(oSheet.Cell(1,1),oSheet.Cell(4,4)).HorizontalAlignment = Excel.XlHAlign.xlHAlignCenter;
myExcelCel1_1=oSheet.Cells(1,1);
myExcelCel2_1=oSheet.Cells(2,1);
oSheet.Cells(1,1).value = "月份";
oSheet.Range(myExcelCel1_1,myExcelCel2_1).Merge();
//合并表格(1,2),(1,3),(1,4)
myExcelCel1_2=oSheet.Cells(1,2);
myExcelCel1_3=oSheet.Cells(1,3);
myExcelCel1_4=oSheet.Cells(1,4);
oSheet.Cells(1,2).value = "技术开发";
oSheet.Range(myExcelCel1_2,myExcelCel1_3).Merge();
oSheet.Range(myExcelCel1_2,myExcelCel1_4).Merge();
oSheet.Cells(2,2).value = "项数";
oSheet.Cells(2,3).value = "成交额";
oSheet.Cells(2,4).value = "金额比例";
for (i=2;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;
}
//-->
</SCRIPT>上面是我写的一段JavaScript程度,功能是为了导出excel,但是我想让导出的excel表格中那些数据
居中,所以我写了:oSheet.get_Range(oSheet.Cell(1,1),oSheet.Cell(4,4)).HorizontalAlignment = Excel.XlHAlign.xlHAlignCenter;
这段话也是我仿照别人的代码写的,但是我运行,导出时报错!
各位大侠可以帮帮我解决这个问题吗?
小生在此谢过了。
<!--
function AutomateExcel()
{
var oXL = new ActiveXObject("Excel.Application");
var oWB = oXL.Workbooks.Add();
oWB.Worksheets(3).Delete();//删除sheet2,sheet3
oWB.Worksheets(2).Delete();
var oSheet = oWB.ActiveSheet;
var table = document.all.Table1;
var hang = table.rows.length;
var lie = table.rows(1).cells.length+1;
oSheet.get_Range(oSheet.Cell(1,1),oSheet.Cell(4,4)).HorizontalAlignment = Excel.XlHAlign.xlHAlignCenter;
myExcelCel1_1=oSheet.Cells(1,1);
myExcelCel2_1=oSheet.Cells(2,1);
oSheet.Cells(1,1).value = "月份";
oSheet.Range(myExcelCel1_1,myExcelCel2_1).Merge();
//合并表格(1,2),(1,3),(1,4)
myExcelCel1_2=oSheet.Cells(1,2);
myExcelCel1_3=oSheet.Cells(1,3);
myExcelCel1_4=oSheet.Cells(1,4);
oSheet.Cells(1,2).value = "技术开发";
oSheet.Range(myExcelCel1_2,myExcelCel1_3).Merge();
oSheet.Range(myExcelCel1_2,myExcelCel1_4).Merge();
oSheet.Cells(2,2).value = "项数";
oSheet.Cells(2,3).value = "成交额";
oSheet.Cells(2,4).value = "金额比例";
for (i=2;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;
}
//-->
</SCRIPT>上面是我写的一段JavaScript程度,功能是为了导出excel,但是我想让导出的excel表格中那些数据
居中,所以我写了:oSheet.get_Range(oSheet.Cell(1,1),oSheet.Cell(4,4)).HorizontalAlignment = Excel.XlHAlign.xlHAlignCenter;
这段话也是我仿照别人的代码写的,但是我运行,导出时报错!
各位大侠可以帮帮我解决这个问题吗?
小生在此谢过了。
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货