Forum Discussion

Bharadwaj's avatar
Bharadwaj
Contributor
10 years ago

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
    10 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();
}

     

Bharadwaj's avatar
Bharadwaj
Contributor

Guys can some one pelase help me in this issue. Thanks you.

 

Best regards,

Bharadwaj Pappu.

joseph_michaud's avatar
joseph_michaud
Moderator
10 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();
}

 

  • Bharadwaj's avatar
    Bharadwaj
    Contributor
    10 years ago

    Thank you Joseph.I will try this one out.

     

    Best regards,

    Bharadwaj Pappu.

    • TMUGHILENDRAN's avatar
      TMUGHILENDRAN
      Occasional Contributor
      8 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
        8 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