- 用户操作
- [留言] [发消息] [加为好友]
- 订阅我的博客
-
-
-
-
- balloonman2002的公告
- <left> <embed src="http://www.clocklink.com/Clocks/0001-Blue.swf?TimeZone=CCT" width="150" height="150" wmode="transparent" type="application/x-shockwave-flash"> </left> <div id="Layer1" style="position:absolute; left:103px; top:1px; width:415px; height:299px; z-index:1"> <object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,29,0" width="300" height="300"> <param name="movie" value="http://bbs.leadbbs.com/images/upload/2003/10/03/160034.swf"> <param name="quality" value="high"> <param name="menu" value="false"> <param name="wmode" value="transparent"> <embed src="http://bbs.jojin.com/images/upload/2003/10/03/160034.swf" width="400" height="400" quality="high" pluginspage="http://www.macromedia.com/go/getflashplayer";;;; type="application/x-shockwave-flash" menu="false" wmode="transparent"></embed></object> </div> <center></center> 当前页：<img src="" id="PageView"><br> 总计数：<img src="" id="TotalView",style="display:none"><br> <script> //设置两个计数计的外观样式，取值1-60 var PageCountStyle=48 var TotalCountStyle=48 try{ var sUrl=self.location.href var re=new RegExp("(.+\.net\/)([^\/]+)([^\.]*)","ig") if(re.test(sUrl)) { var blog_id=RegExp.$2; var page_id=blog_id+"__"+RegExp.$3.replace(/\//g,""); blog_id+="__CSDNBLOG" var cUrl="http://nmc2.jy.js.cn/cgi-bin/counter.pl?ln=8&bd=$0;$0;$255&from=0" document.all.PageView.src=cUrl+"&id="+page_id+"&md=a"+PageCountStyle document.all.TotalView.src=cUrl+"&id="+blog_id+"&md=a"+TotalCountStyle } }catch(e){;} </script> <hr> Balloonman2002 QQ:27855043 MSN:Weiyin2001@Msn.Com <hr> <center>始建于2004年6月26日</center> <hr>
- 文章分类
- 存档
如何在PB中统计EXCEL文件的行列数？（原创）
收藏
如何在PB中统计EXCEL文件的行列数？
问题描述：
如何在PB中统计EXCEL文件的行列数？
解决方案：
OLEObject OLE_MyExcel
OLE_MyExcel =Create OLEObject
OLE_MyExcel. ConnectToNewObject("excel.Application")
OLE_MyExcel.visible=false
OLE_MyExcel.Workbooks.Open("c:\xxx.xls")
messagebox("rows",string(OLE_MyExcel.ActiveWorkbook.Activesheet.UsedRange.Rows.Count))
OLE_MyExcel.quit()
OLE_MyExcel.DisConnectObject()
destroy OLE_MyExcel
发表于 @ 2005年01月24日 20:05:00 | 评论( loading... ) | 举报| 收藏
旧一篇:如何在PB中使用ASCII码为0的字符？（原创） | 新一篇:如何跨进程发送字符串？（收藏）
- 查看最新精华文章 请访问博客首页相关文章
-
- 发表评论
-
- 表 情：
-
- 评论内容：
- 用 户 名：