Question

如下字语句是让VB工程查询数据导出EXCEL单元格中自动缩小填充，如何变成截取8位字符

newxls.Columns("B:F").Select
With newxls.Selection
.HorizontalAlignment = xlLeft
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = True
.MergeCells = False
End With

Answer 1

写的本来就不全。也许加个判断语句会好点吧。
先用宏录一个，然后在改下宏，在其中加个判断是否大于8