我在这里有我的 VB6 代码,它运行良好。
For CLms = 1 To 10
ws.Columns(CLms).AutoFit '<---Autofilt data on XL sheet
Next CLms
我已经搜索了如何在 VB.NET 中使 excel 列宽度自动调整的等效或替代方法,但我仍然没有得到确切的 AutoFit 功能。
任何帮助将不胜感激。
这就是我在 vb.net 中所做的。
xlSheet.Range("A1:X1").EntireColumn.AutoFit()
例如,如果您不知道可以自动调整完整行的列数。
xlSheet.Rows.Item(1).EntireColumn.AutoFit()
无论您是从 VB6 还是 VB.NET 调用代码,操作 Excel 列的方法都是相同的。因此,如果它在 VB6 中工作,则不应更改您的代码。
但是需要一些帮助 - 看看这个包含自动调整的 VB.NET 中的完整示例
你好我尝试了所有这些解决方案..但没有人工作..请采取正确的解决方案:
With oSheet
.PageSetup.Zoom = False
.PageSetup.FitToPagesWide = 1
.PageSetup.FitToPagesTall = False
End With
我用的是ff。代码自动适应使用的范围。
xlWorkSheet.UsedRange.EntireColumn.AutoFit()