title: Copy sheet from excel workbook to another workbook
body: <p>Below is my code for the copying process from one workbook to another. 
  I looked up a lot of similar issues but i could not get this working.
  when I run this the two files open up and then i get a third one called book1 with all results. then i get an error "Copy method of Worksheet class failed".
  What Im trying to do is copy the general report sheet from o.Book to xBook.
  I want to leave the books open for now until this is correct but i will use Xbook later.
  Can I get help with this please?</p>
  
  <p>Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click</p>
  
  <pre><code>    Dim oExcel As Excel.ApplicationClass
      Dim oBook As Excel.WorkbookClass
      Dim oBooks As Excel.Workbooks
  
      Dim xExcel As Excel.ApplicationClass
      Dim xBook As Excel.WorkbookClass
      Dim xBooks As Excel.Workbooks
  
      Dim user As String
      Dim opath As String
      Dim opathS As String
      Dim timeStamp As DateTime = DateTime.Now
      Dim path2 As String
  
  
      Label1.Text = "Working..."
  
      'Get the current system user user and set path to file
      user = Environment.UserName
      opath = "C:\Users\" + user + "\Downloads\ADC Open.xls"
      path2 = "C:\Users\" + user + "\Downloads\Personal.xlsm"
      opathS = "C:\Users\" + user + "\Desktop\Report.xls"
  
      'Create first object
      oExcel = CreateObject("Excel.Application")
      oExcel.DisplayAlerts = False
      oExcel.Visible = True
      oBooks = oExcel.Workbooks
  
      'Create second object
      xExcel = CreateObject("Excel.Application")
      xExcel.DisplayAlerts = False
      xExcel.Visible = True
      xBooks = xExcel.Workbooks
  
       'open first book 
      oBook = oBooks.Open(opath)
  
      'open second book
      xBook = xBooks.Open(path2)
  
      oBook.Worksheets("general_report").Copy(After:=xBook.Worksheets("general_report"))
      'Run the subroutine.
      'xExcel.Run("Execute")
  
      'xExcel.DisplayAlerts = False
  
      'Delete sheet not needed any more
      'xBook.Sheets("general_report").Delete
  
      'xExcel.DisplayAlerts = False
  
      'Save results to new file
      xBook.SaveAs(opathS)
  
      Label1.Text = "File saved at: " + opathS
      'Close the workbook and quit Excel.
      oBook.Close(False)
  
      System.Runtime.InteropServices.Marshal.
         ReleaseComObject(oBook)
      oBook = Nothing
      System.Runtime.InteropServices.Marshal.
         ReleaseComObject(oBooks)
      oBooks = Nothing
      oExcel.Quit()
      System.Runtime.InteropServices.Marshal.
         ReleaseComObject(oExcel)
      oExcel = Nothing
  
      'Delete  original file after finished with it 
      'System.IO.File.Delete(opath)
  End Sub
  </code></pre>