VB读取EXCEL表中单元格的内容是多行显示的问题

Question

EXCEL表中单元格的内容是多行显示的，如何读取这个单元格的内容到text控件中，并且让内容也一样是多行显示的？关键是如何让读到text控件中的内容也一样是多行显示的

Answer 1

取EXCEL中单元格中的内容后，寻找其中的换行符，然后截取，再加上换行符及回车符，
以下 TEXT3为EXCEL单元格中取出的内容；
取出调用LRXS这个过程，就可以了
DIM TMLR,TKLR AS STRING
DIM K3,K4 AS INTEGER
Private Sub LRXS()

On Error GoTo aa

tmlr = Text3

tklr = Text10 & "、"
k3 = Len(Text3) - 2
For k4 = 1 To k3
If Asc(Mid(tmlr, k4, 1)) = 10 Then

tklr = tklr & Left(tmlr, k4 - 1) & Chr(13) & Chr(10)

tmlr = Mid(tmlr, k4 + 1, Len(tmlr) - k4)
k4 = 0
k3 = Len(tmlr) - 2
End If

If Len(tmlr) < 3 Then GoTo aa
If Len(tmlr) - k4 < 3 Then GoTo aa
Next

aa:

tklr = tklr & tmlr

If Len(tklr) > 10 Then

Text3 = tklr

End If

End Sub

Answer 2

replace(sheet1.range("A1"),chr(10),chr(13))本回答被提问者采纳

Answer 3

我帮你研究下追问

谢谢