怎样使Excel表自动添加数据

发布网友发布时间：2022-04-25 12:28

共2个回答

懂视网时间：2022-05-16 17:02

代码如下:
var main=document.getElementById("main");
var singlepost=false;
var firstpost;
var anchor;
for(var i=0;i{
if(main.childNodes[i].className&&main.childNodes[i].className=="post")
{
var post=main.childNodes[i];
if(!firstpost)
{
firstpost=post;
}
for(var j=0;j {
if(post.childNodes[j].className&&post.childNodes[j].className=="posthead")
{
var posthead=post.childNodes[j];
if(posthead.childNodes[1]&&posthead.childNodes[1].tagName&&posthead.childNodes[1].tagName=="H2")
{
if(posthead.childNodes[1].childNodes[1]&&posthead.childNodes[1].childNodes[1].tagName&&posthead.childNodes[1].childNodes[1].tagName=="A")
{
anchor=posthead.childNodes[1].childNodes[1];
}
else
{
anchor=posthead.childNodes[1].childNodes[0];
}
}
else
{
anchor=posthead.childNodes[0].childNodes[0];
}
anchor.style.fontSize="14pt";
if(anchor.className&&anchor.className=="singleposttitle")
{
singlepost=true;
}
}
}
}
}
if(singlepost)
{
var postfoot=document.createElement("div");
firstpost.appendChild(postfoot);
postfoot.className="postfoot";
postfoot.innerHTML="

Add to del.icio.us";
postfoot.innerHTML+="

Digg This!";
postfoot.innerHTML+="

Share on Facebook";
postfoot.innerHTML+="

Google Bookmark This";
}

热心网友时间：2022-05-16 14:10

使用刷新按钮刷新数据：
按钮代码如下：
Sub 刷新()
Dim i
i = Application.WorksheetFunction.CountA(ActiveSheet.Range("A:A"))
ActiveSheet.Range("A" & i + 1) = Cells(24, 2)
End Sub