This is the code i have tried............
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
MsgBox("Creating Proximity Matrix....")
Dim xlApp As Excel.Application
Dim xlWorkBook As Excel.Workbook
Dim x2WorkSheet As Excel.Worksheet
Dim x3WorkSheet As Excel.Worksheet
Try
xlApp = New Excel.ApplicationClass
xlWorkBook = xlApp.Workbooks.Open("C:\Users\priya\Desktop\Project\Book1.xlsx")
x2WorkSheet = xlWorkBook.Worksheets("Sheet2")
x3WorkSheet = xlWorkBook.Worksheets("Sheet3")
Dim i, j, rCnt, cCnt, temp, rows, cols, dataCnt As Integer
rows = 5
cols = 5
For rCnt = 1 To rows
dataCnt = 1
For cCnt = 1 To cols
'MsgBox(x2WorkSheet.Cells(rCnt, cCnt).Value.ToString)
data(dataCnt) = x2WorkSheet.Cells(rCnt, cCnt).Value
tmpdata(dataCnt) = x2WorkSheet.Cells(rCnt, cCnt).Value
backup(rCnt, cCnt) = data(dataCnt)
dataCnt = dataCnt + 1
Next cCnt
dataCnt = dataCnt - 1
For i = 1 To dataCnt - 1
For j = i + 1 To dataCnt
If data(i) < data(j) Then
temp = data(i)
data(i) = data(j)
data(j) = temp
End If
Next
Next
rescnt = 1
For i = 1 To dataCnt - 1
For j = 1 To dataCnt
If ((data(i) = tmpdata(j)) And (data(i) <> 0) And (tmpdata(j) <> 0)) Then
res(rescnt) = j
End If
rescnt = rescnt + 1
Next
MsgBox(res(1))
MsgBox(res(2))
Next
Next rCnt
xlWorkBook.Close()
Finally
System.Runtime.InteropServices.Marshal.ReleaseComObject(xlApp)
End Try
MsgBox("Proximity Matrix Created...")
End
End Sub
End Class
|