某些时候我们希望单元格中的字符能够换行显示,比如下面的情况
这个在
C#
中的实现很简单,在拼接字符串时加上
”/n”
然后执行
AutoFit()
再将
Rang.WrapText
设为
True
就
OK
了,
同样将这部分代码搬到
VB
这边就出现问题了,变成了以下这个样子
而且
Rang.WrapText
不作任何设置的话也将默认变为
True
。后来发现在
VB
中只要设置单元格的字符串中包含换行符单元格
WrapText
就会默认为
True
,
在这种情况下执行
AutoFit
就没有想要的效果了,解决方案很简单
objSheet.Range("A1").Value = strTest1 & vbCrLf & strTest2
objSheet.UsedRange.WrapText = False
objSheet.Range("A1").Rows.AutoFit
objSheet.Range("A1").Columns.AutoFit
objSheet.UsedRange.WrapText = True
objSheet.Range("A1").Rows.AutoFit
objSheet.Range("A1").Columns.AutoFit