compare excel templates in vb.net Windows Application

Question

0.00/5 (No votes)

See more:

Hi Please Share any link or code...

I have a Excel Template where users can fill up. Then i have a web application that allows users to upload Excel files. I was wondering if anyone knows how i can verify if the Excel file uploaded by the user follows the same format of the Excel Template that i have

How can i compare tow excel files?

Posted 11-Jul-11 17:47pm

Rashmi Krishna

Updated 11-Jul-11 18:34pm

v2

Add a Solution

2 solutions

Solution 1

You'd have to open each workbook, then compare the relevate property values of each and every cell that you define as the "same format". Your question is to general to go into any more detail than that.

Posted 12-Jul-11 4:02am

Dave Kreskowiak

Add a Solution

Add your solution here

Treat my content as plain text, not as HTML

Preview 0

…

Existing Members

Sign in to your account

...or Join us

Download, Vote, Comment, Publish.

Your Email
Password
Forgot your password?

Your Email
This email is in use. Do you need your password?
Optional Password

I have read and agree to the Terms of Service and Privacy Policy
Please subscribe me to the CodeProject newsletters

When answering a question please:

Read the question carefully.
Understand that English isn't everyone's first language so be lenient of bad spelling and grammar.
If a question is poorly phrased then either ask for clarification, ignore it, or edit the question and fix the problem. Insults are not welcome.
Don't tell someone to read the manual. Chances are they have and don't get it. Provide an answer or move on to the next question.

Let's work to help developers, not make them feel stupid.

This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)

Rashmi Krishna · Accepted Answer · 2011-07-12T22:01:00

Public Function CheckFormat(ByVal ImportedFile As DataTable, ByVal TemplateFile As DataTable) As Boolean
Dim dtFileTable As DataTable = ImportedFile
Dim dtTmplateTable As DataTable = TemplateFile
Dim lbResult As Boolean = True
Try
If dtFileTable.Columns.Count = dtTmplateTable.Columns.Count Then
Dim liColCount As Integer = 0
For liColCount = 0 To dtFileTable.Columns.Count - 1
If LCase(dtFileTable.Columns(liColCount).Caption) = LCase(dtTmplateTable.Columns(liColCount).Caption) Then
Continue For
Else
lsFormatStatus = "Uploaded File is not in Proper Format
lbResult = False
Exit For
End If
Next

If lbResult Then
If Not (dtFileTable.Rows.Count >= 1) Then
lsFormatStatus = "Uploaded File has no data
lbResult = False
End If
End If
Else
lsFormatStatus = "Uploaded File is not in Proper Format"
lbResult = False
End If
Catch ex As Exception
'objDB.LogError(ex)
lsFormatStatus = "Uploaded File is not in Proper Format"

lbResult = False
End Try
Return lbResult
End Function

Private Sub btnsubmit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsubmit.Click
Dim lsPath As String = txtPath.Text.Trim()
lblmsg.Text = ""
Dim loDSTemplate As New System.Data.DataSet()
xlsWB = xlsApp.Workbooks.Open(lsPath, False, False)
xlsSheet = xlsWB.Worksheets(1)
Me.Refresh()
lnktemplate.Text = String.Empty
Dim lsConn As String = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & lsPath & ";Extended Properties=Excel 8.0;"
''You must use the $ after the object you reference in the spreadsheet
Dim loDBExcelTemplate As New System.Data.OleDb.OleDbDataAdapter("SELECT * FROM [" & xlsSheet.Name & "$]", lsConn)
loDBExcelTemplate.TableMappings.Add("Table", "ExcelFile")
loDBExcelTemplate.Fill(loDSTemplate)
Dim Templated As DataTable = New DataTable
Templated.Columns.Add("IP")
Templated.Columns.Add("Port")
If CheckFormat(loDSTemplate.Tables(0), Templated) Then
(Do ping and telnet)
Else
Lblerror.text="Not in proper format"

C++

End Sub