msal4434
Occasional Contributor
Joined 9 years ago
User Profile
User Widgets
Contributions
Re: Comparing 2 xls files with the specific column.
Hi Shankar, Thank you for your solution. Need one more solution. -Read A1(Column1) from Sheet1 and find A1(Column1) in Sheet2. If there is a match than Read G1(Column 7) from Sheet 1 and F1(Column 13) in Sheet2 and check if they match or not? Thanks and Regards Sal2.9KViews0likes1CommentRe: Comparing 2 xls files with the specific column.
Thank you for your reply. We changed excel file name and try to run the script we are getting the attached error. Can you please let us know where we are going wrong...? If I want to verify specific rows and columns do I need to change this syntax " Cell.Value = WSO2.Range(Cell.Address).Value" For Eg. If I want verify A1 and F1 in sheet 1 = A1 and G1 in sheet 2 How should I change the syntax.3KViews0likes3CommentsComparing 2 xls files with the specific column.
Hi There, I need a little help to compare attached sheets A and B. I am able to read A and B files separately and can display the output. Read value A1, D1 from A.xls if A1 value available in b.xls then compare A.A1, A.D1 with B.A1, B.E1. would like to compare all the values in the same way. SCRIPT Reading from A.xls Sub Readfromexcel() Set Excel = Sys.OleObject("Excel.Application") Excel.Workbooks.Open("A.xls") RowCount = Excel.ActiveSheet.UsedRange.Rows.Count ' log.message RowCount ColumnCount = Excel.ActiveSheet.UsedRange.Columns.Count 'log.message ColumnCount 'For i = 1 To RowCount for SI = 1 to ColumnCount For SJ = 1 To RowCount Ss = Excel.Cells(SJ,SI) 'log.message S SCV = "3" IF Ss = SCV then For SInn = 2 To rowcount SCC = Excel.Cells(SInn,SJ) SHV = Excel.Cells(SInn,SI) If SHV > 0 then log.message "State:" & Ss log.message "Charge Code is avaliable in Source file:" & SCC log.message "Value is Zero is avaliable in Source file:" & SHV '' Export from VIP Net Else log.message "State:" & Ss log.message "Charge Code is avaliable in Source file Price is zero:" & SCC log.message "Value is Zero is avaliable in Source file:" & SHV end if Next end if Exit For Next Next Excel.Quit End Sub Reading B.xls Sub Readfromexcel() Set Excel = Sys.OleObject("Excel.Application") 'Opening the VIP Net export file Excel.Workbooks.Open("C:\Users\saravanan.doraiswamy\Documents\BpSoftware\HF_SourceFile\ChargeItems20161215.xls") VRowCount = Excel.ActiveSheet.UsedRange.Rows.Count log.message VRowCount VColumnCount = Excel.ActiveSheet.UsedRange.Columns.Count log.message VColumnCount For EVIPI = 1 to VColumnCount For EVIPJ = 1 To VRowCount EVIPs = Excel.Cells(EVIPJ,EVIPI) ECV = "E" IF EVIPs = ECV then For EVIPInn = 2 To Vrowcount EVIPHV = Excel.Cells(EVIPInn,EVIPJ) If EVIPHV > 0 then EVIPCC = Excel.Cells(EVIPInn,EVIPI) log.message "Charge Code:" & EVIPHV log.message "Price:" & EVIPCC end if Next3.2KViews0likes5CommentsRe: selecting cell from the grid.
Tried with GridObj.Rows.Cells.Item(1).Click it says object not found. more info At the moment I am using below script to select a row but i want to select it by name Call Aliases.VIP.ProviderTypeForm.tab.Browse.dvg.Click(90, 24) Call Aliases.VIP.ProviderTypeForm.tab.Browse.panel1.btnModify.ClickButton3.5KViews0likes10Commentsworking with check boxes
I am trying to check the status of the checkbox (True or False). I can see checked status property in object property but couldn't get it when writing script I can see checked status in object property but couldn't get it when writing the script... Screenshot attached1.6KViews0likes3Comments