主题：[求助]请教如何使用代码 让整个表的列宽根据内容长度自动调整

Dim Names As New List(Of String) '定义一个集合,记录当前表的列名

For Each c As Col In CurrentTable.Cols

    Names.Add( c.Name) '将列名称添加到集合中

Next 

For Each Name As String In Names 

    If Name = "第十列" Or Name = "第八列" Then '不需要自动调整列宽的列名

        '什么也不操作

        Else 

        CurrentTable.AutoSizeCol(Name)'自动调整列宽

    End If 

Next