Vbs判断两个Excel文件的内容--将两个Excel文件相同内容写入新建的Excel文件内
公司人数比较多,使用的是domino系统,由于domino管理邮件组是非常灵活的,邮件组内的人员可以随便手动添加,所以很容易造成误差,如果出错了,用户给邮件组发送邮件会提示,某个用户不在domino目下,加上近期公司一直调整邮件组织架构,出现这样的很多问题,所以就想起通过vbs脚本来判断最新的文档和系统导出的文档的一致性,所以就写了一个vbs脚本来判断两个Excel文件内容,然后将两个Excel文件相同内容找出并且同时生成一个新的excel文件将相同的内容写入进去(前提需要写入的内容格式以SAP.EXCEL这个表的格式完全一样,需要组织信息),写完及使用后觉得不错,在此分享给有需要的朋友,具体见下:
自定义两个Excel文件,然后在两个文件内分别添加相同及不相同的内容,方便测试然后运行脚本,运行成功后,会在当前目录生成一个文件,该文件内的内容为:文件1和文件2内容的相同内容,得到该结果,意味着脚本运行成功。
脚本定义文件名称:
脚本内容
vbs内容:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
|
currentFolder=CreateObject( "wscript.shell" ).currentDirectory&"\"
filename1=currentFolder& "Domino.xlsx"
filename2=currentFolder& "SAP.xlsx"
filename3=currentFolder& "执行后生成的文件.xlsx"
Set dic=CreateObject( "scripting.dictionary" )
Set excelObject=CreateObject( "Excel.Application" )
Set workbook1=excelObject.Workbooks.Open(filename1)
Set workbook2=excelObject.Workbooks.Open(filename2)
Set workbook3=excelObject.Workbooks.Add
Set workbook1_sheet=workbook1.Sheets( "Sheet1" )
Set workbook2_sheet=workbook2.Sheets( "Sheet1" )
Set workbook3_sheet=workbook3.Sheets( "Sheet1" )
workbook1_rowcount=workbook1_sheet.usedrange.rows.count
For i=0 To workbook1_rowcount
content=workbook1_sheet.range( "A1" ).offset(i,0).value
If Not dic.Exists(content) Then
dic.Add content,content
End If
Next
workbook2_rowcount=workbook2_sheet.usedrange.rows.count
workbook2_columncount=workbook2_sheet.usedrange.columns.count
sheet3_row=0
For i=0 To workbook2_rowcount
content=workbook2_sheet.range( "A1" ).offset(i,0).value
If dic.Exists(content) Then
For j=0 To workbook2_columncount
workbook3_sheet.range( "A1" ).offset(sheet3_row,j).value=workbook2_sheet.range( "A1" ).offset(i,j).value
Next
sheet3_row=sheet3_row+1
End If
Next
workbook3.SaveAs(filename3)
workbook3.Close
workbook2.Close
workbook1.Close
Set workbook3=Nothing
Set workbook2=Nothing
Set workbook1=Nothing
Set excelObject=Nothing
Set dic=nothing
MsgBox "finish"
|
1. 准备好两个对比文件
文件命令建议使用以下名称:1和2
1.Excel1文件内容:
2.Excel2文件内容:
2. 然后将脚本放入文件同一目录,双击执行
3. 双击执行,提示Finish,然后会在当前目录生成命名为:执行后的生成文件
4. 打开生成的文件,查看结果:
本文转自 高文龙 51CTO博客,原文链接:http://blog.51cto.com/gaowenlong/1397282,如需转载请自行联系原作者
Vbs判断两个Excel文件的内容--将两个Excel文件相同内容写入新建的Excel文件内相关推荐
- 复制目录及目录下的所有文件的批处理_国庆放假你加班?1分钟新建1000个文件夹,有此技能保证不加班...
一年一度的国庆节马上就到了,上班族望穿秋水的长假终于来了. 放几天假?准备去哪里浪,行程都安排好了吗? 每年国庆长假都是有人欢喜有人忧,因为每年国庆总有那么些"苦逼"的加班族,看着 ...
- matlab 写excel 慢_我在12w+的Python库中,发现了让Excel快到起飞的秘密......
Amber | 作者 图片源自网络 在这篇文章里,小编向大家介绍了Excel在数据分析中的妙用.不知大家在看完后,有没有亲自动手去体验下呢?有没有遇到什么问题呢? 虽说Excel在处理小批量数据时的优 ...
- 两个图片叠加在一起css,css两张图片怎么叠加在一起?
css实现两张图片叠加在一起的方法:首先添加2个img标签:然后设置它们的css样式为position:absolute:最后设置其中一个img样式为left:120px即可看见效果. 使用css把两 ...
- KEIL新建STM32F030F工程文件
前言 由于项目需要,需要使用STM32F030F4P6,本文从最基础的新建工程文件开始,记录一些主要步骤. 一.新建文件夹 首先新建一个文件夹,文件夹中可参考下图创建三个文件夹以存放不同的文件. 其中 ...
- VBS判断excel版本
想要实现如下的两个目标: 1.通过 vbs判断某路径下的数个excel文件是03版本还是07版本,如果有文件是03的,跳出,如果都是07的则调用某 批处理文件. 2.同上类似,不过是单个判断,指定文件 ...
- python与excel的区别-Python比较两个excel文档内容的异同
#-*- coding: utf-8 -*- #比对两个Excel文件内容的差异 #---------------------假设条件---------------- #1.源表和目标表格式一致 #2 ...
- python打开文件匹配数据_python实现两个excel数据匹配,最终写入新的excel文件
需求背景 表1有两列 表2包含表1不过缺少坐标字段 需要根据HID匹配两个表,把表1的坐标内容补充到表2 代码 import shutil import sys import xlwt import ...
- python实现两个excel数据匹配,最终写入新的excel文件
需求背景 表1有两列 表2包含表1不过缺少坐标字段 需要根据HID匹配两个表,把表1的坐标内容补充到表2 代码 import shutil import sys import xlwt import ...
- python读取txt文件并写入excel-Python读取txt内容写入xls格式excel中的方法
由于xlwt目前只支持xls格式,至于xlsx格式,后面会继续更新 import xlwt import codecs def Txt_to_Excel(inputTxt,sheetName,star ...
- java : enum、创建文件和文件夹、删除文件和文件夹、获得项目绝对路径、写入数据到excel中、java代码中两种路径符号写法、读取、写入text文件...
java : enum http://www.cnblogs.com/hyl8218/p/5088287.html 创建文件和文件夹.删除文件和文件夹 http://www.cnblogs.com/m ...
最新文章
- github 创建密匙失败
- HDU 4565So Easy!2012长沙邀请赛A题(共轭构造+矩阵的快速幂)
- weblogic启动失败案例(root启动引起的权限问题)
- 友盟页面访问路径全量统计功能上线啦!
- shell中的正则表达式
- jmeter+ant+jenkins接口自动环境搭建
- 超全必读!NLP 事件抽取综述(下)
- 使用STM32和freeRTOS实现《贪吃蛇》
- C# pictureBox桌面大小自适应 大小自适应 窗体居中
- matlab 响应曲面,MINITAB 响应曲面法应用
- CF#446 Gluttony(思维题)
- dojo和ArcGIS
- 什么是管理者的有用功
- 地图数据可视化库folium
- 记录下我磕磕碰碰的三个月找工作经历,offer拿到手软
- 晕菜~~~竟然出了这样的事情~~
- uni-app 引入线上的阿里 iconfont图标库
- 9款好用的数据可视化工具推荐!
- js根据公历日期求每天的天干地支
- mark:英伟达硬编码SDK接口文档
热门文章
- 差点被开除:一次订单号重复的事故
- 15年程序员老兵的40条编程技巧,句句都是血泪史!
- 插件开发之360 DroidPlugin源码分析(一)初识
- php 单位食堂订餐,单位饭堂订餐系统(手机订餐)
- html label input同行,bootstrap中怎样让label和input在同一行
- 广义平稳随机过程定义_广义平稳随机过程介绍.ppt
- 一个网站哪些页面需要用到redis_网页和网站有什么区别?做一个网站难不难?都需要哪些技能?...
- html编辑器拖拽表格边框,Ueditor百度编辑器表格边框显示问题
- 安卓开发 实现文字渐变效果_AI教程!用网格工具做渐变字效
- ifconfig知识总结