5

我有 C# 应用程序，用于从 excel 中删除前几行，然后将文件格式化为 .csv，但现在我得到的不是 .xlsx 而是 .xlsm，我找不到如何使用，我什至无法从列中加载数据。它来自 SAP 的一些报告文件，我在里面找不到任何宏。我尝试过这样的事情

        /* Load Excel File */
        Excel.Application excelApp = new Excel.Application();
        string workbookPath = @"file.xlsm";
        Excel.Workbook excelWorkbook = excelApp.Workbooks.Open(workbookPath, 0, true, 5, "", "", true, Microsoft.Office.Interop.Excel.XlPlatform.xlWindows, "\t", false, false, 0, true, 1, 0);

        /* Load worksheets collection */
        Excel.Sheets excelSheets = excelWorkbook.Worksheets;

        /* Select first worksheet */
        Excel.Worksheet excelWorksheet = (Excel.Worksheet)excelSheets[1];

        /* Deleting first 87 Rows */
        Excel.Range range = excelWorksheet.get_Range("1:87").EntireRow;
        range.Delete(Excel.XlDeleteShiftDirection.xlShiftUp);

        /* Save File */
        excelWorkbook.SaveAs(@"out_file.xlsm");
        excelWorkbook.Close(false);
        excelApp.Application.Quit();

        /* Release COM objects otherwise Excel remain running */
        releaseObject(range);
        releaseObject(excelWorkbook);
        releaseObject(excelWorksheet);
        releaseObject(excelApp);

这适用于 .xlsx 扩展名（它将删除行并将其保存在另一个名称下）但不适用于 .xlsm（程序成功运行但它不删除数据）。即使我手动将 Excel 文件另存为 .xlsx 并在该文件上运行程序，它也不起作用，但如果我手动将粘贴数据复制到另一个 .xlsx 并在该文件上运行程序，它可以工作，我不明白。如何重写此程序以从 .xlsm 文件中删除行？请帮忙，谢谢。

4

1 回答 1

2

感谢 Christian Sauer，EPPLUS.dll 起作用了。

步骤1

解决方案资源管理器 > 项目名称 > 添加 > 参考 > 浏览到 EPPLUS.dll

第2步

using OfficeOpenXml;
using OfficeOpenXml.Style;
using System.IO;

第 3 步（删除行范围）

 using (var p = new ExcelPackage(new FileInfo(@"file.xlsm")))
            {
                var sheet = p.Workbook.Worksheets["Sheet1"];
                sheet.DeleteRow(1, 87);
                p.SaveAs(new FileInfo(@"output.xlsm"));
            }
)

第 4 步（将 .xlsm 导出为 .csv）

在这些行之间插入代码

                sheet.DeleteRow(1, 87);
           ====>[HERE]
                p.SaveAs(new FileInfo(@"output.xlsm"));

/* Code placed to [HERE] placeholder */
using (var writer = File.CreateText(@"output.csv"))
            {
                var rowCount = sheet.Dimension.End.Row;
                var columnCount = sheet.Dimension.End.Column;
                for (var r = 1; r <= rowCount; r++)
                {
                    for (var c = 1; c <= columnCount; c++)
                    {
                        writer.Write(sheet.Cells[r, c].Value);
                        writer.Write(";");
                    }
                    writer.WriteLine();
                }
            }
于 2014-08-05T14:44:08.157 回答