注册 登录  
 加关注
   显示下一条  |  关闭
温馨提示!由于新浪微博认证机制调整,您的新浪微博帐号绑定已过期,请重新绑定!立即重新绑定新浪微博》  |  关闭

奕克

爱家人爱工作爱生活

 
 
 

日志

 
 

自动生成单位工资条(VBS完美版)原创  

2010-07-10 12:45:44|  分类: 技术 |  标签: |举报 |字号 订阅

  下载LOFTER 我的照片书  |
        上次我写的制作单位工资条的例子,单位的那同事说看不懂,可能对于非专业同志来说VBA环境描述有点困难,所以我继续改进了一把,从VBA宏过渡到VBS脚本,点击鼠标轻轻松松完成任务。
       日志所述的示例代码在      http://e.ys168.com/?wucccsk 中的“VBS和VBA脚本”目录下,欢迎下载使用
        我手头的工资工作簿如下图:
        自动生成单位工资条(VBS完美版)原创 - wucccsk - wucccsk的博客
     要求为每位好同志产生工资条如下,并打印出来后剪切分发:
      自动生成单位工资条(VBS完美版)原创 - wucccsk - wucccsk的博客
     好了,让我们完成任务吧,新建文本文档(注意不是word,是txt文档),拷贝进入如下的代码:
 
  bkname=inputbox("输入工资所在工作簿名(不包括扩展名.xls):")
  Set WshShell = WScript.CreateObject("WScript.Shell") 
  Set excelapp = CreateObject("Excel.Application")
  set curbk=excelapp.workbooks.open(WshShell.CurrentDirectory & "\" & bkname & ".xls")
  Title = InputBox("输入工资条抬头(标题行)所占的行数")
  Title = Title + 1
  curbk.Worksheets(1).Rows(1).Select
  excelapp.Selection.Insert(xlDown)
  i=curbk.Worksheets(1).UsedRange.rows.count+1
  For j = i To Title + 1 Step -1
    curbk.Worksheets(1).Rows("1:" & Title).Select
    excelapp.Selection.Copy
    curbk.Worksheets(1).Rows(j & ":" & j).Select
    excelapp.Selection.Insert(xlDown)
  Next
  curbk.Worksheets(1).Rows("1:" & (Title + 1)).Delete
  curbk.save
  curbk.close
  excelapp.quit
  set curbk=nothing
  set excelapp=nothing
  set wshsheell=nothing
  msgbox "完工啦"
 
 
好了,另存文件,注意文件类型选择“所有文件”,而不是“文本文档”,以免加上txt的扩展名,文件名中输入gen.vbs,或其他文件名,扩展名必须为vbs。报存在与要处理的工作簿所在的目录下。进入该目录后,双击保存的vbs脚本文件。注意切不可点击不可信的VBS脚本,有可能是病毒哦,我这么好,肯定不会做病毒了,放心点击吧!(示例程序不保证不是病毒哦,我信不过那中介网站,哈哈)
 
程序首先弹出一提示框,要求你输入要处理的工作簿文件名,不需要带xls的扩展名。比如示例程序中输入“工资条”。
接着程序会弹出对话框,要求输入工作簿中前几行是抬头,比如如上图的工作簿抬头为2行,输入2。如果只有1行就输入1。好了,程序最后处理完会显示“完工了”的对话框!
 
享受一下VBS的快感。。。。程序比较粗糙,见笑了。。。
      
  评论这张
 
阅读(126)| 评论(0)
推荐 转载

历史上的今天

在LOFTER的更多文章

评论

<#--最新日志,群博日志--> <#--推荐日志--> <#--引用记录--> <#--博主推荐--> <#--随机阅读--> <#--首页推荐--> <#--历史上的今天--> <#--被推荐日志--> <#--上一篇,下一篇--> <#-- 热度 --> <#-- 网易新闻广告 --> <#--右边模块结构--> <#--评论模块结构--> <#--引用模块结构--> <#--博主发起的投票-->
 
 
 
 
 
 
 
 
 
 
 
 
 
 

页脚

网易公司版权所有 ©1997-2017