【发布时间】：2011-03-29 16:07:28
【问题描述】：
我有一个会计程序，可以生成报告并将它们保存在 excel 文件中。但我不需要此报告中的大部分列。所以我创建了一个程序来删除我不需要的列。在转换后的文件中，我使用 3 个空列来写笔记、数据等。我每周生成这个报告，所以当生成新报告时，我需要转换他并将我在旧报告中写的 3 列转移到新的那一个。报告的第一列是 UserID，所以我需要传输我为 ID 编写的注释和数据。旧报告中的某些 ID 可能在新报告中丢失。 我创建了一个应该执行此操作的 Windows 窗体应用程序，但效果不佳。新报表已转换，但旧报表中的数据未传输。有任何想法吗？？这是我的代码：
OpenExcelWorkbook(OldFilePath);
_sheet = (Excel.Worksheet)_sheets[1];
_sheet.Select(Type.Missing);
var oldData = new DataTable();
oldData.Columns.Add("Id", typeof(string));
oldData.Columns.Add("Comment1", typeof(string));
oldData.Columns.Add("Comment2", typeof(string));
oldData.Columns.Add("Comment3", typeof(string));
var range = _sheet.UsedRange;
for (var i = 1; i <= range.Rows.Count; i++)
{
oldData.Rows.Add(_sheet.Range["A" + i, Type.Missing].Value2, _sheet.Range["J" + i, Type.Missing].Value2, _sheet.Range["K" + i, Type.Missing].Value2,
_sheet.Range["L" + i, Type.Missing].Value2);
}
_book.Save();
_book.Close(false, Type.Missing, Type.Missing);
_app.Quit();
releaseObject(_sheet);
releaseObject(_book);
releaseObject(_app);
OpenExcelWorkbook(NewFilePath);
_sheet = (Excel.Worksheet)_sheets[1];
_sheet.Select(Type.Missing);
range = _sheet.Range["D:E", Type.Missing];
range.EntireColumn.Delete(Type.Missing);
range = _sheet.Range["E:F", Type.Missing];
range.EntireColumn.Delete(Type.Missing);
range = _sheet.Range["F:I", Type.Missing];
range.EntireColumn.Delete(Type.Missing);
_sheet.Cells[4, 3] = "Invoice";
_sheet.Cells[4, 4] = "Transfer";
_sheet.Cells[4, 5] = "Receipt";
range = _sheet.UsedRange;
var convDataTable = new DataTable();
convDataTable.Columns.Add("Id", typeof(string));
convDataTable.Columns.Add("Comment1", typeof(string));
convDataTable.Columns.Add("Comment2", typeof(string));
convDataTable.Columns.Add("Comment3", typeof(string));
for (var i = 1; i < range.Rows.Count; i++)
convDataTable.Rows.Add(_sheet.Range["A" + i, Type.Missing].Value2, "", "", "");
foreach (DataRow row in convDataTable.Rows)
{
foreach (DataRow row1 in oldData.Rows)
{
if (row["Id"] == row1["Id"])
{
row["Comment1"] = row1["Comment1"];
row["Comment2"] = row1["Comment2"];
row["Comment3"] = row1["Comment3"];
}
}
}
for (var i = 1; i <= convDataTable.Rows.Count; i++)
{
_sheet.Cells[i, 10] = convDataTable.Rows[i - 1]["Comment1"];
_sheet.Cells[i, 11] = convDataTable.Rows[i - 1]["Comment2"];
_sheet.Cells[i, 12] = convDataTable.Rows[i - 1]["Comment3"];
}
_book.Save();
_book.Close(false, Type.Missing, Type.Missing);
_app.Quit();
releaseObject(_sheet);
releaseObject(_book);
releaseObject(_app);
这些是我使用的功能。
private static void releaseObject(object obj)
{
try
{
System.Runtime.InteropServices.Marshal.ReleaseComObject(obj);
obj = null;
}
catch (Exception ex)
{
obj = null;
MessageBox.Show("Unable to release the Object " + ex.ToString());
}
finally
{
GC.Collect();
}
}
protected void OpenExcelWorkbook(string filePath)
{
_app = new Application();
_books = _app.Workbooks;
_book = _books.Open(filePath, Type.Missing, Type.Missing, Type.Missing, Type.Missing, Type.Missing,
Type.Missing, Type.Missing, Type.Missing, Type.Missing, Type.Missing);
_sheets = _book.Worksheets;
}
【问题讨论】：
-
您是否尝试过单步执行代码？评论信息是否进入 oldData？当您到达底部的循环并尝试将其复制到新电子表格中时，它是否仍然存在？