Forum Discussion
Ravik
13 years agoSuper Contributor
Hi Mohamed, Please refer below example, it will be work for you. using this code you can write in Excel -
Sub ExcelTest
Set Exo = CreateObject("Excel.Application")
Set wbo = exo.workbooks.open("Path of your file")
Exo.Application.Visible = true
Delay(1000)
Set wso = wbo.Worksheets("Sheet1")
row = wso.usedRange.rows.count
col = wso.usedRange.Columns.count
for j = 1 to col
For i = 2 to row - 1
UID = varToString(Exo.Cells(i, j)) - (Read data from Excel)
Exo.Cells(i, 2) = varToString("Pass/Fail") - (write Result in 2 col, 2 is second Col you can replace it with your sutable)
Next
Next
End Sub
This will be help you !
Sub ExcelTest
Set Exo = CreateObject("Excel.Application")
Set wbo = exo.workbooks.open("Path of your file")
Exo.Application.Visible = true
Delay(1000)
Set wso = wbo.Worksheets("Sheet1")
row = wso.usedRange.rows.count
col = wso.usedRange.Columns.count
for j = 1 to col
For i = 2 to row - 1
UID = varToString(Exo.Cells(i, j)) - (Read data from Excel)
Exo.Cells(i, 2) = varToString("Pass/Fail") - (write Result in 2 col, 2 is second Col you can replace it with your sutable)
Next
Next
End Sub
This will be help you !