We are building a new experience for our SmartBear Community.
This site is now read-only. You can still browse and search as usual. Learn More

Forum Discussion

SudhakarVE's avatar
SudhakarVE
New Contributor
10 years ago
Solved

Add New Worksheet at the End

Hi,

 

I'm trying to add a new worksheet at the end of the workbook. The following add method adds the worksheet at the first sheet. VBA After:= with count is not working in test complete.

 

sWritePath="Z:\Expected Data Report Files\ComSnapShot\Sample.xlsx"

Set oXL = CreateObject("Excel.Application")

Set oVPRWB = oXL.Workbooks.Open(sMainpath)

Set oPCSExpWB= oXL.Workbooks.Open(sWritePath)

oPCSExpWB.Worksheets.Add

 

Appreciate any idea to add the new sheet at the end.

 

Regards,

Sudhakar

  • TanyaYatskovska's avatar
    TanyaYatskovska
    10 years ago

    Hi Sudhakar,

     

    The following code works for me:

    sub Test1
  sWritePath="e:\Book1.xlsx"
  Set oXL = CreateObject("Excel.Application")
 
  Set oPCSExpWB= oXL.Workbooks.Open(sWritePath)
  Call oPCSExpWB.Worksheets.Add (, oPCSExpWB.Sheets(oPCSExpWB.Sheets.Count))
  oPCSExpWB.Save
  oXL.Quit
end sub

     

4 Replies

  • Colin_McCrae's avatar
    Colin_McCrae
    Community Hero
    10 years ago

    Does this help?

     

    http://stackoverflow.com/questions/14109102/how-do-i-add-a-worksheet-after-all-existing-excel-worksheets

    • TanyaYatskovska's avatar
      TanyaYatskovska
      Icon for Alumni rankAlumni
      10 years ago

      Hi Sudhakar,

       

      The following code works for me:

      sub Test1
  sWritePath="e:\Book1.xlsx"
  Set oXL = CreateObject("Excel.Application")
 
  Set oPCSExpWB= oXL.Workbooks.Open(sWritePath)
  Call oPCSExpWB.Worksheets.Add (, oPCSExpWB.Sheets(oPCSExpWB.Sheets.Count))
  oPCSExpWB.Save
  oXL.Quit
end sub

       

      • SudhakarVE's avatar
        SudhakarVE
        New Contributor
        10 years ago

        Hi:

         

        This code works. Appreciate it

         

        Thanks,

        Sudhakar