//Obj参数指定数据的来源(限定Table),默认第一行为字段名称行
//MoveNext方法,参数是表的行向上或向下移动的位数,正数向下移动,负数向上.如.MoveNext(1),.MoveNext(-1)
//GetFieldData方法获得当前行的指定的列名的数,据如:.GetFieldData("考试成绩"):列名.GetFieldData(1):索引
//Sort_desc方法对指定的列按降序排列,如.Sort_desc("学年","学期")
//Sort_asc方法对指定的列按升序排列,如.Sort_asc("考试成绩:number"):":"后面的参数制定改列数据类型,此例为数字
//GetData方法返回字段值为特定值的数据数组,如果没有字段值则返回所有该字段记录.可以在外部进行其他处理,不建议直接处理数据:如.GetData()
//Delete方法删除当前记录,数组减少一行,如:.Delete
//updateField更新当前行的指定的索引数据(索引如果是数字,则是列的索引,为字符,是数据字段的名称)如:MyData.UpdateField("课程号",MyData.GetFieldData("原课程号"))
//MoveFirst记录移动到数据的第一条记录,注意数据从第二行开始,默认第一行为字段名称行
//MoveLast记录移动到数据的最后一条记录
//Distinct返回所选记录的不同记录的条件个数维数数组,同时升序排序
//初始化,Obj:table的名字,Leftlen:左面多余数据长度,Rightlen:右面多余数据长度,
//rows属性:数组行数,cols:列数在示例代码中Print_bzcjd.js他是打印复杂excel的脚本,var xlBook = xls.Workbooks.Open("c:\\xsxycjb.xls");
var xlsheet = xlBook.Worksheets(1)这个可是使用网络模板,var xlBook = xls.Workbooks.Open("http://you.com/\PrintTemplates\\xsxycjb.xls");
var xlsheet = xlBook.Worksheets(1)这个力例子中基本把excel打印需要的技术都展示出来了,如图片,退出什么的。这里要说明的是table的数据可以是隐藏的,不显示也可以取出,这样就可以增加很多数据进来,又不影响界面。Excel.js:这个是清理excel的脚本,当结束excel进程的时候它还没有推出,清理一下,这个就没有vs好了:(。这个是一个简单的示例,就是你给他一个表格名字就可以了,然后生成一个表格,就是这样:MakeExcel("TABLE1",true,"1.xls"),其他参数可以不要。function MakeExcel(Obj,ProceVisible,SaveAsFilename,SortType,SortField){
var MyData= new GetTableData(Obj,0,0);
var myrows=MyData.rows;
var i,j; try {
var xls = new ActiveXObject ( "Excel.Application" );
}
catch(e) {
alert( "要打印该表,您必须安装Excel电子表格软件,同时浏览器须使用“ActiveX 控件”,您的浏览器须允许执行控件。 请点击【帮助】了解浏览器设置方法!");
return "";
}
if (typeof(ProceVisible)=="undefined"){
xls.visible = true;
}
else{
if (ProceVisible=="true"){
xls.visible = true;
}
else
{
xls.visible = false;
}
}
var xlBook = xls.Workbooks.Add;
var xlsheet = xlBook.Worksheets(1);
xls.Cells.Select;
xls.Selection.NumberFormatLocal = "@";
for (i=0;i<MyData.rows ;i++){
for (j=0;j<MyData.cols ;j++){
if (typeof(MyData.GetFieldData(j)) == "number"){
xlsheet.Cells(i+1,j+1).NumberFormatLocal = "0.00_ ";
}
xlsheet.Cells(i+1,j+1).Value= MyData.GetFieldData(j);
}
MyData.MoveNext();
}
if (SaveAsFilename=="" || typeof(SaveAsFilename)=="undefined"){
var fname = xls.Application.GetSaveAsFilename("*.xls", "Excel Spreadsheets (*.xls), *.xls");
if (fname!=""){
xlBook.SaveAs(fname);
}
}
else{
xlBook.SaveAs(SaveAsFilename);
}
xlBook.Close (savechanges=false);
//xls.visible = false;
xls.Quit();
xls=null;
//结束excel进程,退出完成
window.setInterval("Cleanup();",1);
}
//MoveNext方法,参数是表的行向上或向下移动的位数,正数向下移动,负数向上.如.MoveNext(1),.MoveNext(-1)
//GetFieldData方法获得当前行的指定的列名的数,据如:.GetFieldData("考试成绩"):列名.GetFieldData(1):索引
//Sort_desc方法对指定的列按降序排列,如.Sort_desc("学年","学期")
//Sort_asc方法对指定的列按升序排列,如.Sort_asc("考试成绩:number"):":"后面的参数制定改列数据类型,此例为数字
//GetData方法返回字段值为特定值的数据数组,如果没有字段值则返回所有该字段记录.可以在外部进行其他处理,不建议直接处理数据:如.GetData()
//Delete方法删除当前记录,数组减少一行,如:.Delete
//updateField更新当前行的指定的索引数据(索引如果是数字,则是列的索引,为字符,是数据字段的名称)如:MyData.UpdateField("课程号",MyData.GetFieldData("原课程号"))
//MoveFirst记录移动到数据的第一条记录,注意数据从第二行开始,默认第一行为字段名称行
//MoveLast记录移动到数据的最后一条记录
//Distinct返回所选记录的不同记录的条件个数维数数组,同时升序排序
//初始化,Obj:table的名字,Leftlen:左面多余数据长度,Rightlen:右面多余数据长度,
//rows属性:数组行数,cols:列数在示例代码中Print_bzcjd.js他是打印复杂excel的脚本,var xlBook = xls.Workbooks.Open("c:\\xsxycjb.xls");
var xlsheet = xlBook.Worksheets(1)这个可是使用网络模板,var xlBook = xls.Workbooks.Open("http://you.com/\PrintTemplates\\xsxycjb.xls");
var xlsheet = xlBook.Worksheets(1)这个力例子中基本把excel打印需要的技术都展示出来了,如图片,退出什么的。这里要说明的是table的数据可以是隐藏的,不显示也可以取出,这样就可以增加很多数据进来,又不影响界面。Excel.js:这个是清理excel的脚本,当结束excel进程的时候它还没有推出,清理一下,这个就没有vs好了:(。这个是一个简单的示例,就是你给他一个表格名字就可以了,然后生成一个表格,就是这样:MakeExcel("TABLE1",true,"1.xls"),其他参数可以不要。function MakeExcel(Obj,ProceVisible,SaveAsFilename,SortType,SortField){
var MyData= new GetTableData(Obj,0,0);
var myrows=MyData.rows;
var i,j; try {
var xls = new ActiveXObject ( "Excel.Application" );
}
catch(e) {
alert( "要打印该表,您必须安装Excel电子表格软件,同时浏览器须使用“ActiveX 控件”,您的浏览器须允许执行控件。 请点击【帮助】了解浏览器设置方法!");
return "";
}
if (typeof(ProceVisible)=="undefined"){
xls.visible = true;
}
else{
if (ProceVisible=="true"){
xls.visible = true;
}
else
{
xls.visible = false;
}
}
var xlBook = xls.Workbooks.Add;
var xlsheet = xlBook.Worksheets(1);
xls.Cells.Select;
xls.Selection.NumberFormatLocal = "@";
for (i=0;i<MyData.rows ;i++){
for (j=0;j<MyData.cols ;j++){
if (typeof(MyData.GetFieldData(j)) == "number"){
xlsheet.Cells(i+1,j+1).NumberFormatLocal = "0.00_ ";
}
xlsheet.Cells(i+1,j+1).Value= MyData.GetFieldData(j);
}
MyData.MoveNext();
}
if (SaveAsFilename=="" || typeof(SaveAsFilename)=="undefined"){
var fname = xls.Application.GetSaveAsFilename("*.xls", "Excel Spreadsheets (*.xls), *.xls");
if (fname!=""){
xlBook.SaveAs(fname);
}
}
else{
xlBook.SaveAs(SaveAsFilename);
}
xlBook.Close (savechanges=false);
//xls.visible = false;
xls.Quit();
xls=null;
//结束excel进程,退出完成
window.setInterval("Cleanup();",1);
}
解决方案 »
- 谁有可以播放网络任务的js网页播放器代码呢,mp3的和MP4/flv的都需要。能给个网址下载么或者发我邮箱。
- 救命!关于ADOX.Catalog在IE8下无法使用的问题
- checkbox
- JavaScript 中 window.open() 问题 急急急!!
- 浮点型变量能不能规定精确位数
- 关于在JavaScript 里取 HTML中 单选按扭的值的 进行判断
- 急问题:eval 的问题,麻烦高手给看看吧,谢谢!!!
- 自动跳到某一页面,有什么方法?从server和client两方面讲:
- 希望获得高手帮助
- 管理后台中文版,如何通过一个js变成英文版管理后台
- 请教如何改变父标记的属性?
- TextArea控制问题,在线等待,分不够可以再加.
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=GBK">
<title>ActiveX</title>
<style>
table { border-color: silver red RGB(223, 94, 77) black; border: 25px;}
</style>
<script type="text/javascript">
//打开已存在的Excel表格
function openExcel(file)
{
var Excel = new ActiveXObject("Excel.Application");
Excel.Visible = false;
ActiveSheet = Excel.Workbooks.Open(file).ActiveSheet;
Excel.Cells.Select;
Excel.Selection.Copy();
document.all.editdiv.focus();
rang = document.selection.createRange();
rang.execCommand("Paste");
//document.all.editdiv.innerHTML = ActiveSheet.Cells(1, 1).Value;
//Excel.Visible = true;
Excel.Quit();//关闭
}
//openWord("D:/1.doc");
</script>
</head>
<body>
<form action="">
<noscript><div id="noscript_msg" class="msg">您需要启动JavaScript,才能使用本网页。</div></noscript><input type="button" value="打开 Excel" onclick='openExcel("D:/11.xls");'><br>
<div id="editdiv" contenteditable=true style="width:400;height:300;"></div>
</form>
</body>
</html>
这样做,是可以把内容复制下来,但是却没有边框。要想要好一些的效果,估计就得自己循环取值,付给table了。
直接用js调用excel的另存为方法不知道行不行。