如何合并文件夹中所有Excel文件的已用范围？
抱歉打扰大家，如果这是微不足道的，但我很难过。 我把一些C＃代码放在一个文件夹中的所有Excel文件中，并将其合并到一个统一文件中。 脚本大部分工作，但我注意到它是从源文件复制头。 所以，我修改了一下脚本。 现在，我正在尝试复制第一个文件（包括第一行）中的usedrange，然后复制第二行（和向下）以及源文件中的所有列。 以下是我的主要工作代码。
我几乎可以肯定问题在这里。
for (int i = 2; i <= rCnt; i++) { range = Worksheet.range[i, cCnt] as Excel.Range; if (range.Value != null) { Add(range.Value.ToString()); } } 这是整个脚本。
using System; using System.Collections.Generic; using System.ComponentModel; using System.Data; using System.Drawing; using System.Linq; using System.Text; using System.Windows.Forms; using Excel = Microsoft.Office.Interop.Excel; using Microsoft.Office.Interop.Excel; using System.IO; namespace WindowsFormsApplication3 { public partial class Form1 : Form { public Form1() { InitializeComponent(); } private void button1_Click(object sender, EventArgs e) { Main(); } public void Main() { string filePath = "C:\\Users\\Excel\\Desktop\\excel_files\\MainExcel.xlsx"; Microsoft.Office.Interop.Excel.Application xlobj = new Microsoft.Office.Interop.Excel.Application(); Workbook w = default(Workbook); Workbook w1 = default(Workbook); Worksheet s = default(Worksheet); Worksheet s1 = default(Worksheet); Excel.Range range; int rCnt = 0; int cCnt = 0; //Worksheet xlsht = default(Worksheet); int intItem = 1; DirectoryInfo dirSrc = new DirectoryInfo(@"C:\Users\Excel\Desktop\excel_files\"); foreach (FileInfo ChildFile in dirSrc.GetFiles()) { try { // Renaming the excel sheet w = xlobj.Workbooks._Open(ChildFile.FullName, Type.Missing, Type.Missing, Type.Missing, Type.Missing, Type.Missing, Type.Missing, Type.Missing, Type.Missing, Type.Missing, Type.Missing, Type.Missing, Type.Missing); w1 = xlobj.Workbooks.Open(filePath); xlobj.Visible = true; w1 = xlobj.Workbooks._Open(filePath, Type.Missing, Type.Missing, Type.Missing, Type.Missing, Type.Missing, Type.Missing, Type.Missing, Type.Missing, Type.Missing, Type.Missing, Type.Missing, Type.Missing); // There is no sheets(2) in your MainExcel workbook when copying the 2nd workbook. // if (intItem > 3) // { // Excel.Worksheet lastSht = // (Excel.Worksheet)w1.Worksheets[w1.Worksheets.Count]; // xlsht = (Excel.Worksheet)w1.Worksheets.Add(Type.Missing, // lastSht, // Type.Missing, Type.Missing); // } s = (Excel.Worksheet)w.Worksheets[1]; s1 = (Excel.Worksheet)w1.Worksheets[1]; s1.Name = ChildFile.Name; // it will copy and paste sheet from one to another // Excel.Range s = s.Cells[s.UsedRange.Rows.Count + 1, 1]; if (intItem == 1) { s.UsedRange.Copy(Type.Missing); } else { range = s.UsedRange; rCnt = range.Rows.Count; cCnt = range.Columns.Count; for (int i = 2; i <= rCnt; i++) { range = Worksheet.range[i, cCnt] as Excel.Range; if (range.Value != null) { Add(range.Value.ToString()); } } } // Excel.Range r = s1.Cells[1, 1]; // Excel.Range r = (s1.UsedRange.Row + s1.UsedRange.Rows.Count - 1); // Excel.Range r = s1.get_Range(s1.UsedRange.Row + 1, Type.Missing); Excel.Range r = s1.Cells[s1.UsedRange.Rows.Count + 1, 1]; r.PasteSpecial(Excel.XlPasteType.xlPasteValues, Excel.XlPasteSpecialOperation.xlPasteSpecialOperationNone, Type.Missing, Type.Missing); // with formula // s1.UsedRange.Formula = s.UsedRange.Formula; // Renaming the excel sheet w.Save(); w1.Save(); w.Close(false, Type.Missing, Type.Missing); w1.Close(false, Type.Missing, Type.Missing); } catch (Exception ex) { MessageBox.Show(ex.ToString()); w.Save(); w1.Save(); w.Close(false, Type.Missing, Type.Missing); w1.Close(false, Type.Missing, Type.Missing); } intItem = intItem + 1; } } } }
我在这里有很多评论，因为我正在testing几个不同的想法。
我不得不承认，我没有解构所有的代码。 我看到了两个，在你引用的可能的问题区域的片段中，看起来是语法错误：
range = Worksheet.range[i, cCnt] as Excel.Range; ^- I think that should be capitalized, as the indexer is
和…
Add(range.Value.ToString());
Add方法在哪里？ 这意味着这是一个与表单类关联的方法。
这就是说，我正确理解你的最终目标，也许这足以诀窍。 我在一个小的文件列表上做了这件事，它将每个文件复制到一个新的工作簿，除了第一行之外的第一行。
这是一个有点暴力，因为我实际上是复制标题行，然后删除它，但代码基础是短暂和易于维护。
这是你的Main()方法：
Microsoft.Office.Interop.Excel.Application xlobj = new Microsoft.Office.Interop.Excel.Application(); xlobj.Visible = true; xlobj.DisplayAlerts = false; Excel.Workbook w = xlobj.Workbooks.Add(); Excel.Worksheet sh = w.Worksheets[1]; int row = 1; DirectoryInfo dirSrc = new DirectoryInfo(@"C:\Users\Excel\Desktop\excel_files\"); foreach (FileInfo ChildFile in dirSrc.GetFiles()) { Excel.Workbook wb = xlobj.Workbooks.Open(ChildFile.FullName); Excel.Range r = wb.Worksheets[1].UsedRange; r.Copy(); sh.Cells[row, 1].PasteSpecial(Excel.XlPasteType.xlPasteValues, Excel.XlPasteSpecialOperation.xlPasteSpecialOperationNone); if (row > 1) sh.Cells[row--, 1].EntireRow.Delete(); row += r.Rows.Count; wb.Close(); } w.SaveAs("C:\\Users\\Excel\\Desktop\\excel_files\\MainExcel.xlsx");
以下是结果前后的截图：
