我想让客户从excel中复制数据,然后在dategrid里粘贴,并且如果有标题的话可以选择要对应到此列的内容,相信大家有见过的

解决方案 »

  1.   

    可能就是一大堆文本吧,以TAB分隔。
      

  2.   

    利用系统对象ClipBoard的GetText()方法获取剪切板中的内容,然后解析字符串Private Sub Form_Load()
        Dim strData As String
        Dim strRows() As String
        Dim strCols() As String
        Dim i As Long, j As Long
        
        
        strData = Clipboard.GetText                 '获取剪切板数据
        strRows = Split(strData, vbCrLf)            '分解行
        
        For i = LBound(strRows) To UBound(strRows)
            strCols = Split(strRows(i), Chr(9))     '分解每列
            For j = LBound(strCols) To UBound(strCols)
                Debug.Print "(" & i & ":" & j; ")" & strCols(j)
            Next
        Next
    End Sub
      

  3.   

    我怎粘贴到datagrid里呢,如何选顶要粘贴那些列呀