主题：程序中复制表格的数据,粘贴到excel的问题

或者拷贝以后用代码处理一下，再粘贴

Dim str As String = ClipBoard.GetText
Dim cs() As Char = {chr(9), chr(13)}
For Each s As String In str.Split(cs)
    If s.StartsWith("0") Then
        str = str.Replace(s, "'" & s)
    End If
Next
ClipBoard.SetText(str)

keyUp事件

If e.control = True AndAlso e.KeyCode = Keys.C Then
    Dim str As String = ClipBoard.GetText
    Dim cs() As Char = {chr(9), chr(13)}
    For Each s As String In str.Split(cs)
        If s.StartsWith("0") Then
            str = str.Replace(s, "'" & s)
        End If
    Next
    ClipBoard.SetText(str)
End If

 那没办法，显示不过不影响使用。

 最好的方式，你还是控制excel的单元格格式为文本吧。