用 vb.net 操作EXCEL 急！！！！

有一个EXCEL 里面只有一个SHEET,用SHEET.COPY 复制这个SHEET ，怎么能复制到原来这个SHEET的后边？？？
求大家帮忙！100分 --------------------编程问答-------------------- .................................. --------------------编程问答-------------------- 怎么没人回答呢。。。。。。。。。。 --------------------编程问答-------------------- 路过，帮顶~~~~~~~~~~ --------------------编程问答-------------------- #PowerShell代码，仅提供方法

$App = [Microsoft.VisualBasic.Interaction]::CreateObject("Excel.Application",$Null)
$App.Visible = $True
$Book = $App.Workbooks.Open("D:\myBook.xls")
$Sheet1 = $Book.Sheets.Item(1)
$Sheet1.Copy($Sheet1)
$NewSheet = $Book.Sheets.Item(1)
$NewSheet.Name = "Sheet2"
$Sheet1.Move($NewSheet) --------------------编程问答-------------------- Excel.Worksheet   worksheet   =   (Excel.Worksheet)workbook.Sheets["Sheet1"];
  worksheet.Copy(workbook1.Sheets["sheet1"],Type.Missing);
  workbook1.Save();
http://topic.csdn.net/u/20090323/14/6bfa3ec0-1a89-4d63-bfdc-ee5abdba26a2.html --------------------编程问答-------------------- 在这个excel里先创建一个worksheet，然后COPY不就OK？ --------------------编程问答--------------------

引用 5 楼 wuyq11 的回复:

Excel.Worksheet  worksheet  =  (Excel.Worksheet)workbook.Sheets["Sheet1"];
  worksheet.Copy(workbook1.Sheets["sheet1"],Type.Missing);
  workbook1.Save();
http://topic.csdn.net/u/20090323/14/6bfa3ec0-1a89-4d63-bfdc-ee5abdba26a2.html

借用高人的代码 --------------------编程问答-------------------- 好好学习了一把...... --------------------编程问答-------------------- http://bingning.net/free/source/programing/index.html --------------------编程问答-------------------- Region "复制EXCEL的Sheet"
     ''' <summary>
     ''' 复制EXCEL的Sheet
     ''' </summary>
     ''' <returns></returns>
     ''' <remarks>复制最后的Sheet，并于最末尾追加</remarks>
     Public Function XlsSheetCopy() As XLS_RESULT
         Dim iSheetCnt As Integer

         Try
             iSheetCnt = oSheets.Count
             oSheetYobi1 = DirectCast(oSheets(iSheetCnt), Excel.Worksheet)
             oSheetYobi1.Copy(After:=oSheetYobi1)

             MRComObject(oSheetYobi1)

         Catch ex As Exception
             Me.XlsFileRelease()
             Return XLS_RESULT.XLS_NG
         Finally
             MRComObject(oSheetYobi1)
         End Try
     End Function
#End Region

--------------------编程问答-------------------- 你可以从新新建一个EXCEl啊，指定打开存进去不就可了，
--------------------编程问答-------------------- --------------------编程问答-------------------- --------------------编程问答-------------------- 循环到最后的sheet，copy上去 --------------------编程问答-------------------- 参照这个：
Sheets("Sheet1").Copy after:=Sheets(Sheets("Sheet1").Index) --------------------编程问答-------------------- 我只有观望的份了.......能力啊.....我太低级了 --------------------编程问答-------------------- ................................................. --------------------编程问答-------------------- 好像以前见过专门讲excel的。。忘地址了。。 --------------------编程问答-------------------- 你这个人频率也太慢了吗，你还是急，20天也不来看一下，这叫急，
我认为急就是想马上解决，你这可好，急到20天也不用完成，版主全回复了，也不来看一看，做事虎头蛇尾。 --------------------编程问答-------------------- 正在学这方面的知识，也来学习一下 --------------------编程问答-------------------- 还没人解决吗？想学习一下 --------------------编程问答-------------------- 关注，我用EXCEL进程老是有一个驻留 --------------------编程问答-------------------- 用完close，再dispose一下 --------------------编程问答-------------------- 楼上的dispose？ --------------------编程问答-------------------- EXCEL进程驻留最简单的杀掉进程

补充：.NET技术 ,  VB.NET