⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 listview控件里的数据导出到excel_mysky.htm

📁 自己总结的一些VB资料
💻 HTM
📖 第 1 页 / 共 2 页
字号:
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<!-- saved from url=(0070)http://hi.baidu.com/gallonchai/blog/item/10b7a6d3d518f8dda9ec9ac2.html -->
<!--STATUS OK--><HTML><HEAD><TITLE>listview控件里的数据导出到excel_MySky</TITLE>
<META http-equiv=content-type content="text/html; charset=gb2312">
<STYLE>.error {
	FONT-SIZE: 12px; COLOR: #ff0000
}
</STYLE>

<SCRIPT src="listview控件里的数据导出到excel_MySky.files/global.js" 
type=text/javascript></SCRIPT>

<SCRIPT language=javascript 
src="listview控件里的数据导出到excel_MySky.files/popup.js"></SCRIPT>

<SCRIPT language=JavaScript 
src="listview控件里的数据导出到excel_MySky.files/g_spjs.js"></SCRIPT>

<SCRIPT language=javascript><!--var allkey="";var i=0;var flag=0;function setpv(allnum){	var num = allnum.split('_');	document.getElementById("result").innerHTML=num[0];}		 function checkMail(s) {   	var pattern=/\w+@\w+\.[a-z]+/;   	if(pattern.test(s))     {        return true;     }   	else    {       return false;    } } function checkeandu(eanduid){	var eanduvalue=G(eanduid).value;	var len=bytes(eanduvalue);	if(len>128)	{		showErr(2,"您输入的网址或邮箱太长,请保持在128字节以内。");		return false;	}	else	{ 		 return true;	}		}function cmtdel(str){	var pop=new Popup({ contentType:3,isReloadOnClose:false,width:340,height:80});	pop.setContent("title","删除评论");	pop.setContent("confirmCon","您确定要彻底删除这条评论吗?");	pop.setContent("callBack",delCallback2);	pop.setContent("parameter",{fid:str,popup:pop});	pop.build();	pop.show();	return false;}function delCallback2(para){	var o_pop=para["popup"];	o_pop.config.contentType=1;	o_pop.setContent("contentUrl","");	o_pop.reBuild();	G(para["fid"]).target=o_pop.iframeIdName;	eval("document."+para["fid"]).submit();}function checkname(strid){	var ele=document.getElementById(strid);	var len=bytes(ele.value);	if(len>49)	{		showErr(1,"您输入的姓名太长,请保持在49字节以内。");		return false;	}	else 	{				if(len==0)		{			document.getElementById(strid).value="匿名网友";		}		 return true;	}		}function checktext(textid){		document.getElementById(textid).value=trimlr(textid);		var str=trimrn(textid);		len=str.length;		if(len==0 || ((/^[\s, ]+$/gi).test(str)) )		{			showErr(3,"您必须输入评论内容,请检查。");			return false;		}		else 		{				if(len>1000)				{					showErr(3,"您输入的评论内容太长,请保持在500字以内。");					return false;				}			return true;		}	}function showErr(index,str){	G(index+"_err").style.display="";	G(index+"_err_con").innerHTML=str;}function hidErr(index){	G(index+"_err").style.display="none";	G(index+"_err_con").innerHTML="";}function alertPop(tit,con){	var pop=new Popup({ contentType:4,isReloadOnClose:false,width:340,height:80});	pop.setContent("title",tit);	pop.setContent("alertCon",con);	pop.build();	pop.show();}function cmtfull(){	var cnum=0;	if(cnum>=50000)	{		alertPop("发表评论","单篇日志评论数最多为50000条.");		return false;	}	else	{		return true;	}}function checkcmtform(){	if(checkname("spBlogCmtor")&&checkeandu("spBlogCmtURL")&&checktext("spBlogCmtText")&&cmtfull())	{		submitForm();		return true;	}	else	{		return false;	}}var g_pop=null;function submitForm(){	g_pop=new Popup({ contentType:1,isReloadOnClose:false,width:340,height:80});	g_pop.setContent("title","添加评论");	g_pop.setContent("contentUrl","");	g_pop.setContent("someDisabledBtn","btn_ok");	g_pop.build();	G("popFormSubmit").target=g_pop.iframeIdName;	g_pop.show();}function g_close_pop(){	g_pop.close();}function formatonlinpic(){var picobj=document.getElementsByName("onlinepic");var picnum=picobj.length;		for(var i=0;i<picnum;i++)	{		if(picobj[i].width>200)		{			picobj[i].width=200;		}		if(picobj[i].height>200)		{			picobj[i].height=200;		}	}}function addToFavor(){var blogTitle='listview控件里的数据导出到excel'.replace(/&#39;/g,'\'');window.open('http://cang.baidu.com/do/add?it='+encodeURIComponent(blogTitle+'_百度空间')+'&iu='+encodeURIComponent(location.href)+'&fr=sp#nw=1','_s','scrollbars=no,width=600,height=450,right=75,top=20,status=no,resizable=yes'); return false;}var isIE = /*@cc_on!@*/false;function tracker(did,a){	return function(){		var t=new Date().getTime();		var href=a.href;        if(isIE){            var r = /href\s*=\s*("|')?([^\s]*)\1/gi;            if(r.test(a.outerHTML))                href = RegExp.$2;        }        new Image().src = "http://hi.baidu.com/sys/statlog/1.gif?m=" + did + "&v=" + encodeURIComponent(href) + "&c=" + encodeURIComponent(location.href) + "&t="+t;	}}function tracker_init(did){	var _s=document.getElementById(did);	var as = _s.getElementsByTagName('A');	for(var i = 0, j = as.length; i < j; i ++){		var a = as[i];		if(isIE){			a.attachEvent("onclick", tracker(did,a));		}else{			a.addEventListener("click", tracker(did,a), false);		}	}}//--></SCRIPT>

<SCRIPT type=text/javascript>/*<![CDATA[*/var RelatedDocData = null, GetAndEval = false;(function(){	var xhr = BdAjax.getXHR();	if(xhr == null){		RelatedDocData = -1;		return;	}	xhr.open("GET", "/sys/search?type=8&word=listview%BF%D8%BC%FE%C0%EF%B5%C4%CA%FD%BE%DD%B5%BC%B3%F6%B5%BDexcel&item=10b7a6d3d518f8dda9ec9ac2&t=" + new Date().getTime(), true);		xhr.onreadystatechange = function(){		if(xhr.readyState == 4){			if(xhr.status == 0 || xhr.status == 200){				if(GetAndEval){					eval(xhr.responseText);				}else{					RelatedDocData = xhr.responseText;				}			}		}	}	xhr.send(null);})();/*]]>*/</SCRIPT>

<META content="MSHTML 6.00.2900.3354" name=GENERATOR></HEAD>
<BODY onload=formatonlinpic();>
<CENTER>
<SCRIPT type=text/javascript>
/*<![CDATA[*/
if(top.location != self.location){
	top.location = self.location;
}
var myref = encodeURI("http://hi.baidu.com/gallonchai/blog/item/10b7a6d3d518f8dda9ec9ac2%2Ehtml");
/*]]>*/
</SCRIPT>
<LINK href="listview控件里的数据导出到excel_MySky.files/mods.css" type=text/css 
rel=stylesheet><LINK 
href="listview控件里的数据导出到excel_MySky.files/bb792b3e6609c93d70cf6c0a.css" 
type=text/css rel=stylesheet><LINK 
href="listview控件里的数据导出到excel_MySky.files/space.css" type=text/css 
rel=stylesheet>
<STYLE type=text/css>#usrbar {
	PADDING-RIGHT: 10px; PADDING-LEFT: 0px; FONT-SIZE: 12px; BACKGROUND: #ffffff; FILTER: alpha(opacity=65); PADDING-BOTTOM: 3px; WIDTH: 100%; COLOR: #000000; LINE-HEIGHT: 19px; PADDING-TOP: 4px; FONT-FAMILY: Arial; LETTER-SPACING: normal; HEIGHT: 19px; TEXT-ALIGN: right; moz-opacity: 0.5
}
#usrbar A {
	COLOR: #0000cc; TEXT-DECORATION: underline
}
#usrbar A:link {
	COLOR: #0000cc; TEXT-DECORATION: underline
}
#usrbar A:visited {
	COLOR: #0000cc; TEXT-DECORATION: underline
}
#ft {
	CLEAR: both; FONT-SIZE: 12px; COLOR: #666666; LINE-HEIGHT: 20px; FONT-FAMILY: Arial; HEIGHT: 20px; TEXT-ALIGN: center
}
#ft A {
	COLOR: #7777cc; TEXT-DECORATION: underline
}
#ft A:link {
	COLOR: #7777cc; TEXT-DECORATION: underline
}
#ft A:visited {
	COLOR: #7777cc; TEXT-DECORATION: underline
}
#usrbar {
	LETTER-SPACING: normal
}
#usrbar A {
	LETTER-SPACING: normal
}
#usrbar A:link {
	LETTER-SPACING: normal
}
#usrbar A:visited {
	LETTER-SPACING: normal
}
#ft {
	LETTER-SPACING: normal
}
#ft A {
	LETTER-SPACING: normal
}
#ft A:link {
	LETTER-SPACING: normal
}
#ft A:visited {
	LETTER-SPACING: normal
}
</STYLE>

