[英]Comparing two excel files and putting the difference in a new sheet
我正在比較兩個像這樣的工作表:
一張紙比另一張紙新,可以刪除,添加或更新一行。
我的代碼來檢測兩者之間是否被刪除/添加了一行,這對我不起作用,這是我所擁有的:
Private Sub CompareSpreadsheets()
Dim xlApp1 As Excel.Application = New Microsoft.Office.Interop.Excel.Application()
Dim xlApp2 As Excel.Application = New Microsoft.Office.Interop.Excel.Application()
Dim xlApp3 As Excel.Application = New Microsoft.Office.Interop.Excel.Application()
Dim xlWorkBook1, xlWorkBook2, xlWorkBook3 As Excel.Workbook
Dim xlWorkSheet1, xlWorkSheet2, xlWorkSheet3 As Excel.Worksheet
Dim misValue As Object = System.Reflection.Missing.Value
Dim xlRange1 As Excel.Range
Dim maxRows As Short
Dim qtyChange, mtlChange, newItem, delItem As Boolean
Dim newRowCount As Short = 1
Dim w3row As Short = 1
'Check if Excel is installed on system
If xlApp1 Is Nothing Then
MessageBox.Show("Excel is missing/not properly installed on your system.", "ERROR")
Return
End If
xlApp1.Workbooks.Open(path1)
xlWorkBook1 = xlApp1.ActiveWorkbook
xlWorkSheet1 = xlWorkBook1.ActiveSheet
xlApp2.Workbooks.Open(path2)
xlWorkBook2 = xlApp2.ActiveWorkbook
xlWorkSheet2 = xlWorkBook2.ActiveSheet
'Get maximum number of columns and rows from new spreadsheet
maxRows = xlWorkSheet2.UsedRange.Rows.Count
pbStatus.Minimum = 1
pbStatus.Maximum = maxRows
xlWorkBook3 = xlApp3.Workbooks.Add(misValue)
xlWorkSheet3 = xlWorkBook3.Sheets("sheet1")
qtyChange = False
mtlChange = False
newItem = False
delItem = False
Dim counter = 0 '/temp
For i As Short = 1 To maxRows
pbStatus.Value = i
'[-- Green = Quantity change
'Yellow = Material change
'Blue = New item
'Red = Deleted item --]
If GetCellData(xlWorkSheet1, newRowCount, 3) = GetCellData(xlWorkSheet2, i, 3) And _
GetCellData(xlWorkSheet1, newRowCount, 4) = GetCellData(xlWorkSheet2, i, 4) And _
GetCellData(xlWorkSheet1, newRowCount, 5) = GetCellData(xlWorkSheet2, i, 5) And _
GetCellData(xlWorkSheet1, newRowCount, 6) = GetCellData(xlWorkSheet2, i, 6) And _
GetCellData(xlWorkSheet1, newRowCount, 7) = GetCellData(xlWorkSheet2, i, 7) And _
GetCellData(xlWorkSheet1, newRowCount, 8) = GetCellData(xlWorkSheet2, i, 8) Then
'DONE
qtyChange = False
mtlChange = False
newItem = False
delItem = False
newRowCount += 1
ElseIf GetCellData(xlWorkSheet1, newRowCount, 3) = GetCellData(xlWorkSheet2, i, 3) And _
GetCellData(xlWorkSheet1, newRowCount, 4) = GetCellData(xlWorkSheet2, i, 4) And _
GetCellData(xlWorkSheet1, newRowCount, 5) = GetCellData(xlWorkSheet2, i, 5) And _
GetCellData(xlWorkSheet1, newRowCount, 6) <> GetCellData(xlWorkSheet2, i, 6) And _
GetCellData(xlWorkSheet1, newRowCount, 7) = GetCellData(xlWorkSheet2, i, 7) And _
GetCellData(xlWorkSheet1, newRowCount, 8) = GetCellData(xlWorkSheet2, i, 8) Then
'DONE
qtyChange = True
ElseIf GetCellData(xlWorkSheet1, newRowCount, 1) = GetCellData(xlWorkSheet2, i, 1) And _
GetCellData(xlWorkSheet1, newRowCount, 2) = GetCellData(xlWorkSheet2, i, 2) And _
GetCellData(xlWorkSheet1, newRowCount, 3) = GetCellData(xlWorkSheet2, i, 3) And _
GetCellData(xlWorkSheet1, newRowCount, 4) <> GetCellData(xlWorkSheet2, i, 4) And _
GetCellData(xlWorkSheet1, newRowCount, 5) = GetCellData(xlWorkSheet2, i, 5) And _
GetCellData(xlWorkSheet1, newRowCount, 6) = GetCellData(xlWorkSheet2, i, 6) And _
GetCellData(xlWorkSheet1, newRowCount, 7) = GetCellData(xlWorkSheet2, i, 7) And _
GetCellData(xlWorkSheet1, newRowCount, 8) = GetCellData(xlWorkSheet2, i, 8) Then
'DONE
mtlChange = True
ElseIf GetCellData(xlWorkSheet1, newRowCount, 3) <> GetCellData(xlWorkSheet2, i, 3) And _
GetCellData(xlWorkSheet1, newRowCount, 4) <> GetCellData(xlWorkSheet2, i, 4) Then
If GetCellData(xlWorkSheet1, newRowCount + 1, 4) <> GetCellData(xlWorkSheet2, i, 4) Then
newItem = True
ElseIf GetCellData(xlWorkSheet1, newRowCount, 4) <> GetCellData(xlWorkSheet2, i + 1, 4) Then
delItem = True
End If
End If
'Procedure for each case
If qtyChange Then
xlWorkSheet3.Cells(w3row, 1) = GetCellData(xlWorkSheet2, i, 1)
xlRange1 = CType(xlWorkSheet3.Cells(w3row, 1), Excel.Range)
xlRange1.Font.Color = System.Drawing.Color.Green
xlWorkSheet3.Cells(w3row, 2) = GetCellData(xlWorkSheet2, i, 2)
xlRange1 = CType(xlWorkSheet3.Cells(w3row, 2), Excel.Range)
xlRange1.Font.Color = System.Drawing.Color.Green
xlWorkSheet3.Cells(w3row, 3) = GetCellData(xlWorkSheet2, i, 3)
xlRange1 = CType(xlWorkSheet3.Cells(w3row, 3), Excel.Range)
xlRange1.Font.Color = System.Drawing.Color.Green
xlWorkSheet3.Cells(w3row, 4) = GetCellData(xlWorkSheet2, i, 4)
xlRange1 = CType(xlWorkSheet3.Cells(w3row, 4), Excel.Range)
xlRange1.Font.Color = System.Drawing.Color.Green
xlWorkSheet3.Cells(w3row, 5) = GetCellData(xlWorkSheet2, i, 5)
xlRange1 = CType(xlWorkSheet3.Cells(w3row, 5), Excel.Range)
xlRange1.Font.Color = System.Drawing.Color.Green
xlWorkSheet3.Cells(w3row, 6) = GetCellData(xlWorkSheet2, i, 6)
xlRange1 = CType(xlWorkSheet3.Cells(w3row, 6), Excel.Range)
xlRange1.Font.Color = System.Drawing.Color.Green
xlWorkSheet3.Cells(w3row, 7) = GetCellData(xlWorkSheet2, i, 7)
xlRange1 = CType(xlWorkSheet3.Cells(w3row, 7), Excel.Range)
xlRange1.Font.Color = System.Drawing.Color.Green
xlWorkSheet3.Cells(w3row, 8) = GetCellData(xlWorkSheet2, i, 8)
xlRange1 = CType(xlWorkSheet3.Cells(w3row, 8), Excel.Range)
xlRange1.Font.Color = System.Drawing.Color.Green
newRowCount += 1
w3row += 1
ElseIf mtlChange Then
xlWorkSheet3.Cells(w3row, 1) = GetCellData(xlWorkSheet2, i, 1)
xlRange1 = CType(xlWorkSheet3.Cells(w3row, 1), Excel.Range)
xlRange1.Font.Color = System.Drawing.Color.Yellow
xlWorkSheet3.Cells(w3row, 2) = GetCellData(xlWorkSheet2, i, 2)
xlRange1 = CType(xlWorkSheet3.Cells(w3row, 2), Excel.Range)
xlRange1.Font.Color = System.Drawing.Color.Yellow
xlWorkSheet3.Cells(w3row, 3) = GetCellData(xlWorkSheet2, i, 3)
xlRange1 = CType(xlWorkSheet3.Cells(w3row, 3), Excel.Range)
xlRange1.Font.Color = System.Drawing.Color.Yellow
xlWorkSheet3.Cells(w3row, 4) = GetCellData(xlWorkSheet2, i, 4)
xlRange1 = CType(xlWorkSheet3.Cells(w3row, 4), Excel.Range)
xlRange1.Font.Color = System.Drawing.Color.Yellow
xlWorkSheet3.Cells(w3row, 5) = GetCellData(xlWorkSheet2, i, 5)
xlRange1 = CType(xlWorkSheet3.Cells(w3row, 5), Excel.Range)
xlRange1.Font.Color = System.Drawing.Color.Yellow
xlWorkSheet3.Cells(w3row, 6) = GetCellData(xlWorkSheet2, i, 6)
xlRange1 = CType(xlWorkSheet3.Cells(w3row, 6), Excel.Range)
xlRange1.Font.Color = System.Drawing.Color.Yellow
xlWorkSheet3.Cells(w3row, 7) = GetCellData(xlWorkSheet2, i, 7)
xlRange1 = CType(xlWorkSheet3.Cells(w3row, 7), Excel.Range)
xlRange1.Font.Color = System.Drawing.Color.Yellow
xlWorkSheet3.Cells(w3row, 8) = GetCellData(xlWorkSheet2, i, 8)
xlRange1 = CType(xlWorkSheet3.Cells(w3row, 8), Excel.Range)
xlRange1.Font.Color = System.Drawing.Color.Yellow
newRowCount += 1
w3row += 1
ElseIf delItem Then
xlWorkSheet3.Cells(w3row, 1) = GetCellData(xlWorkSheet1, newRowCount, 1)
xlRange1 = CType(xlWorkSheet3.Cells(w3row, 1), Excel.Range)
xlRange1.Font.Color = System.Drawing.Color.Red
xlWorkSheet3.Cells(w3row, 2) = GetCellData(xlWorkSheet1, newRowCount, 2)
xlRange1 = CType(xlWorkSheet3.Cells(w3row, 2), Excel.Range)
xlRange1.Font.Color = System.Drawing.Color.Red
xlWorkSheet3.Cells(w3row, 3) = GetCellData(xlWorkSheet1, newRowCount, 3)
xlRange1 = CType(xlWorkSheet3.Cells(w3row, 3), Excel.Range)
xlRange1.Font.Color = System.Drawing.Color.Red
xlWorkSheet3.Cells(w3row, 4) = GetCellData(xlWorkSheet1, newRowCount, 4)
xlRange1 = CType(xlWorkSheet3.Cells(w3row, 4), Excel.Range)
xlRange1.Font.Color = System.Drawing.Color.Red
xlWorkSheet3.Cells(w3row, 5) = GetCellData(xlWorkSheet1, newRowCount, 5)
xlRange1 = CType(xlWorkSheet3.Cells(w3row, 5), Excel.Range)
xlRange1.Font.Color = System.Drawing.Color.Red
xlWorkSheet3.Cells(w3row, 6) = GetCellData(xlWorkSheet1, newRowCount, 6)
xlRange1 = CType(xlWorkSheet3.Cells(w3row, 6), Excel.Range)
xlRange1.Font.Color = System.Drawing.Color.Red
xlWorkSheet3.Cells(w3row, 7) = GetCellData(xlWorkSheet1, newRowCount, 7)
xlRange1 = CType(xlWorkSheet3.Cells(w3row, 7), Excel.Range)
xlRange1.Font.Color = System.Drawing.Color.Red
xlWorkSheet3.Cells(w3row, 8) = GetCellData(xlWorkSheet1, newRowCount, 8)
xlRange1 = CType(xlWorkSheet3.Cells(w3row, 8), Excel.Range)
xlRange1.Font.Color = System.Drawing.Color.Red
newRowCount += 1
i -= 1
w3row += 1
ElseIf newItem Then
xlWorkSheet3.Cells(w3row, 1) = GetCellData(xlWorkSheet2, i, 1)
xlRange1 = CType(xlWorkSheet3.Cells(w3row, 1), Excel.Range)
xlRange1.Font.Color = System.Drawing.Color.Blue
xlWorkSheet3.Cells(w3row, 2) = GetCellData(xlWorkSheet2, i, 2)
xlRange1 = CType(xlWorkSheet3.Cells(w3row, 2), Excel.Range)
xlRange1.Font.Color = System.Drawing.Color.Blue
xlWorkSheet3.Cells(w3row, 3) = GetCellData(xlWorkSheet2, i, 3)
xlRange1 = CType(xlWorkSheet3.Cells(w3row, 3), Excel.Range)
xlRange1.Font.Color = System.Drawing.Color.Blue
xlWorkSheet3.Cells(w3row, 4) = GetCellData(xlWorkSheet2, i, 4)
xlRange1 = CType(xlWorkSheet3.Cells(w3row, 4), Excel.Range)
xlRange1.Font.Color = System.Drawing.Color.Blue
xlWorkSheet3.Cells(w3row, 5) = GetCellData(xlWorkSheet2, i, 5)
xlRange1 = CType(xlWorkSheet3.Cells(w3row, 5), Excel.Range)
xlRange1.Font.Color = System.Drawing.Color.Blue
xlWorkSheet3.Cells(w3row, 6) = GetCellData(xlWorkSheet2, i, 6)
xlRange1 = CType(xlWorkSheet3.Cells(w3row, 6), Excel.Range)
xlRange1.Font.Color = System.Drawing.Color.Blue
xlWorkSheet3.Cells(w3row, 7) = GetCellData(xlWorkSheet2, i, 7)
xlRange1 = CType(xlWorkSheet3.Cells(w3row, 7), Excel.Range)
xlRange1.Font.Color = System.Drawing.Color.Blue
xlWorkSheet3.Cells(w3row, 8) = GetCellData(xlWorkSheet2, i, 8)
xlRange1 = CType(xlWorkSheet3.Cells(w3row, 8), Excel.Range)
xlRange1.Font.Color = System.Drawing.Color.Blue
w3row += 1
End If
qtyChange = False
mtlChange = False
newItem = False
delItem = False
Next
'Save new spreadsheet [TEMP NAME]
xlWorkBook3.SaveAs("C:\Users\Windows\Documents\Visual Studio 2013\Projects\test.xls", Excel.XlFileFormat.xlWorkbookNormal, misValue, misValue, misValue, misValue, _
Excel.XlSaveAsAccessMode.xlExclusive, misValue, misValue, misValue, misValue, misValue)
xlWorkBook3.Close(True, misValue, misValue)
xlApp3.Quit()
'----------------------------------
'End of process, cleaning up CPU---
xlWorkBook1.Close(True, misValue, misValue)
xlApp1.Quit()
xlWorkBook2.Close(True, misValue, misValue)
xlApp2.Quit()
ReleaseObject(xlWorkSheet1)
ReleaseObject(xlWorkBook1)
ReleaseObject(xlApp1)
ReleaseObject(xlWorkSheet2)
ReleaseObject(xlWorkBook2)
ReleaseObject(xlApp2)
ReleaseObject(xlWorkSheet3)
ReleaseObject(xlWorkBook3)
ReleaseObject(xlApp3)
cmdFormat.Text = "Process complete. Compare new files?"
End Sub
編輯:什么不起作用? 它將跳過相同的行,並檢測單元格的變化(我設置了第4列和第6列,將其返回為綠色/黃色),但是一旦我的代碼在舊工作表中找到了已刪除的條目/在新工作表中找到了新條目,就會弄亂。
我認為這是混亂的地方:
ElseIf GetCellData(xlWorkSheet1, newRowCount, 3) <> GetCellData(xlWorkSheet2, i, 3) And _
GetCellData(xlWorkSheet1, newRowCount, 4) <> GetCellData(xlWorkSheet2, i, 4) Then
If GetCellData(xlWorkSheet1, newRowCount + 1, 4) <> GetCellData(xlWorkSheet2, i, 4) Then
newItem = True
ElseIf GetCellData(xlWorkSheet1, newRowCount, 4) <> GetCellData(xlWorkSheet2, i + 1, 4) Then
delItem = True
End If
End If
如果有人可以看到此問題,請通知我。 或者,如果您對此有其他解決方案。 謝謝!
抱歉,我沒有得到更多幫助。 絕對有點棘手。 我本人會把每張紙放入數據表中並在那里進行比較。 這就是我用來確定程序在兩組數據之間的新的/已完成的質量檢查的方式:
http://i.imgur.com/iuI1dGL.png
我做的事情和你的情況有所不同。
我使用這種方法將所需的數據從excel文件拉到數據表中。
這比使用excel interop一次讀取每一行要快得多。
獲取Excel數據並使用它來填充數據表:
//////////////////////////////////////////////////////////////////////////////////
//This function is absolute magic >.> - Fill DataTable with excel spreadsheet
//HDR=YES means "Spreadsheet has headers" Change to NO if not.
//name = "Log"; - This is the Sheet name to pull the data from
//////////////////////////////////////////////////////////////////////////////////
//oconn takes an SQL like command (Select Everything from name sheet) using con
//HDR=YES means that our data has headers :)
//////////////////////////////////////////////////////////////////////////////////
String constr = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" + copyToPath + ";Extended Properties='Excel 12.0 XML;HDR=YES;';";
OleDbConnection con = new OleDbConnection(constr);
OleDbCommand oconn = new OleDbCommand("Select * From [Log$]", con);
con.Open();
OleDbDataAdapter sda = new OleDbDataAdapter(oconn);
DataTable data = new DataTable();
sda.Fill(data);
con.Close();
//////////////////////////////////////////////////////////////////////////////////
這給我們留下了一個DataTable,其中包含excel電子表格的所有行/標題。
然后,我們可以使用相同的方法提取第二個。
到那時,我們將能夠比較C#中的數據,以我的經驗,這要快得多。
最后,您可以使用Excel Interop導出到excel,而只需打開一個實例。
聲明:本站的技術帖子網頁,遵循CC BY-SA 4.0協議,如果您需要轉載,請注明本站網址或者原文地址。任何問題請咨詢:yoyou2525@163.com.