导入导出EXEC
Posted lydg
tags:
篇首语:本文由小常识网(cha138.com)小编为大家整理,主要介绍了导入导出EXEC相关的知识,希望对你有一定的参考价值。
function toExcel(){
AllAreaExcela();
//AllAreaExcel(grid7.tab);
}
//指定页面区域内容导入Excel
function AllAreaExcela()
{
var oXL = new ActiveXObject("Excel.Application");
var oWB = oXL.Workbooks.Add();
var oSheet = oWB.Worksheets(1); //创建工作表
var sel=document.body.createTextRange();
sel.moveToElementText(grid6.tab);
sel.select();
sel.execCommand("Copy");
oSheet.Paste();
var ExcelSheet = oWB.Worksheets(2); //创建工作表
var sela=document.body.createTextRange();
sela.moveToElementText(grid7.tab);
sela.select();
sela.execCommand("Copy");
ExcelSheet.Paste();
oXL.Visible = true;
}
//导出
function ReadExcel(DsSub_Grid1)
{
DsSub1.Delete();
var tempStr = "";
var filePath= document.all.upfile.value;
if(filePath == "")
{
alert("请选择要导入的文件!");
return;
}
alert(filePath);
var oXL = new ActiveXObject("Excel.application");
var oWB = oXL.Workbooks.open(filePath);
//var oWB = oXL.Workbooks.open("d:/TEST.xls");
//alert(oWB);
oWB.worksheets(1).select();
var oSheet = oWB.ActiveSheet;
try
{
var ry= "";
var cpmc= "";
var th= "";
var gx= "";
var dz= "";
var ryid= "";
var je= "";
var bz= "";
var wcsl= "";
var bcpsl= "";
var i =2;
ry= oSheet.Cells(i,2).value;
while(ry!=null)
{
ry= oSheet.Cells(i,2).value;
cpmc= oSheet.Cells(i,3).value;
th= oSheet.Cells(i,4).value;
gx= oSheet.Cells(i,5).value;
dz= oSheet.Cells(i,6).value;
//ryid= oSheet.Cells(i,8).value;
wcsl= oSheet.Cells(i,7).value;
bcpsl= oSheet.Cells(i,8).value;
je= oSheet.Cells(i,9).value;
bz= oSheet.Cells(i,10).value;
var sql="select userid from vw_users where username=‘"+ry+"‘";
ryid=SqlToField(sql);
DsSub1.Append();
DsSub1.Fields.Field[‘ry‘].Value = (ry) ? ry: "";
DsSub1.Fields.Field[‘cpmc‘].Value = (cpmc) ? cpmc: "";
DsSub1.Fields.Field[‘th‘].Value = (th) ? th: "";
DsSub1.Fields.Field[‘gx‘].Value = (gx) ? gx: "";
DsSub1.Fields.Field[‘dz‘].Value = (dz) ? dz: "";
DsSub1.Fields.Field[‘ryid‘].Value = (ryid) ? ryid: "";
DsSub1.Fields.Field[‘je‘].Value = (je) ? je: "";
DsSub1.Fields.Field[‘bz‘].Value = (bz) ? bz: "";
DsSub1.Fields.Field[‘wcsl‘].Value = (wcsl) ? wcsl: "";
DsSub1.Fields.Field[‘bcpsl‘].Value = (bcpsl) ? bcpsl: "";
DsSub1.bEdit = true;
DsSub1.Update(‘不检查‘);
DsToGrid(DsSub_Grid1,‘否‘);
i++;
}
oXL.Quit();
DsSub1.Delete();
alert("导入完成!");
}
catch(e)
{
alert("导入失败!"+e);
}
}
以上是关于导入导出EXEC的主要内容,如果未能解决你的问题,请参考以下文章