比较两个Excel表格中的第一列，并将差异更新为文本文件

我们想比较两个不同Excel表格中第一列的输出，并将差异更新为文本文件。 这只是比较excel1中的A1数据和excel2中的A1数据并附加到文本文件中：

Dim objExcel,ObjWorkbook,objsheet,ObjWorkbook1,objsheet1,Originalvalue,filesys, filetxt Const ForReading = 1, ForWriting = 2, ForAppending = 8 Set objExcel = CreateObject("Excel.Application") Set objWorkbook = objExcel.Workbooks.Open("D:\Test\copy.xlsx") set objsheet = objExcel.ActiveWorkbook.Worksheets(1) Set objWorkbook1 = objExcel.Workbooks.Open("D:\Test\Original.xlsx") set objsheet1 = objExcel.ActiveWorkbook.Worksheets(1) Originalvalue = objsheet.Cells(1,1).value Copyvalue = objsheet1.Cells(1,1).value If Originalvalue = Copyvalue then Set filesys = CreateObject("Scripting.FileSystemObject") Set filetxt = filesys.OpenTextFile("D:\Test\output.txt", ForAppending, True) filetxt.WriteLine(Originalvalue) filetxt.Close msgbox Originalvalue else Set filesys = CreateObject("Scripting.FileSystemObject") Set filetxt = filesys.OpenTextFile("D:\Test\output.txt", ForAppending, True) filetxt.WriteLine(Copyvalue) filetxt.Close msgbox Copyvalue End If objExcel.ActiveWorkbook.Close objExcel.Workbooks.Close objExcel.Application.Quit 

A列中的所有数据如何处理？

Answer 1

这比较文件，如果在复制文件中有一个不同的值，它被放置到文本文件..如果值是相等的，他们被忽略..不知道如果这是你正在寻找的行为，但你可以至less看看如何遍历文件来比较所有的logging

 Dim objExcel, ObjWorkbook, objsheet, ObjWorkbook1, objsheet1, Originalvalue, filesys, filetxt Dim objsheet_LastRow As Long, objsheet1_LastRow, LastRow As Long, RowCounter As Long, CopyValue Const ForReading = 1, ForWriting = 2, ForAppending = 8 'are you doing this because you are running this outside of excel? 'if not then this doesn't have to look as complicated as it is Set objExcel = CreateObject("Excel.Application") Set ObjWorkbook = objExcel.Workbooks.Open("D:\Test\copy.xlsx") Set objsheet = objExcel.ActiveWorkbook.Worksheets(1) Set ObjWorkbook1 = objExcel.Workbooks.Open("D:\Test\Original.xlsx") Set objsheet1 = objExcel.ActiveWorkbook.Worksheets(1) Set filesys = CreateObject("Scripting.FileSystemObject") Set filetxt = filesys.OpenTextFile("D:\Test\output.txt", ForAppending, True) 'find the last row of data in each sheet, this will only go the end of the shorter file objsheet_LastRow = objsheet.Cells(100000, 1).End(xlUp).Row objsheet1_LastRow = objsheet1.Cells(100000, 1).End(xlUp).Row LastRow = Application.WorksheetFunction.Min(objsheet_LastRow, objsheet1_LastRow) For RowCounter = 1 To LastRow Originalvalue = objsheet.Cells(RowCounter, 1).Value CopyValue = objsheet1.Cells(RowCounter, 1).Value 'if values are different, put the new value in a txt file If Originalvalue <> CopyValue Then filetxt.WriteLine (CopyValue) Next RowCounter filetxt.Close ObjWorkbook.Close False ObjWorkbook1.Close False 'objExcel.ActiveWorkbook.Close 'objExcel.Workbooks.Close objExcel.Application.Quit 

TODO：错误陷阱