Question

似乎是这个问题的一些人，通常它已经解决了，因为他们还没有加载数据。我已经加载了我的数据，但Autofit仍然无法正常工作。

Dim fi As New FileInfo(fileDialog.FileName)
Dim pck As New ExcelPackage(fi)

Dim epWs As ExcelWorksheet = pck.Workbook.Worksheets.Add("My Sheet")
epWs.Cells("A1").LoadFromDataTable(data, True)

With epWs.Cells("A1:G1")
    .AutoFilter = True
    .AutoFitColumns()
    .Style.Fill.PatternType = ExcelFillStyle.Solid
    .Style.Fill.BackgroundColor.SetColor(Color.DodgerBlue)
    .Style.Font.Color.SetColor(Color.White)
End With

pck.Save()

这会生成一个文件，其中列都是其默认宽度。任何单元格中都没有公式，也没有合并。

然后我开始尝试使用BestFit，但这也无效。

        For i = 1 To 7
            epWs.Column(i).BestFit = True
        Next

（奇怪Columns集合如何不是从零开始）

无论如何，有人有任何指针吗？感谢

Answer 1

您需要在整个范围内致电AutoFitColumns，而不仅仅是A1:G1。做类似的事情：

epWs.Cells.AutoFitColumns();

有关详细信息，请参阅此处：

EPPLUS AutoFit cells

EPPlus AutoFitColumns不起作用

1 个答案: