VB.NET中的Excel自适应列

Question

我这里的代码在VB6中运行良好。

 For CLms = 1 To 10
      ws.Columns(CLms).AutoFit '<---Autofilt data on XL sheet
 Next CLms

我已经搜索过如何在VB.NET中制作excel列宽度自动调整的等价或替代方法，但我仍然没有得到确切的AutoFit函数。

任何帮助将不胜感激。

Answer 1

这就是我在vb.net中完成它的方式。

xlSheet.Range("A1:X1").EntireColumn.AutoFit()

Answer 2

例如，如果您不知道列数，则可以自动调整整个行。

xlSheet.Rows.Item(1).EntireColumn.AutoFit()

Answer 3

无论是从VB6还是VB.NET调用代码，操作Excel列的方法都是相同的。因此，如果代码在VB6中有效，则不应对其进行任何更改。

但是要获得一些帮助 - 请查看VB.NET中包含自动调整的this full example

Answer 4

你好，我尝试了所有这些解决方案..但没有人工作.. 请采取正确的解决方案：

    With oSheet

        .PageSetup.Zoom = False
        .PageSetup.FitToPagesWide = 1
        .PageSetup.FitToPagesTall = False

    End With

Answer 5

我用了ff。代码以自动调整所使用的范围。

xlWorkSheet.UsedRange.EntireColumn.AutoFit()