<DIV id=usrbar><NOBR><A href="http://www.baidu.com/" target=_blank>百度首页</A> | <A 
id=hi_index href="http://hi.baidu.com/" target=_blank>百度空间</A>
<SCRIPT type=text/javascript>
		document.write('| <a href="http://passport.baidu.com/?login&tpl=sp&tpl_reg=sp&u=http://hi.baidu.com' + encodeURI('/gallonchai/blog/item/10b7a6d3d518f8dda9ec9ac2%2Ehtml') + '">登录</a>');
		</SCRIPT>
 </NOBR></DIV>
<DIV id=main align=left><!--[if IE]>
<SCRIPT>
var objmain = document.getElementById("main");
function updatesize(){ var bodyw = window.document.body.offsetWidth; if(bodyw <= 790) objmain.style.width="772px"; else if(bodyw >= 1016) objmain.style.width="996px"; else objmain.style.width="100%"; }
updatesize(); window.onresize = updatesize;
</SCRIPT>
<![endif]-->
<DIV id=header>
<DIV class=lc>
<DIV class=rc></DIV></DIV>
<DIV class=tit><A class=titlink 
title="gallonchai的空间 http://hi.baidu.com/gallonchai" 
href="http://hi.baidu.com/gallonchai">MySky</A></DIV>
<DIV class=desc>自由空间</DIV>
<DIV id=tabline></DIV>
<DIV id=tab><A href="http://hi.baidu.com/gallonchai">主页</A><A class=on 
href="http://hi.baidu.com/gallonchai/blog">博客</A><A 
href="http://hi.baidu.com/gallonchai/album">相册</A><SPAN>|</SPAN><A 
href="http://hi.baidu.com/gallonchai/profile">个人档案</A> <SPAN>|</SPAN><A 
href="http://hi.baidu.com/gallonchai/friend">好友</A> </DIV></DIV>
<DIV class=stage>
<DIV class=stagepad>
<DIV style="WIDTH: 100%">
<TABLE class=modth cellSpacing=0 cellPadding=0 width="100%" border=0>
  <TBODY>
  <TR>
    <TD class=modtl width=7>&nbsp;</TD>
    <TD class=modtc noWrap>
      <DIV class=modhead><SPAN class=modtit>查看文章</SPAN></DIV></TD>
    <TD class=modtc noWrap align=right></TD>
    <TD class=modtr width=7>&nbsp;</TD></TR></TBODY></TABLE>
