如何通过Excel interop对象自动调整列的大小？

Question

以下是我用来将数据加载到Excel工作表中的代码，但我想在加载完数据后自动设置列的大小。有谁知道最好的自动设置列大小的方法吗？

using Microsoft.Office.Interop;

public class ExportReport
{
    public void Export()
    {
        Excel.Application excelApp = new Microsoft.Office.Interop.Excel.Application();
        Excel.Workbook wb;
        Excel.Worksheet ws;
        Excel.Range aRange;
        object m = Type.Missing;
        string[,] data;
        string errorMessage = string.Empty;
        try
        {
            if (excelApp == null)
                throw new Exception("EXCEL could not be started.");

            // Create the workbook and worksheet.
            wb = excelApp.Workbooks.Add(Office.Excel.XlWBATemplate.xlWBATWorksheet);
            ws = (Office.Excel.Worksheet)wb.Worksheets[1];

            if (ws == null)
                throw new Exception("Could not create worksheet.");

            // Set the range to fill.
            aRange = ws.get_Range("A1", "E100");

            if (aRange == null)
                throw new Exception("Could not get a range.");

            // Load the column headers.
            data = new string[100, 5];
            data[0, 0] = "Column 1";
            data[0, 1] = "Column 2";
            data[0, 2] = "Column 3";
            data[0, 3] = "Column 4";
            data[0, 4] = "Column 5";

            // Load the data.
            for (int row = 1; row < 100; row++)
            {
                for (int col = 0; col < 5; col++)
                {
                    data[row, col] = "STUFF";
                }
            }

            // Save all data to the worksheet.
            aRange.set_Value(m, data);
            // Atuo size columns
            // TODO: Add Code to auto size columns.

            // Save the file.
            wb.SaveAs("C:\Test.xls", Office.Excel.XlFileFormat.xlExcel8, m, m, m, m, Microsoft.Office.Interop.Excel.XlSaveAsAccessMode.xlNoChange, m, m, m, m, m);
            // Close the file.
            wb.Close(false, false, m);
        }
        catch (Exception) { }
        finally
        {
            // Close the connection.
            cmd.Close();
            // Close Excel.
            excelApp.Quit();
        }
    }
}

- Nick O

Answer 1

在你的待办事项中添加以下内容：

aRange.Columns.AutoFit();

- Igby Largeman

---

还有一个aRange.Rows.AutoFit()。 - krillgar

使用 @nawfal 的答案：aRange.EntireColumn.AutoFit(); 意思是自适应调整一列的宽度，使其适配该列内的最长单元格的内容。 - Eduardo Cuomo

以防您不知道：AutoFit（）不能将列置于自动调整以适应稍后添加的内容的模式中，而只是对当前数据进行一次适合处理。因此，在调用AutoFit（）之前，Range必须完全填充。 - JonP

这里还有一个好的：workSheet.UsedRange.Columns.AutoFit(); - thedrs

Answer 2

这可能有些晚了，但如果你添加

标签，它会将段落结束并开始一个新的段落。

 worksheet.Columns.AutoFit();

或者

 worksheet.Rows.AutoFit();

它也能正常工作。

- Matheus Shita

---

我更喜欢这个。如果您不关心需要调整大小的特定列，只想要整个工作表自适应，则此选项更有用。 - ThePersonWithoutC

Answer 3

还有一个

aRange.EntireColumn.AutoFit();

请参阅Range.Columns和Range.EntireColumn之间的区别是什么。

- nawfal

Answer 4

该方法打开已创建的Excel文件，基于第3行自动调整所有工作表的所有列宽。如您所见，在Excel中选择的范围为"A3到K3"。

 public static void AutoFitExcelSheets()
    {
        Microsoft.Office.Interop.Excel.Application _excel = null;
        Microsoft.Office.Interop.Excel.Workbook excelWorkbook = null;
        try
        {
            string ExcelPath = ApplicationData.PATH_EXCEL_FILE;
            _excel = new Microsoft.Office.Interop.Excel.Application();
            _excel.Visible = false;
            object readOnly = false;
            object isVisible = true;
            object missing = System.Reflection.Missing.Value;

            excelWorkbook = _excel.Workbooks.Open(ExcelPath,
                   0, false, 5, "", "", false, Microsoft.Office.Interop.Excel.XlPlatform.xlWindows, "",
                   true, false, 0, true, false, false);
            Microsoft.Office.Interop.Excel.Sheets excelSheets = excelWorkbook.Worksheets;
            foreach (Microsoft.Office.Interop.Excel.Worksheet currentSheet in excelSheets)
            {
                string Name = currentSheet.Name;
                Microsoft.Office.Interop.Excel.Worksheet excelWorksheet = (Microsoft.Office.Interop.Excel.Worksheet)excelSheets.get_Item(Name);
                Microsoft.Office.Interop.Excel.Range excelCells =
(Microsoft.Office.Interop.Excel.Range)excelWorksheet.get_Range("A3", "K3");
                excelCells.Columns.AutoFit();
            }
        }
        catch (Exception ex)
        {
            ProjectLog.AddError("EXCEL ERROR: Can not AutoFit: " + ex.Message);
        }
        finally
        {
            excelWorkbook.Close(true, Type.Missing, Type.Missing);
            GC.Collect();
            GC.WaitForPendingFinalizers();
            releaseObject(excelWorkbook);
            releaseObject(_excel);
        }
    }

- Charlie

Answer 5

请看这篇文章，虽然不是完全符合你的问题，但还是有参考价值的：

• Craig Murphy - Excel – 自动换行行高问题

- Kyle Rosendo