怎么在粘贴时得到粘贴内容的行数

如何在粘贴时得到粘贴内容的行数
从记事本（格式数据）或Excel里复制数据后如何知道粘贴内容的行数，根据行数确定表格控件的行数，在粘贴时自行调整。
我现在每次都把表格控件的行数设成最大，不想这样。

[解决办法]
试一试,不一定对.

VB code

s = Clipboard.GetText(vbCFText) '取得剪贴板正文If s <> "" ThenFor i = 1 To Len(s)If Mid(s, i, 2) = vbCrLf Thenj = j + 1End IfNextMsgBox "行数=" & j + 1ElseMsgBox "行数=" & j + 1End If
[解决办法]
楼主试一下这段代码：
VB code
Public Sub Main()    Dim strText$, i&, k&    strText = VB.Clipboard.GetText(vbCFText)    k = 0    If (Len(strText) > 0) Then        i = 1        While (i > 0)            k = k + 1            i = InStr(i + 2, strText, vbCrLf)        Wend        If (Right$(strText, 2) = vbCrLf) Then k = k - 1    End If    MsgBox "行数 = " & k, 64End Sub