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.   sWrit...
  • 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

     

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

  • Colin_McCrae's avatar
    Colin_McCrae
    Community Hero
    10 years ago

    Thats pretty much identical to what it says on the Stack post I linked to ....