<DIV class=modbox id=m_blog>
<DIV class=tit>listview控件里的数据导出到excel</DIV>
<DIV class=date>2007-08-26 19:42</DIV>
<TABLE style="TABLE-LAYOUT: fixed">
  <TBODY>
  <TR>
    <TD>
      <DIV class=cnt id=blog_text>
      <P>listview控件里的数据导出到excel&nbsp;&nbsp;</P>
      <P></P>
      <P></P>
      <P><BR>Public Function dhListviewToExcel( _&nbsp;&nbsp;<BR>ByRef lvw As 
      MSComctlLib.ListView, _&nbsp;&nbsp;<BR>ByVal strFileName As String, 
      _&nbsp;&nbsp;<BR>Optional FileFormat As XlFileFormat = xlWorkbookNormal, 
      _&nbsp;&nbsp;<BR>Optional blnHeaders As Boolean = True) As 
      Boolean&nbsp;&nbsp;</P>
      <P><BR>Dim intColCnt As Integer ' 列之计数器。&nbsp;&nbsp;<BR>Dim intColumns As 
      Integer ' 字段数。&nbsp;&nbsp;<BR>Dim intRowCnt As Integer ' 
      栏之计数器。&nbsp;&nbsp;<BR>Dim intStartRow As Integer ' 

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -