网上复制数据问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 网上复制数据问题

共有4730人关注过本帖树形打印复制链接主题：网上复制数据问题

大红袍

小大 21楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2016/1/20 10:55:00 [只看该作者]

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

自食其力。

实话实说

小大 22楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：九尾狐帖子：2649 积分：19384 威望：0 精华：1 注册：2008/9/12 9:19:00

Post By：2016/1/20 10:56:00 [只看该作者]

此主题相关图片如下：1.gif

大红袍

小大 23楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2016/1/20 10:59:00 [只看该作者]

看21楼啊。

大红袍

小大 24楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2016/1/20 11:08:00 [只看该作者]

参考代码

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)