主题：直接从XLS复制内容（单元格有换行）怎么操作？

参考

 

http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=84156&authorid=0&page=0&star=2

 

 从excel拷贝过来，如果有换行，都能正常粘贴的。请用具体例子说明问题。

拷贝以后，执行下面代码，再粘贴

 

Dim str As String = ClipBoard.GetText
str = str.Replace(chr(13), "")
ClipBoard.SetText(str)

Dim str As String = ClipBoard.GetText
str = str. Replace("""" & chr(13) & chr(10) & """", chr(11))
str = str. Replace(chr(13), "")
str = str.Replace(chr(11), vbcrlf).Trim("""", chr(10))
ClipBoard.SetText(str)

mark excel拷贝

 

Dim str As String = ClipBoard.GetText
Dim nstr As String = ""
Dim tempstr As String = ""
Dim flag As Boolean = False
For i As Integer = 0 To str.length - 1
    If str(i) = """" Then
        If i = 0 OrElse str(i-1) = chr(9) OrElse str(i-1) = chr(10) Then '开始
            flag = True
        ElseIf i = str.length-1 OrElse str(i+1) = chr(9) OrElse str(i+1) = chr(13) Then '结束
            tempstr = tempstr.Replace(chr(13), "")
            nstr &= tempstr
            tempstr = ""
            flag = False
        End If
    End If
    If flag = True Then
        tempstr &= str(i)
    Else
        nstr &= str(i)
    End If
Next
ClipBoard.SetText(nstr)