主题：表头拷贝

自己做个复制按钮，代码如下：

Dim s As String
For c As Integer = CurrentTable.LeftCol To CurrentTable.RightCol
    If s > "" Then
        s = s & vbtab
    End If
    s  = s & CurrentTable.cols(c).name
Next
For r As Integer = CurrentTable.TopPosition To CurrentTable.BottomPosition
    s  = s & vbcrlf
    For c As Integer = CurrentTable.LeftCol To CurrentTable.RightCol
        If c = CurrentTable.LeftCol Then
            s  = s &  CurrentTable(r,c)
        Else
            s = s & vbtab & CurrentTable(r,c)
        End If
    Next
Next
ClipBoard.SetText(s)

这样就包括表头了.