主题：求助复制数据到剪贴板中包括标题

这样更严谨一点

Dim v,v1 As String
With CurrentTable
    For r As Integer = .TopPosition To .BottomPosition
        v1 = ""
        For c As Integer = .LeftCol To .RightCol
            If .Cols(c).Visible Then
                If .Rows(r).IsNull(c) Then
                    v1 = v1 & chr(9) & .ToString
                Else
                    v1 = v1 & chr(9) & .Rows(r)(c).ToString
                End If
            End If
        Next
        v = v & v1.Trim(chr(9)) & chr(13)
    Next
End With
If v.Trim(chr(13)).Replace("Foxtable.Table","") = "" Then
    ClipBoard.Clear
Else
    ClipBoard.SetText(v.Trim(chr(13)).Replace("Foxtable.Table",""))
End If