Forum Discussion

Bharadwaj's avatar
Bharadwaj
Contributor
9 years ago
Solved

How to Read and compare images in two excel files

Hi All, I  have two excel files in whch I have tabular data as well as pictures in it. I can easily read the tabulat data and compare them but I am not aware of how to read the pictures in them and ...
  • joseph_michaud's avatar
    joseph_michaud
    9 years ago

    Use the Excel OLE Object to provide the pictures:

     

    function LogExcelPicture(num)
{
  var Excel = Sys.OleObject("Excel.Application");
  
  Excel.Workbooks.Open("C:\\Book1.xls");
  Excel.WorkSheets(1).Shapes(num).Copy();
  Log.Picture(Sys.Clipboard, "clipboard picture");
  Excel.Quit();
}

     

joseph_michaud's avatar
joseph_michaud
Moderator

Use the Excel OLE Object to provide the pictures:

 

function LogExcelPicture(num)
{
  var Excel = Sys.OleObject("Excel.Application");
  
  Excel.Workbooks.Open("C:\\Book1.xls");
  Excel.WorkSheets(1).Shapes(num).Copy();
  Log.Picture(Sys.Clipboard, "clipboard picture");
  Excel.Quit();
}

 

Bharadwaj's avatar
Bharadwaj
Contributor
9 years ago

Thank you Joseph.I will try this one out.

 

Best regards,

Bharadwaj Pappu.

  • TMUGHILENDRAN's avatar
    TMUGHILENDRAN
    Occasional Contributor
    7 years ago

    Can you give me the same code in VBScript so i can do image compare.

    I was trying to do but got stuck with i am converting the code syntax.

     

    function LogExcelPicture(num)
{
  var Excel = Sys.OleObject("Excel.Application");
  
  Excel.Workbooks.Open("C:\\Book1.xls");
  Excel.WorkSheets(1).Shapes(num).Copy();
  Log.Picture(Sys.Clipboard, "clipboard picture");
  Excel.Quit();
}
    • AlexKaras's avatar
      AlexKaras
      Champion Level 3
      7 years ago

      Hi,

       

      I believe it will be something like that (not tested, just converted code):

      Function LogExcelPicture(ByVal num)
  Dim Excel

  Set Excel = Sys.OleObject("Excel.Application")
  
  Call Excel.Workbooks.Open("C:\Book1.xls")
  Call Excel.WorkSheets(1).Shapes(num).Copy()
  Call Log.Picture(Sys.Clipboard, "clipboard picture")
  Call Excel.Quit()
End Function