var AppExcel ;
var OLOldBook,DataSheet,OLNewBook,OLCurSheet;
var Row ;
var KAmountScript = '';
AppExcel= new ActiveXObject('Excel.Application');
Row=1 ;
OLOldBook = AppExcel.WorkBooks.Open( 'C:\\ExcelTemplate\\FR0140T1.xlt ');
var sheet_Number = 1;
AppExcel.run('sheet_add', sheet_Number,'銷貨一覽表');
AppExcel.run('sheet_active','銷貨一覽表');
OLCurSheet = OLOldBook.ActiveSheet;
OLCurSheet.Cells(5, 1) = 'M100225FHB1' ;
OLCurSheet.Cells(5, 2) = 'M100225FHB1' ;
OLCurSheet.Cells(5, 3) = 'AMEC' ;
OLCurSheet.Cells(5, 4) = '002.06.030' ;
OLCurSheet.Cells(5, 5) = '68834.40' ;
OLCurSheet.Cells(5, 12) = '67491.200000' ;
OLCurSheet.Cells(5, 8) = '469925.56536000' ;
OLCurSheet.Cells(5, 15) = '460755.673280000000' ;
OLCurSheet.Cells(5, 9) = '00089451' ;
OLCurSheet.Cells(5, 10) = '河北蒙特费罗导轨有限公司' ;
OLCurSheet.Cells(5, 11) = '001.10.001' ;
OLCurSheet.Cells(5, 16) = 'zhengfy' ;
KAmountScript += 'OLCurSheet.Range("I5:I7").FormulaR1C1 = "=RC[-1]/1000";';
KAmountScript += 'OLCurSheet.Range("I5:I7").NumberFormatLocal = "#,##0.00";';
KAmountScript += 'OLCurSheet.Range("Q5:Q7").FormulaR1C1 = "=RC[-1]/1000";';
KAmountScript += 'OLCurSheet.Range("Q5:Q7").NumberFormatLocal = "#,##0.00";'; KAmountScript += 'OLCurSheet.Range("H5").FormulaR1C1=6.826900;';
KAmountScript += 'OLCurSheet.Columns("I5").FormulaR1C1=469925.56536;';
KAmountScript += 'OLCurSheet.Range("H5").FormulaR1C1=6.826900;';
KAmountScript += 'OLCurSheet.Columns("I6").FormulaR1C1=146682.7734;';
KAmountScript += 'OLCurSheet.Range("H6").FormulaR1C1=6.826900;';
这里出说确实 ;结束符号
KAmountScript += 'OLCurSheet.Columns("I5").FormulaR1C1="=IF(E5<>"",E5,IF(F5<>"",F5,G5))*H5";';
var OLOldBook,DataSheet,OLNewBook,OLCurSheet;
var Row ;
var KAmountScript = '';
AppExcel= new ActiveXObject('Excel.Application');
Row=1 ;
OLOldBook = AppExcel.WorkBooks.Open( 'C:\\ExcelTemplate\\FR0140T1.xlt ');
var sheet_Number = 1;
AppExcel.run('sheet_add', sheet_Number,'銷貨一覽表');
AppExcel.run('sheet_active','銷貨一覽表');
OLCurSheet = OLOldBook.ActiveSheet;
OLCurSheet.Cells(5, 1) = 'M100225FHB1' ;
OLCurSheet.Cells(5, 2) = 'M100225FHB1' ;
OLCurSheet.Cells(5, 3) = 'AMEC' ;
OLCurSheet.Cells(5, 4) = '002.06.030' ;
OLCurSheet.Cells(5, 5) = '68834.40' ;
OLCurSheet.Cells(5, 12) = '67491.200000' ;
OLCurSheet.Cells(5, 8) = '469925.56536000' ;
OLCurSheet.Cells(5, 15) = '460755.673280000000' ;
OLCurSheet.Cells(5, 9) = '00089451' ;
OLCurSheet.Cells(5, 10) = '河北蒙特费罗导轨有限公司' ;
OLCurSheet.Cells(5, 11) = '001.10.001' ;
OLCurSheet.Cells(5, 16) = 'zhengfy' ;
KAmountScript += 'OLCurSheet.Range("I5:I7").FormulaR1C1 = "=RC[-1]/1000";';
KAmountScript += 'OLCurSheet.Range("I5:I7").NumberFormatLocal = "#,##0.00";';
KAmountScript += 'OLCurSheet.Range("Q5:Q7").FormulaR1C1 = "=RC[-1]/1000";';
KAmountScript += 'OLCurSheet.Range("Q5:Q7").NumberFormatLocal = "#,##0.00";'; KAmountScript += 'OLCurSheet.Range("H5").FormulaR1C1=6.826900;';
KAmountScript += 'OLCurSheet.Columns("I5").FormulaR1C1=469925.56536;';
KAmountScript += 'OLCurSheet.Range("H5").FormulaR1C1=6.826900;';
KAmountScript += 'OLCurSheet.Columns("I6").FormulaR1C1=146682.7734;';
KAmountScript += 'OLCurSheet.Range("H6").FormulaR1C1=6.826900;';
这里出说确实 ;结束符号
KAmountScript += 'OLCurSheet.Columns("I5").FormulaR1C1="=IF(E5<>"",E5,IF(F5<>"",F5,G5))*H5";';
解决方案 »
- 请问,JS中字符串最大长度是多少?
- 请问如何继承父页面的jquery对象?
- 分享代码,基于MicroSoftAjax的JS代码之1.2:异常处理(TestException.js)
- 为什么我的Firebug不报错呢,还是Firefox不报错?
- js控制select选定项问题
- ajax在WINDOW2003下的末指定错误
- 页面a上弹出 框架页面b,如何在b页面刷新a页面?
- 有人知道document.location.search是什么意思吗?
- 怎么得到一个没有指定 style.width 的 Div 的宽度?
- 大家好 请问网页上全景展现一般是什么做的呢?
- JS代码在火孤里没有反应
- 知道这样的工具吗?谢谢分享
KAmountScript += 'OLCurSheet.Columns("I5").FormulaR1C1="=IF(E5<>"",E5,IF(F5<>"",F5,G5))*H5";';
就是这段js语句
我要将="=IF(E5<>"",E5,IF(F5<>"",F5,G5))*H5"; 这个是execl文档中的算法。但是直接输入到execl中的话就会出js就会出语法错误。