Forum Discussion

SudhakarVE's avatar
SudhakarVE
New Contributor
9 years ago

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
    9 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
SmartBear Alumni (Retired)
9 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
    9 years ago

    Hi:

     

    This code works. Appreciate it

     

    Thanks,

    Sudhakar

    • Colin_McCrae's avatar
      Colin_McCrae
      Community Hero
      9 years ago

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