我尝试使用如下代码(VB.net)实现文字换行。
Dim w As Workbook = New Workbook(“TEST01.xlsx”)
Dim s As Worksheet = w.Worksheets(0)
s.Cells(“A1”).PutValue(“ABC” & vbCrLf & “DEF”)
但打开生成的文件后,A1单元格内的ABCDEF在同一行显示。双击A1单元格后,DEF换行显示。
我希望打开文件后ABCDEF直接以换行形式显示,该如何做呢?谢谢!
我尝试使用如下代码(VB.net)实现文字换行。
Dim w As Workbook = New Workbook(“TEST01.xlsx”)
Dim s As Worksheet = w.Worksheets(0)
s.Cells(“A1”).PutValue(“ABC” & vbCrLf & “DEF”)
但打开生成的文件后,A1单元格内的ABCDEF在同一行显示。双击A1单元格后,DEF换行显示。
我希望打开文件后ABCDEF直接以换行形式显示,该如何做呢?谢谢!
@ztc001,
请使用以下代码:
Dim a1 = s.Cells(“A1”)
a1.PutValue(“ABC” & vbCrLf & “DEF”)
Dim style = a1.GetStyle()
style.IsTextWrapped = True
a1.SetStyle(style)