eltable宽度自适应 el-table宽度设置

莫娜号 1

大家好我是小蚪,eltable宽度自适应,关于el-table宽度设置很多人还不知道,那么现在让我们一起来看看吧!

1、try{我是输出到HTML,web页面上放一个链接调用jascript,然后通过jascript处理,js代码如下,你可以参考改一下,希望能帮到你。

2、function excel02() {var sheet_id=1; //读取第1个表var oXL = new ActiveXObject("et.Application"); //创建Excel.Application对象{try{var oXL = new ActiveXObject("excel.Application"); //创建Excel.Application对象}catch(e){alert("要打印该表,您必须安装Excel电子表格软件,同时在控制面板->Internet选项->安全->自定义级别->启用 对未标记为可安全执行脚本的ActiveX控件初始化并执行脚本,请点击【帮助】了解浏览器设置方法!");//获取html报表时间、报表生成时间var node = document.getElementsByTagName('table')[0].tBodies[0].rows;//报表标题var reporttitle = node[0].cells[1].textContent.substr(0,13);var reportcreatetime=node[1].cells[1].textContent.substr(11,26);var oWB= oXL.Workbooks.Add;var oSheet = oWB.ActiveSheet;var colcount=oXL.Worksheets(sheet_id).UsedRange.Cells.Rows.Count ;oXL.ActiveSheet.Range("A1:AA1").Font.ColorIndex = 1; //设置字体颜色(与上相同)oXL.ActiveSheet.Range("A1:AA1").Font.Size = 16; //设置为10号字oXL.ActiveSheet.Range("A1:AA1").Font.Name = "黑体"; //设置为黑体oXL.ActiveSheet.Range("A1:AA1").Font.Bold = true; //设置为粗体oXL.ActiveSheet.Range("A1:AA1").HorizontalAlignment= 3;oSheet.Cells(3,1).value = reportcreatetime;oXL.ActiveSheet.Range("A3:AA3").MergeCells = true;oXL.ActiveSheet.Range("A3:AA3").Font.ColorIndex = 1; //设置字体颜色(与上相同)oXL.ActiveSheet.Range("A3:AA3").Font.Size = 10; //设置为10号字oXL.ActiveSheet.Range("A3:AA3").Font.Name = "黑体"; //设置为黑体oXL.ActiveSheet.Range("A3:AA3").HorizontalAlignment= 4;var elTable1 = document.getElementsByTagName('table')[1];var TableRows = document.getElementsByTagName('table')[1].rows.length+3;//设置行高和行宽oXL.ActiveSheet.Rows(1).RowHeight = 21;oXL.ActiveSheet.Rows(2+":"+TableRows).RowHeight = 15;oXL.ActiveSheet.Columns(1).ColumnWidth = 4.2;oXL.ActiveSheet.Columns(2).ColumnWidth = 4.2;oXL.ActiveSheet.Columns(3).ColumnWidth = 4.2;oXL.ActiveSheet.Columns(4).ColumnWidth = 8;oXL.ActiveSheet.Columns(5).ColumnWidth = 15.4;oXL.ActiveSheet.Columns(6).ColumnWidth = 15.4;oXL.ActiveSheet.Columns(7).ColumnWidth = 4.2;oXL.ActiveSheet.Columns(8).ColumnWidth = 6.2;oXL.ActiveSheet.Columns(9).ColumnWidth = 7.4;oXL.ActiveSheet.Columns(10).ColumnWidth = 7.4;oXL.ActiveSheet.Columns(11).ColumnWidth = 5.8;oXL.ActiveSheet.Columns(12).ColumnWidth = 4.2;oXL.ActiveSheet.Columns(13).ColumnWidth = 5.8;oXL.ActiveSheet.Columns(14).ColumnWidth = 15.4;oXL.ActiveSheet.Columns(17).ColumnWidth = 7.9;oXL.ActiveSheet.Columns(19).ColumnWidth = 15.4;oXL.ActiveSheet.Columns(22).ColumnoXL.ActiveSheet.Columns(18).ColumnWidth = 7.9;Width = 4.2;oXL.ActiveSheet.Columns(24).ColumnWidth = 12.5;oXL.ActiveSheet.Columns(25).ColumnWidth = 5.8;oXL.ActiveSheet.Columns(26).ColumnWidth = 5.8;var oRangeRef1 = document.body.createTextRange();oRangeRef1.moveToElementText(elTable1);oRangeRef1.execCommand( "Copy" );oXL.WorkSheets(1).Activate;oXL.WorkSheets(1).Activate;oXL.ActiveSheet.Paste();oXL.ActiveSheet.Range("A4:AA"+TableRows).Borders.Weight = 2;oXL.ActiveSheet.Range("A4:AA"+TableRows).VerticalAlignment = 2;oXL.ActiveSheet.Cells(1,1).select();oXL.Visible=true;}。

本文到这结束,希望上面文章对大家有所帮助。

最后修改时间:
安徽省中考各科的分数满分是多少_安徽省中考各科总分是多少
上一篇
执念的近义词(执念的近义词成语)
下一篇

相关文章