如何将excel中的数据自动导入web页面中?
如何将Excel中一个表格的数据导入到另一个表格
DataTable.ImportSheet(FileName,SheetSource,SheetDest)
DataTable.ExportSheet(FileName,DTSheet)
述的方法,在脚本中导入导出excel中的数据对是文件名,文件路径,还有excel的sheet名。
如何获取EXCEl表中的数据?然后导入到Data table的...
DataTable.ImportSheet(FileName,SheetSource,SheetDest)
DataTable.ExportSheet(FileName,DTSheet)
用上述的方在脚本中导入excel中的数据。对应的是名,文件路径,还有excel的sheet名。
如何把页面上的table数据导入到Excel中
var elTable = document.getElementByIdx_x_x("tb");
//tb为页面上table的id
var oRangeRef = document.body.createTextRange();
oRangeRef.moveToElementText( elTable );
oRangeRef.execCommand( "Copy" );
var appExcel = new ActiveXObject( "Excel.Application" );
appExcel.Visible = true;
appExcel.Workbooks.Add().Worksheets.Item(1).Paste();
appExcel = null;
上JS代码放到function中,利用一个按钮触发,运可能会出现“Automation
服务器不能创建对象”错误,解决方法为:打开打开Internet Explorer
工具->选项->安全->自定义级别,将第三项“对没有标记为安全的activex控件进行初始化和脚本运行”设置成“启用”即可。
我是这样做的:
File file = new File("C:\\Documents and
Settings\\Administrator\\桌面\\物流报表");
if(!file.exists()){//如果不存在该文件夹
file.mkdir();//新建一个
}
String fileName = "C:/Documents
and Settings/Administrator/桌面/物流报表/报表" time ".xls";
// String fileName =
"C://apache-tomcat-6.0.29";
WritableWorkbook book =
Workbook.createWorkbook(new
File(fileName));
WritableSheet sheet =
book.createSheet("报表", 0);
//设置Excel标题字体
jxl.write.WritableFont wfc1 =
new jxl.write.WritableFont(WritableFont.ARIAL, 20,
WritableFont.BOLD, false,
UnderlineStyle.NO_UNDERLINE,
jxl.format.Colour.BLUE);
jxl.write.WritableCellFormat
wcfFC1 = new
jxl.write.WritableCellFormat(wfc1);
jxl.write.Label labelB10 = new
jxl.write.Label(2, 0, "物流" datas[1] "度报表", wcfFC1);
//设置Excel列标题字体
jxl.write.WritableFont wfc2 =
new jxl.write.WritableFont(WritableFont.ARIAL, 13,
WritableFont.BOLD, false,
UnderlineStyle.NO_UNDERLINE,
jxl.format.Colour.RED);
jxl.write.WritableCellFormat
wcfFC2 = new jxl.write.WritableCellFormat(wfc2);
jxl.write.Label labelB1 = new
jxl.write.Label(0, 1, "配送点", wcfFC2);
jxl.write.Label labelB2 = new
jxl.write.Label(1, 1, "报表时间", wcfFC2);
jxl.write.Label labelB3 = new
jxl.write.Label(2, 1, "报表生成时间", wcfFC2);
jxl.write.Label labelB4 = new
jxl.write.Label(3, 1, "发货数量", wcfFC2);
jxl.write.Label labelB5 = new
jxl.write.Label(4, 1, "送货数量", wcfFC2);
jxl.write.Label labelB6 = new
jxl.write.Label(5, 1, "总数量", wcfFC2);
jxl.write.Label labelB7 = new
jxl.write.Label(6, 1, "发货收入", wcfFC2);
jxl.write.Label labelB8 = new
jxl.write.Label(7, 1, "送货收入", wcfFC2);
jxl.write.Label labelB9 = new
jxl.write.Label(8, 1, "本年度总收入", wcfFC2);
//设置表格里的数据字体
jxl.write.WritableFont wfc3 =
new jxl.write.WritableFont(WritableFont.ARIAL, 10,
WritableFont.NO_BOLD, false,
UnderlineStyle.NO_UNDERLINE,
jxl.format.Colour.BLACK);
jxl.write.WritableCellFormat
wcfFC3 = new jxl.write.WritableCellFormat(wfc3);
jxl.write.Label label =
null;
try {
sheet.addCell(labelB1);
sheet.addCell(labelB2);
sheet.addCell(labelB3);
sheet.addCell(labelB4);
sheet.addCell(labelB5);
sheet.addCell(labelB6);
sheet.addCell(labelB7);
sheet.addCell(labelB8);
sheet.addCell(labelB9);
sheet.addCell(labelB10);
int j =
0;//控制行数
for(int i =
0;i < datas.length;i ){
if(i%9
== 0){
j ;
}
label
= new jxl.write.Label(i%9,j 1,datas[i],wcfFC3);
sheet.addCell(label);
}
book.write();
book.close();
}catch (Exception e) {
e.printStackTrace();
}
html中的表格数据怎样导入到ecxel表?
以前读时候绝不会想到会用客户端脚本来这些功能,现一开始就要用上了,而且还觉得挺实用的。
《Windows脚本技术》,应该会有一点收获。
Untitled Page
trackback:/netcorner/blog/item/4c35a818788f670635fa41d3.html
通过Javascript操作Excel
function AutomateExcel()
{
// Start Excel and get Application object.
var oXL = new ActiveXObject("Excel.Application");
oXL.Visible = true;
// Get a new workbook.
var oWB = oXL.Workbooks.Add();
var oSheet = oWB.ActiveSheet;
// Add table headers going cell by cell.
oSheet.Cells(1, 1).Value = "First Name";
oSheet.Cells(1, 2).Value = "Last Name";
oSheet.Cells(1, 3).Value = "Full Name";
oSheet.Cells(1, 4).Value = "Salary";
// Format A1:D1 as bold, vertical alignment = center.
oSheet.Range("A1", "D1").Font.Bold = true;
oSheet.Range("A1", "D1").VerticalAlignment = -4108; //xlVAlignCenter
// Create an array to set multiple values at once.
// Fill A2:B6 with an array of values (from VBScript).
oSheet.Range("A2", "B6").Value = CreateNamesArray();
// Fill C2:C6 with a relative formula (=A2