主题：网上复制数据问题

是在EXCEL还是在Foxtable

foxtable里面

是16楼网页的数据吗

我将代码放在窗口按钮中,按上面顺序操作,还是不行

那就改一下代码

 

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), ""))

行数对上了但四个字段都在一列里

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

好的,谢了