.NET (Copy Sheet) แยก sheet หลายๆๆ Sheet ใน ไฟร์ excel ออกเป็น ไฟร์ excel ในแต่ละ sheet ครับ

            ApplicationClass ExcelApp;
            Workbook ExcelBooks;
            Worksheet ExcelSheets;
            Worksheet worksheet;
            Thread CurrentThread;

            ExcelApp = new ApplicationClass();

            CurrentThread = Thread.CurrentThread;
            CurrentThread.CurrentCulture = new CultureInfo("en-US");

            String FileName = @"D:\MyExcel.xls";


            try
            {
                FileInfo MyFile = new FileInfo(FileName);
                if (MyFile.Exists)
                {
                    MyFile.Delete();
                }

                ExcelApp = new ApplicationClass();

                CurrentThread = Thread.CurrentThread;
                CurrentThread.CurrentCulture = new CultureInfo("en-US");


                ExcelApp.Visible = true;
                ExcelBooks = ExcelApp.Workbooks.Add(XlWBATemplate.xlWBATWorksheet);
               
                Worksheet     worksheet = ((Worksheet)dtCustommail.Rows[0]["File"]);
                newWorksheet = (Worksheet)ExcelBooks.Worksheets.Add(Type.Missing, Type.Missing, Type.Missing,Type.Missing);
             newWorksheet.Copy(Type.Missing, worksheet);
                
                   
                ExcelBooks.SaveAs(FileName, XlFileFormat.xlXMLSpreadsheet, Type.Missing, Type.Missing,
                false, false, XlSaveAsAccessMode.xlNoChange,
                Type.Missing, Type.Missing, Type.Missing, Type.Missing, Type.Missing);

<?
	$objExcel = new COM("Excel.Application");
	$objWorkbook = $objExcel->Workbooks->Open("C:\Scripts\testsheet.xls");
	$objExcel->Visible = true;

	$objLastSheet = $objWorkbook->Worksheets("Sheet3");
	$objWorksheet = $objWorkbook->Worksheets("Sheet1");
	$objWorksheet->Copy($objLastSheet);

	$objWorksheet = $objWorkbook->Worksheets("Sheet1 (2)");
	$objWorksheet->Name = "My New Worksheet";
?>

   string src = @"Book1.xlsx";
    string dst = @"Book2.xlsx";

    object missing = Missing.Value;

    ApplicationClass app = new ApplicationClass();
    WorkbookClass wb1 = (WorkbookClass) app.Workbooks.Open(src, missing, missing, missing, missing, missing, missing, missing, missing, missing, missing, missing, missing, missing,missing);
    WorkbookClass wb2 = (WorkbookClass)app.Workbooks.Open(dst, missing, missing, missing, missing, missing, missing, missing, missing, missing, missing, missing, missing, missing, missing);

    Worksheet sheet1 = (Worksheet) wb1.Worksheets["Sheet1"];
    Worksheet sheet2 = (Worksheet)wb2.Worksheets["Sheet1"];
    try
    {
        sheet1.Copy(sheet2,missing );
    }catch (Exception ex){
        //
    }
    finally{
        app.Quit();
    }

Dim src As String = "Book1.xlsx"
Dim dst As String = "Book2.xlsx"

Dim missing__1 As Object = Missing.Value

Dim app As New ApplicationClass()
Dim wb1 As WorkbookClass = DirectCast(app.Workbooks.Open(src, missing__1, missing__1, missing__1, missing__1, missing__1, _
	missing__1, missing__1, missing__1, missing__1, missing__1, missing__1, _
	missing__1, missing__1, missing__1), WorkbookClass)
Dim wb2 As WorkbookClass = DirectCast(app.Workbooks.Open(dst, missing__1, missing__1, missing__1, missing__1, missing__1, _
	missing__1, missing__1, missing__1, missing__1, missing__1, missing__1, _
	missing__1, missing__1, missing__1), WorkbookClass)

Dim sheet1 As Worksheet = DirectCast(wb1.Worksheets("Sheet1"), Worksheet)
Dim sheet2 As Worksheet = DirectCast(wb2.Worksheets("Sheet1"), Worksheet)
Try
	sheet1.Copy(sheet2, missing__1)
		'
Catch ex As Exception
Finally
	app.Quit()
End Try