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

比如复制表格中的:0564   然后到excel粘贴  变成了   564

单元格格式设置成文本，再粘贴。

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

 

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

好像 这样子不支持office2003啊 2003 单引号会显示出来

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

 

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