主题：全局表事件的问题

 

测试没问题啊，会换行啊。

比如：一到三行分别是1、2、3    复制粘贴到第四行的单元格里（或者textbox），会出现里面的内容是123，没有了换号

结果是弹出false

 

处理一下

 

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

 

 

弹出true，就是有表头；弹出false就是没表头。

我刚刚试了，弹出粘贴板的内容看是有表头的，可结果还是false

 

那你就只复制了部分列，上面的代码是检测全部列的。

判断的代码可以改一下

 

Dim sbt As String = ClipBoard.GetText.Split(chr(13))(0)
Dim flag As Boolean = True
For Each s As String In sbt.split(chr(9))
    If Tables("表A").cols.Contains(s) = False Then
        flag = False
        Exit For
    End If
Next

If flag Then
    msgbox("有表头")
Else
    msgbox("没表头")
End If

 

你这个方法有漏洞啊，只能是在当前表是复制操作时的表，才有用，如果点到别的表，结果都会是false 的

不是写了是表A了吗?