＋设为首页   ＋添加到收藏夹
首页·栏目 >  软件资讯  |  技术专题  |  编程技术  |  数据库  |  服务器  |  项目方案  |  网站架构  |  应用指南  |  技术教程  |  项目开发
    当前位置：首页
开发技术指南» 文章正文
    引言：

 ·ubb相关正则问题    »显示摘要«
    摘要： 有一新闻页面， 需要显示头条新闻摘要， 原文是由ubb书写的， 所以不能在摘要里出现ubb代码及ubb产生的代码， 比如原文为： "中华人民共和国[color=red]是多么的[/color]伟大啊！"; 输出为"中华人民共和国是多么的伟大啊！"或者"中华人民共和国伟大啊！"才行， 请问该咋整？ ......
 ·想将分页后的recordset,指定页的记录导入数组, 可我这函数写的总有错误...我还是不太懂getrows请大家帮忙,顶也有分    »显示摘要«
    摘要： <%将新闻信息导出成为数组 public function getnewsrows(membername,area,pagesize,mode,page) dim rs,sql dim orderstr,areastr,myarray if membername="" then exit function if mode="" then......


如何找到EXCEL的命令集

我这里有一段用PB写的，将搜索内容转换的EXCEL的程序，其中用到了许多命令，我的前任走了，没有留下这些命令的出处。请教各位，我到那里能找到这个命令集。  
   
  另，什么地方能找到MICROSOFT   OFFICE   开发指南？  
   
  STRING   ls_area_id,ls_area_name  
  DATE   ld_start_date,ld_end_date  
  LONG   i,j  
   
  ld_start_date   =   dw_2.Object.start_date[1]  
  ld_end_date   =   dw_2.Object.end_date[1]  
  ls_area_id   =   dw_2.Object.area_id[1]  
   
  OLEObject   ole_object  
  ole_object   =   CREATE   OLEObject  
  if   ole_object.connecttonewobject("excel.application")   =   0   then    
  ole_object.visible   =true  
  ole_object.WORKBOOKS.ADD  
  ole_object.ActiveSheet.PageSetup.Orientation=2  
   
  Ole_object.ACTIVEWORKBOOK.SHEETS(1).CELLS(1,1).Font.Bold   =   True  
  Ole_object.ACTIVEWORKBOOK.SHEETS(1).CELLS(1,1).Font.size   =   12  
  Ole_object.ACTIVEWORKBOOK.SHEETS(1).CELLS(1,1).VALUE=trim(gs_title_cn) //设公司表头  
   
  Ole_object.ACTIVEWORKBOOK.SHEETS(1).CELLS(2,1).Font.Bold   =   True  
  Ole_object.ACTIVEWORKBOOK.SHEETS(1).CELLS(2,1).Font.size   =   10  
  IF   TRIM(ls_area_id)   =     OR   IsNull(ls_area_id)   THEN  
  Ole_object.ACTIVEWORKBOOK.SHEETS(1).CELLS(2,1).VALUE=STRING(ld_start_date,YYYY年MM月DD日)+至+&  
  STRING(ld_end_date,YYYY年MM月DD日)+所有地区代理商应收团款情况一览表  
  ELSE  
  SELECT   "TFJ134"."CN_NAME"      
          INTO   :ls_area_name      
          FROM   "TFJ134"      
        WHERE   "TFJ134"."CODE"   =   :ls_area_id       ;  
  Ole_object.ACTIVEWORKBOOK.SHEETS(1).CELLS(2,1).VALUE=STRING(ld_start_date,YYYY年MM月DD日)+至+&  
  STRING(ld_end_date,YYYY年MM月DD日)+TRIM(ls_area_name)+地区代理商应收团款情况一览表  
  END   IF  
   
  Ole_object.ACTIVEWORKBOOK.Sheets[1].Range("A"+string(3)+":H"+string(3)).Select  
  Ole_object.Selection.Font.size   =   9  
  Ole_object.Selection.Font.Bold   =   True  
  Ole_object.Selection.Font.Bold   =   True  
  Ole_object.ACTIVEWORKBOOK.SHEETS(1).CELLS(3,1).VALUE=序号  
  Ole_object.ACTIVEWORKBOOK.SHEETS(1).CELLS(3,2).VALUE=地区  
  Ole_object.ACTIVEWORKBOOK.SHEETS(1).CELLS(3,3).VALUE=代理商  
  Ole_object.ACTIVEWORKBOOK.SHEETS(1).CELLS(3,4).VALUE=批数  
  Ole_object.ACTIVEWORKBOOK.SHEETS(1).CELLS(3,5).VALUE=人数  
  Ole_object.ACTIVEWORKBOOK.SHEETS(1).CELLS(3,6).VALUE=应收团款  
  Ole_object.ACTIVEWORKBOOK.SHEETS(1).CELLS(3,7).VALUE=已收团款  
  Ole_object.ACTIVEWORKBOOK.SHEETS(1).CELLS(3,8).VALUE=未收团款  
  else  
  messagebox(错误,报表需要安装EXCEL2000!)  
  return  
  end   if  
   
  j   =   4  
  STRING   ls_agent_id,ls_agent_name  
  LONG   ll_tour_num,ll_pax_total,ll_sum_tour_num,ll_sum_pax_total  
  DEC   ldc_dbamt_total,ldc_cramt_total,ldc_balance  
  DEC   ldc_sum_dbamt,ldc_sum_cramt,ldc_sum_balance  
   
  FOR   i   =   1   TO   dw_1.rowcount()    
  ls_area_id   =   dw_1.Object.area_id[i]  
  ls_agent_id   =   dw_1.Object.agent[i]  
  ll_tour_num   =   dw_1.Object.tour_num[i]  
  ll_pax_total   =   dw_1.Object.pax_total[i]  
  ldc_dbamt_total   =   dw_1.Object.dbamt_total[i]  
  ldc_cramt_total   =   dw_1.Object.cramt_total[i]  
  ldc_balance   =   dw_1.Object.balance[i]  
   
  ll_sum_tour_num   =   ll_sum_tour_num   +   ll_tour_num  
  ll_sum_pax_total   =   ll_sum_pax_total   +   ll_pax_total  
  ldc_sum_dbamt   =   ldc_sum_dbamt   +   ldc_dbamt_total  
  ldc_sum_cramt   =   ldc_sum_cramt   +   ldc_cramt_total  
  ldc_sum_balance   =   ldc_sum_balance   +   ldc_balance  
   
  SELECT   "TFJ134"."CN_NAME"      
          INTO   :ls_area_name      
          FROM   "TFJ134"      
        WHERE   "TFJ134"."CODE"   =   :ls_area_id       ;  
   
  SELECT   "TFJ111"."AGENTNM"      
          INTO   :ls_agent_name      
          FROM   "TFJ111"      
        WHERE   "TFJ111"."AGENTID"   =   :ls_agent_id       ;  
   
  Ole_object.ACTIVEWORKBOOK.SHEETS(1).CELLS(j,1).VALUE=i  
  Ole_object.ACTIVEWORKBOOK.SHEETS(1).CELLS(j,2).VALUE=ls_area_name  
  Ole_object.ACTIVEWORKBOOK.SHEETS(1).CELLS(j,3).VALUE=ls_agent_name  
  Ole_object.ACTIVEWORKBOOK.SHEETS(1).CELLS(j,4).VALUE=ll_tour_num  
  Ole_object.ACTIVEWORKBOOK.SHEETS(1).CELLS(j,5).VALUE=ll_pax_total  
  Ole_object.ACTIVEWORKBOOK.SHEETS(1).CELLS(j,6).VALUE=STRING(ldc_dbamt_total,#,###,###.00)  
  Ole_object.ACTIVEWORKBOOK.SHEETS(1).CELLS(j,7).VALUE=STRING(ldc_cramt_total,#,###,###.00)  
  Ole_object.ACTIVEWORKBOOK.SHEETS(1).CELLS(j,8).VALUE=STRING(ldc_balance,#,###,###.00)  
  j++  
  next  
  Ole_object.ACTIVEWORKBOOK.SHEETS(1).CELLS(j,1).VALUE=  
  Ole_object.ACTIVEWORKBOOK.SHEETS(1).CELLS(j,2).VALUE=  
  Ole_object.ACTIVEWORKBOOK.SHEETS(1).CELLS(j,3).VALUE=合计  
  Ole_object.ACTIVEWORKBOOK.SHEETS(1).CELLS(j,4).VALUE=ll_sum_tour_num  
  Ole_object.ACTIVEWORKBOOK.SHEETS(1).CELLS(j,5).VALUE=ll_sum_pax_total  
  Ole_object.ACTIVEWORKBOOK.SHEETS(1).CELLS(j,6).VALUE=STRING(ldc_sum_dbamt,#,###,###.00)  
  Ole_object.ACTIVEWORKBOOK.SHEETS(1).CELLS(j,7).VALUE=STRING(ldc_sum_cramt,#,###,###.00)  
  Ole_object.ACTIVEWORKBOOK.SHEETS(1).CELLS(j,8).VALUE=STRING(ldc_sum_balance,#,###,###.00)  
   
  ole_object.ACTIVEWORKBOOK.Sheets[1].Range("A"+string(4)+":H"+string(j)).Select  
  ole_object.Selection.Font.size   =   9  
   
  destroy   ole_object  
 

NO.1   作者： zpec

AWFUL,   No   comments   at   all.  
  MSDN上应该有.

NO.2   作者： henrryzhang

http://training.yesky.com/topic/topic_vba.htm  
  主要讲EXCEL中宏的使用，涉及图表、菜单、数据库等方面，大家有什么意见？推广期正在优惠  
   
   
   
  第一章的试听有一节讲如何将OFFICE的帮助安装全，那样在VBA编辑器环境中按F1就出来帮助了，目录中有全部的命令与函数


 ·是不是端口设置的问题    »显示摘要«
    摘要： 我用的是adsl上网，前两天在网上下了一个贪婪bt用，之后也不知道是改了哪里的设置，或是别的什么地方出了问题，这两天电脑运行的速度很慢，上网的速度也很慢，以前都有4~5百k/s现在只有一百多了，而且似乎都没有一百多，就连进csdn的论坛都要老半天。我下了最新的毒霸杀了两次有毒，都清除了，然后再查几次都没问题了，但是为什么还是上网的速度这么慢呢？（电脑的速度也好慢） ......
» 本期热门文章：

©2000-2007 All Rights Reserved. 最佳浏览：1024X768 MSIE