一种偏门左道调用剪贴板方式粘贴数据进单元格的方式

lwmichael

目的：把以下剪贴板内容复制到A1单元格


收货人：刘先生
电话：1310000000000
微信:lw2542
地址：江苏省扬州市xxxxx区xxxxx路
下单：卡莉：西瓜，柠檬
数量：30

要求：
1、数据内容粘贴进A1单元格，但是不能以散列方式出现。
2、不能另外增加引用
3、不调用windows api


达成方法： 把数据复制到辅助表，在从辅助表读取完粘贴到A1

代码
偏门左道.rar (17.93 KB, 下载次数: 11)

2023-10-22 19:27 上传

点击文件名下载附件

tdpzby

直接从剪切板读取数据，写到单元格不就行了吗？

lwmichael

tdpzby 发表于 2023-10-26 10:09
直接从剪切板读取数据，写到单元格不就行了吗？

其实你自己试一下就知道了。

不试试的话，你不知道
数据内容粘贴进A1单元格，但是不能以散列方式出现。
也就是粘贴进去不在一个单元格，而是分散在多个格子里

caiyu93

这个逻辑处理不了比较大的数据，你可以试试100万行的数据

lwmichael

caiyu93 发表于 2023-10-28 12:18
这个逻辑处理不了比较大的数据，你可以试试100万行的数据

这个的应用场景其实就是复制微信上的消息，显示消息到A1，并识别出来。

就单纯到显示到A1,让用户直观看到复制的是什么。  有什么更好的办法吗？

tdpzby

lwmichael 发表于 2023-10-28 00:08
其实你自己试一下就知道了。

不试试的话，你不知道

Sub Test()
Dim Mydata As New DataObject
Mydata.GetFromClipboard
[a1] = Mydata.GetText
End Sub

tdpzby

tdpzby 发表于 2023-10-30 16:43
Sub Test()
Dim Mydata As New DataObject
Mydata.GetFromClipboard

复制完，再试下这个代码

lwmichael

。。。你这个要引用。 你看到第二点，不能增加额外引用吗？？

想一下，你做完一个程序，搞出去，每天来找你的就是，这表格不行啊，有错啊。打不开啊。

你和客户说引用，他说啥是引用，什么是VBA? 什么是ALT? 算了，你这程序不行。退款吧