Forum Discussion

nimishbhuta's avatar
nimishbhuta
Frequent Contributor
6 years ago

Insert PDF file into excel sheet

Hello All,    Scenario : I need to have the PDF document shown in the excel sheet. One way I can do it by taking screenshot of PDF file but then it will show for the first page shown on the scree...
  • TanyaYatskovska's avatar
    TanyaYatskovska
    6 years ago

    Hi nimishbhuta,

     

    The following code adds a pdf file to an Excel file - it works on my computer:

    Sub Test

  Set Excel = Sys.OleObject("Excel.Application")
  Excel.Workbooks.Open("<path to your Excel file>")
  
  Set Ws = Excel.ActiveSheet

  'Add the pdf file
  Set OLEObj=Ws.OLEObjects.Add(,"<path to your PDF file>",true,false)
  
  'If you want to add the file to a specific place
    With OLEObj
        .Left = Ws.Range("A1").Left
        .Height = Ws.Range("A1").Height
        .Width = Ws.Range("A1").Width
        .Top = Ws.Range("A1").Top
    End With
 
  Excel.Quit
End Sub

     

    P.S. Sometimes I simply love coding :)

  • nimishbhuta's avatar
    nimishbhuta
    Frequent Contributor
    6 years ago

    Hello Carson, 

     

    This is not much useful as it shows how to do it in C#. I am using the vbscript, please let me know how can I insert the PDF file into excel sheet. 

     

    Regards,

     

    Nimish 

    • tristaanogre's avatar
      tristaanogre
      Esteemed Contributor
      6 years ago

      What cunderw  posted was simply the article indicating the existance of the method.  The first link has examples in multiple code languages that show how to instantiate the excel object and call methods.  You should be able to adapt the two into what you need.

      • nimishbhuta's avatar
        nimishbhuta
        Frequent Contributor
        6 years ago

        I have checked on the COM object and it's method but I could find any method that insert file into excel sheet. 

         

        Please point me to the exact method if you are aware about it.

         

        Regards,

         

        Nimish