主题：网上复制数据问题

人家页面里面的不是表格，无法直接拷贝。如果想处理，就根据拷贝后的字符（比如，根据回车分割出字符，一个一个填入你的单元格啊）

 

自食其力。

看21楼啊。

参考代码

 

Dim i As Integer = 0
Dim str As String = ""
For Each s As String In ClipBoard.GetText.replace(chr(10),"")
    If s = chr(13) Then
        i += 1
        If i = 5 Then
            i = 0
            str &= s
        Else
            str &= chr(9)
        End If
    Else
        str &= s
    End If
Next
ClipBoard.SetText(str)

看24楼，处理一下，再粘贴即可。

测试，可以啊。

1、拷贝内容；

 

2、运行代码

 

3、粘贴内容

 

-----------我测试没问题。

foxtable里面

那就改一下代码

 

Dim i As Integer = 0
Dim str As String = ""
For Each s As String In ClipBoard.GetText.replace(vbcrlf & vbcrlf, chr(13))
    If s = chr(13) Then
        i += 1
        If i = 5 Then
            i = 0
            str &= s
        Else
            str &= chr(9)
        End If
    Else
        str &= s
    End If
Next
ClipBoard.SetText(str)

1、拷贝；

 

2、执行一次下面的代码

 

ClipBoard.SetText(ClipBoard.GetText.replace(vbcrlf & vbcrlf, chr(9)).trim(chr(13)).trim(chr(10)).replace(chr(10), ""))

不同浏览器拷贝后对数据的处理都不一样啊。你看懂代码自己改啊