Vbs判断两个Excel文件的内容--将两个Excel文件相同内容写入新建的Excel文件内
2014-04-17 15:54
603 查看
Vbs判断两个Excel文件的内容--将两个Excel文件相同内容写入新建的Excel文件内
公司人数比较多,使用的是domino系统,由于domino管理邮件组是非常灵活的,邮件组内的人员可以随便手动添加,所以很容易造成误差,如果出错了,用户给邮件组发送邮件会提示,某个用户不在domino目下,加上近期公司一直调整邮件组织架构,出现这样的很多问题,所以就想起通过vbs脚本来判断最新的文档和系统导出的文档的一致性,所以就写了一个vbs脚本来判断两个Excel文件内容,然后将两个Excel文件相同内容找出并且同时生成一个新的excel文件将相同的内容写入进去(前提需要写入的内容格式以SAP.EXCEL这个表的格式完全一样,需要组织信息),写完及使用后觉得不错,在此分享给有需要的朋友,具体见下:
自定义两个Excel文件,然后在两个文件内分别添加相同及不相同的内容,方便测试然后运行脚本,运行成功后,会在当前目录生成一个文件,该文件内的内容为:文件1和文件2内容的相同内容,得到该结果,意味着脚本运行成功。
脚本定义文件名称:
脚本内容
vbs内容:
文件命令建议使用以下名称:1和2
1.Excel1文件内容:
2.Excel2文件内容:
2. 然后将脚本放入文件同一目录,双击执行
3. 双击执行,提示Finish,然后会在当前目录生成命名为:执行后的生成文件
4. 打开生成的文件,查看结果:
本文出自 “高文龙” 博客,谢绝转载!
公司人数比较多,使用的是domino系统,由于domino管理邮件组是非常灵活的,邮件组内的人员可以随便手动添加,所以很容易造成误差,如果出错了,用户给邮件组发送邮件会提示,某个用户不在domino目下,加上近期公司一直调整邮件组织架构,出现这样的很多问题,所以就想起通过vbs脚本来判断最新的文档和系统导出的文档的一致性,所以就写了一个vbs脚本来判断两个Excel文件内容,然后将两个Excel文件相同内容找出并且同时生成一个新的excel文件将相同的内容写入进去(前提需要写入的内容格式以SAP.EXCEL这个表的格式完全一样,需要组织信息),写完及使用后觉得不错,在此分享给有需要的朋友,具体见下:
自定义两个Excel文件,然后在两个文件内分别添加相同及不相同的内容,方便测试然后运行脚本,运行成功后,会在当前目录生成一个文件,该文件内的内容为:文件1和文件2内容的相同内容,得到该结果,意味着脚本运行成功。
脚本定义文件名称:
脚本内容
vbs内容:
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. 打开生成的文件,查看结果:
本文出自 “高文龙” 博客,谢绝转载!
相关文章推荐
- Vbs判断两个txt文件的内容--将两个txt文件相同内容写入新建的Txt文件内
- C# 通过比对哈希码判断两个文件内容是否相同
- C#基础之如何判断两个文件内容是否相同
- C# 如何判断两个文件内容是否相同的方法
- VBS脚本判断及获取两个文件之间的不同内容 推荐
- shell怎么判断两个文件内容是否相同
- PHP读取Excel文件的内容并写入Mysql数据库
- perl比较两个目录中的文件内容是否相同
- C++文件操作,判断两个文件内容是否相等(被修改)
- yii2从excel文件中读取表格内容,并批量写入数据库
- python将文件夹里所有的txt文件内容写入excel
- Hadoop编程 在HDFS里新建文件并写入内容,以及输出
- JavaSE8基础 String equalsIgnoreCase 判断两个字符串的内容是否相同 (不区分大小写)
- 从Excel中读取内容写入txt文件中
- 【Python小工具】Python实现批量解析PDF文件提取内容并写入到Excel中
- JavaSE8基础 String equals 判断两个字符串的内容是否相同(区分大小写)
- C++中的freopen()函数实现比较两个文件的内容是否相同
- 【转】【C#】判断两个文件是否相同
- Excel学习1_Java读取文件中的内容写入excel中
- Java--判断两个文件是否相同