主题：[求助]获取一个表显示的列名和列宽

Dim lm As String
Dim widt As Integer
Dim ss As String
For Each cl As Col In Tables("订单表").Cols
lm = cl.name
widt = cl.Width
ss = ss & lm & "|" & widt & "|"
Next
output.show(ss)

这样子的话订单表那些隐藏的列都给显示出来了，就想那些隐藏的列不不出现在变量SS里，求助这代码如可改