设置列宽
Tables("表A").grid.cols("第一列").width = 200
得到列宽
Dim n = Tables("表A").grid.cols("第三列").width If n = -1 Then n = 98msgbox(n)