C＃Excel – 将每个工作表保存到一个新的工作簿

我有一个25个左右的工作表，我只是想保存每个工作表，因为它是自己的新的工作簿的Excel。 当我运行代码时，它复制整个工作簿而不是单个工作表。 任何帮助都是极好的。

string FileDropLocation = @"C:\ExcelFiles"; string file_FullFileName = @"C:\ts\Conversion\v2.xlsx"; Microsoft.Office.Interop.Excel.Application app = new Microsoft.Office.Interop.Excel.Application(); Microsoft.Office.Interop.Excel.Workbook workBook = app.Workbooks.Open(file_FullFileName, 0, true, 5, "", "", true, Microsoft.Office.Interop.Excel.XlPlatform.xlWindows, "\t", false, false, 0, true, 1, 0); for (int i = 0; i < workBook.Worksheets.Count; i++) { Microsoft.Office.Interop.Excel.Worksheet workSheet = (Microsoft.Office.Interop.Excel.Worksheet)workBook.Sheets[i+1]; workSheet.SaveAs(FileDropLocation + "\\" + workSheet.Name); } workBook.Close(); 

Answer 1

试试这个来代替当前for循环和下面的循环

  foreach(Worksheet sheet in workBook.Worksheets) { var newbook = app.Workbooks.Add(1); sheet.Copy(newbook.Sheets[1]); newbook.SaveAs(FileDropLocation + "\\" + sheet.Name); newbook.Close(); } workBook.Close(); 

只要注意，我相信Workbooks.Add()放置在一个默认的空白工作表（通常是Sheet1），所以如果你只想复制工作表，你必须明确地删除它。

Answer 2

我知道这个工程。

 Microsoft.Office.Interop.Excel.Application xl = null; Microsoft.Office.Interop.Excel._Workbook wb = null; xl = new Microsoft.Office.Interop.Excel.Application(); xl.SheetsInNewWorkbook = 1; xl.Visible = true; wb = (Microsoft.Office.Interop.Excel._Workbook)(xl.Workbooks.Add(Type.Missing)); wb.SaveAs(FileDropLocation + "\\" + workBook.Sheets[i + 1].Name, Microsoft.Office.Interop.Excel.XlFileFormat.xlExcel8, Type.Missing, Type.Missing, Type.Missing, Type.Missing, Microsoft.Office.Interop.Excel.XlSaveAsAccessMode.xlExclusive, Type.Missing, Type.Missing, Type.Missing, Type.Missing, Type.Missing); wb.Close(true, Type.Missing, Type.Missing); xl.Quit(); Microsoft.Office.Interop.Excel.Workbook destWorkbook = null; Microsoft.Office.Interop.Excel.Worksheet workSheet = null; Microsoft.Office.Interop.Excel.Worksheet newWorksheet = null; destWorkbook = app.Workbooks.Open(FileDropLocation + "\\" + workBook.Sheets[i + 1].Name + ".xls", false, Type.Missing, Type.Missing, Type.Missing, Type.Missing, Type.Missing, Type.Missing, Type.Missing, Type.Missing, Type.Missing, Type.Missing, Type.Missing, Type.Missing, Type.Missing); workSheet = (Microsoft.Office.Interop.Excel.Worksheet)workBook.Sheets[i + 1]; newWorksheet = (Microsoft.Office.Interop.Excel.Worksheet)destWorkbook.Worksheets.Add(Type.Missing, Type.Missing, Type.Missing, Type.Missing); app.DisplayAlerts = false; workSheet.Copy(Type.Missing,newWorksheet); destWorkbook.Save(); 

Answer 3

…您需要在循环中创build一个新的工作簿并将工作表移动到该工作簿。 我在VB程序，所以我猜，但你的foor循环内的代码应该是这样的：

 Microsoft.Office.Interop.Excel.Workbook workBook2 = app.Workbooks.Add(Missing.Value) Microsoft.Office.Interop.Excel.Worksheet workSheet = (Microsoft.Office.Interop.Excel.Worksheet)workBook.Sheets[i+1]; workSheet.Copy(workBook2.Sheets(1)) 

然后你可以添加代码来删除其他表单等

希望这会有所帮助。