javascript操作Excel和自定义提示条 - javascript -

javascript操作Excel和自定义提示条

时间:2010-01-26 23:13:46   来源:   评论:加载中...   点击:加载中...
//书 http://www.itpub.net/attachment.php?s=&postid=1894598 http://www.wrclub.net/down/listdown.aspx?id=1341 //操作EXECL <scrip...

//书

http://www.itpub.net/attachment.php?s=&postid=1894598
http://www.wrclub.net/down/listdown.aspx?id=1341

//操作EXECL

<script language="javascript">
function jStartExcel() {
var xls = new ActiveXObject ( "Excel.Application" );
xls.visible =
true;
var newBook = xls.Workbooks.Add;
newBook.Worksheets.Add;
newBook.Worksheets(1).Activate;
xls.ActiveWorkBook.ActiveSheet.PageSetup.Orientation = 2;
xls.ActiveWorkBook.ActiveSheet.PageSetup.PaperSize = 5;
newBook.Worksheets(1).Columns(
"A").columnwidth=50;
newBook.Worksheets(1).Columns(
"A").WrapText = true;
newBook.Worksheets(1).Columns(
"B").columnwidth=50;
newBook.Worksheets(1).Columns(
"B").WrapText = true;
newBook.Worksheets(1).Range(
"A1:B1000").NumberFormat = "0";
newBook.Worksheets(1).Range(
"A1:B1000").HorizontalAlignment = -4131;
newBook.Worksheets(1).Cells(1,1).Interior.ColorIndex=
"15";
newBook.Worksheets(1).Cells(1,1).value=
"First Column, First Cell";
newBook.Worksheets(1).Cells(2,1).value=
"First Column, Second Cell";
newBook.Worksheets(1).Cells(1,2).value=
"Second Column, First Cell";
newBook.Worksheets(1).Cells(2,2).value=
"Second Column, Second Cell";
newBook.Worksheets(1).Name=
"My First WorkSheet";
}
</script>


//
自定义提示条

<a href="#" title="这是提示">tip</a>
<script Language=
"JavaScript">
//***********默认设置定义.*********************
tPopWait=50;
//停留tWait豪秒后显示提示。
tPopShow=5000;
//显示tShow豪秒后关闭提示
showPopStep=20;
popOpacity=99;
//***************内部变量定义*****************
sPop=
null;
curShow=
null;
tFadeOut=
null;
tFadeIn=
null;
tFadeWaiting=
null;
document.write(
"<style type='text/css'id='defaultPopStyle'>");
document.write(
".cPopText {   background-color: #F8F8F5;color:#000000; border: 1px #000000 solid;font-color: font-size: 12px; padding-right: 4px; padding-left: 4px; height: 20px; padding-top: 2px; padding-bottom: 2px; filter: Alpha(Opacity=0)}");
document.write(
"</style>");
document.write(
"<div id='dypopLayer' style='position:absolute;z-index:1000;' class='cPopText'></div>");

function showPopupText(){
var o=event.srcElement;
MouseX=event.x;
MouseY=event.y;
if(o.alt!=null && o.alt!=""){o.dypop=o.alt;o.alt=""};
        
if(o.title!=null && o.title!=""){o.dypop=o.title;o.title=""};
if(o.dypop!=sPop) {
sPop=o.dypop;
clearTimeout(curShow);
clearTimeout(tFadeOut);
clearTimeout(tFadeIn);
clearTimeout(tFadeWaiting);
if(sPop==null || sPop=="") {
dypopLayer.innerHTML=
"";
dypopLayer.style.filter=
"Alpha()";
dypopLayer.filters.Alpha.opacity=0;
}
else {
if(o.dyclass!=null) popStyle=o.dyclass
else popStyle="cPopText";
curShow=setTimeout(
"showIt()",tPopWait);
}
}
}
function showIt(){
dypopLayer.className=popStyle;
dypopLayer.innerHTML=sPop;
popWidth=dypopLayer.clientWidth;
popHeight=dypopLayer.clientHeight;
if(MouseX+12+popWidth>document.body.clientWidth) popLeftAdjust=-popWidth-24
else popLeftAdjust=0;
if(MouseY+12+popHeight>document.body.clientHeight) popTopAdjust=-popHeight-24
else popTopAdjust=0;
dypopLayer.style.left=MouseX+12+document.body.scrollLeft+popLeftAdjust;
dypopLayer.style.top=MouseY+12+document.body.scrollTop+popTopAdjust;
dypopLayer.style.filter=
"Alpha(Opacity=0)";
fadeOut();
}
function fadeOut(){
if(dypopLayer.filters.Alpha.opacity<popOpacity) {
dypopLayer.filters.Alpha.opacity+=showPopStep;
tFadeOut=setTimeout(
"fadeOut()",1);
}
else {
dypopLayer.filters.Alpha.opacity=popOpacity;
tFadeWaiting=setTimeout(
"fadeIn()",tPopShow);
}
}
function fadeIn(){
if(dypopLayer.filters.Alpha.opacity>0) {
dypopLayer.filters.Alpha.opacity-=1;
tFadeIn=setTimeout(
"fadeIn()",1);
}
}
document.onmouseover=showPopupText;
</script>



相关热词搜索:

 
上一篇:JS实现插入文字/操作xml/判断键值/禁止FSO/省略号/检测me
下一篇:图象按比例缩放/细线SELECT/Import/js枚举/条件编译/取得
收藏 将此文推荐给朋友
分享到: