如何读取剪贴板里Excel数据

[lih163]

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

[fxy_2002]

这个貌似有点难度。等高人来解决，偶也学习一下 :)

[lih163]

自己顶

[mustudent]

看看結果

[ZOU_SEAFARER]

使用剪接版对象!!
系统提供的

[ilove8]

up

[lih163]

如何使用,具体操作呢

[lih163]

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

[province_]

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

[bdzwj]

利用系统对象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

[lih163]

坚决顶上去

[pigsanddogs]

自己分析一下不就行了。 有什么难的。