代码
Dim s As String = ClipBoard.GetText()
s = s.Replace(chr(10), "").Replace("Address", chr(13) & "Address").Replace("Zip Code", chr(13) & "Zip Code").Replace("Mobile", chr(13) & "Mobile").Replace("Tel", chr(13) & "Tel").Replace("No", chr(13) & "No")
Dim nr As Row = Tables("表A").AddNew
nr("订单详解") = s
For Each str As String In s.Split(Chr(13))
Dim ss As String() = str.Split(":")
If ss.length > 1 Then
Dim cs As String = ss(0)
Select Case cs.trim()
Case "Contact Name"
nr("姓名")=ss(1)
Case "Address"
nr("地址")=ss(1)
Case "Zip Code"
nr("邮编")=ss(1)
Case "Mobile"
nr("移动电话")=ss(1)
Case "Tel"
nr("固定电话")=ss(1)
Case "No"
nr("订单编号")=ss(1)
End Select
Else
nr("地址") = nr("地址") & ss(0)
End If
Next